用組件封裝數據庫操作(一)

其實，大家在書寫asp程式時，最擔心的可能就是資料庫的連接配接資訊，會被一些人看到，進行一些破壞。下面我們用vb6.0來做一個動态連結庫(.dll)來隐藏資料庫的連接配接資訊。

　　啟動vb6.0，建立-->Active  dll工程。單擊"工程"-->引用,選擇"microsoft  active  server  pages  object  library"

和"microsoft  activeX  data  objects  2.1  library"兩項。将類子產品的名稱改為dcss.将工程的名稱改為yygwy.儲存工程檔案yygwy.vbp和類檔案dcss.cls。

在dcss.cls中寫入:

Private  myscriptingcontext  As  ScriptingContext

Private  myapplication  As  Application

Private  myrequest  As  Request

Private  myresponse  As  Response

Private  myserver  As  Server

Private  mysession  As  Session

Public  Sub  onstartpage(passedscriptingcontext  As  ScriptingContext)

Set  myscriptingcontext  =  passedscriptingcontext

Set  myapplication  =  myscriptingcontext.Application

Set  myrequest  =  myscriptingcontext.Request

Set  myresponse  =  myscriptingcontext.Response

Set  myserver  =  myscriptingcontext.Server

Set  mysession  =  myscriptingcontext.Session

End  Sub

Public  Sub  onendpage()

Set  myscriptingcontext  =  Nothing

Set  myapplication  =  Nothing

Set  myrequest  =  Nothing

Set  myresponse  =  Nothing

Set  myserver  =  Nothing

Set  mysession  =  Nothing

'以上語句是必須的。

'定義兩個公有函數

Public  Function  datasource()  As  Variant

datasource  =  "driver={sql  server};server=yang;uid=sa;pwd=;  database=dcss"

End  Function

編譯生成dcss.dll檔案。注冊regsvr32  路徑\dcss.dll。

用visual  interdev打開global.asa檔案.當然了，你也可以在其它檔案中使用。

set    dcss=server.CreateObject("yygwy.dcss")  

oconn=dcss.datasource()          

application("strconn")=oconn  

在其它的頁面中如下調用即可：

set  objConn  =  Server.CreateObject("ADODB.Connection")

objConn.Open  application("strconn")