使用元件封裝資料庫操作(一) (轉)

使用元件封裝資料庫操作(一) (轉)[@more@]  其實，大家在書寫時，最擔心的可能就是的連線資訊，會被一些人看到，進行一些破壞。下面我們用.0來做一個動態連結庫(.dll)來隱藏資料庫的連線資訊。
　　啟動vb6.0，新建--&gtActive dll工程。單擊"工程"--&gt引用,選擇" active server pages  library"
和"microsoft  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
End Sub

'以上語句是必須的。
'定義兩個公有

Public Function data() As Variant
datasource = "={ 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("ADO.Connection")
objConn.Open application("strconn")