這篇文章以VB生成的DLL封裝ASP代碼來連接數(shù)據(jù)庫（以Access數(shù)據(jù)庫為例）。

 一般情況下我們?cè)谟肁SP連接Access的數(shù)據(jù)庫時(shí)通常都會(huì)進(jìn)行如下的操作

'//Proconn.asp
<%
dim ProConn
set ProConn=Server.CreateObject("ADODB.CONNECTION")
ProConn.Open "driver={Microsoft Access Driver (*.mdb)};uid=;pwd=123;DBQ=" & Server.MapPath("DB.asp")
'一個(gè)原本為DB.mdb的Access數(shù)據(jù)庫更改后綴為DB.asp的文件，數(shù)據(jù)庫密碼123

if err.Number <> 0 then
    ResPonse.Write "數(shù)據(jù)庫沒有連結(jié),請(qǐng)檢查"
    ResPonse.End
else
    ResPonse.Write "數(shù)據(jù)庫連結(jié)成功"
    ResPonse.End 
end if  
%>

如果配置好服務(wù)器，訪問Proconn.asp，如果連接數(shù)據(jù)庫成功會(huì)輸出“數(shù)據(jù)庫連結(jié)成功”。

但是這樣的asp代碼的安全級(jí)別非常低，如果此asp原代被人看到，那么再有此數(shù)據(jù)庫文件的話，其他人就能輕而易舉的
隨便打開你的數(shù)據(jù)庫進(jìn)行操作。

所以我們的任務(wù)來了，如何將這些關(guān)鍵的內(nèi)容封裝起來呢？

首先需要確定方式方法和對(duì)象。

查看了網(wǎng)上的一些資料，主要都是用VB生成DLL的辦法來封裝的，那么我們也采取這樣的方法好了，（雖然我還沒用真正用過VB這東東）

方式方法確定，那么什么是我們需要封裝的對(duì)象呢？

大家來看
"driver={Microsoft Access Driver (*.mdb)};uid=;pwd=123;DBQ=" & Server.MapPath("DB.asp")
是最關(guān)鍵的代碼，這段代碼封裝在一個(gè)用VB生成的DLL中，應(yīng)該比較好。
之所以不將整個(gè)
dim ProConn
set ProConn=Server.CreateObject("ADODB.CONNECTION")
ProConn.Open "driver={Microsoft Access Driver (*.mdb)};uid=;pwd=123;DBQ=" & Server.MapPath("DB.asp")
都封裝，（因?yàn)榫W(wǎng)上有講將整個(gè)連接代碼都封裝）是因?yàn)?，在其他asp文件引用Proconn.asp時(shí)，
我還需要里面的ProConn進(jìn)行其他操作，如果封裝，不便進(jìn)行引用和操作。
（以上封裝對(duì)象的解釋原因是我個(gè)人的見解，有朋友說整體封裝對(duì)ProConn的使用沒有影響，這個(gè)我不理解，請(qǐng)知道的給我講講）


所在只想封裝最關(guān)鍵的部分“"driver={Microsoft Access Driver (*.mdb)};uid=;pwd=123;DBQ=" & Server.MapPath("DB.asp")”

分析一下這段要封裝的內(nèi)容，
它的前半部分就是一個(gè)字符串：
"driver={Microsoft Access Driver (*.mdb)};uid=;pwd=123;DBQ="
用&連接上后半部分的另一個(gè)字符串。
后半部分的另一個(gè)字符串是Server.MapPath對(duì)象函數(shù)的返回值。

 

下面開始這個(gè)封裝的操作過程。
首先
新建一個(gè)VB下的ActiveX DLL工程，工程的名稱Project1更改成ConDBDLL?? 方法class1的名稱更改成cs
工程名和方法名會(huì)在調(diào)用這個(gè)DLL的時(shí)候使用到，大家可以按照自己命名規(guī)則定義，但請(qǐng)注意好好使用。
這個(gè)DLL的代碼部分書寫如下：

Dim rp As Response
Dim rq As Request
Dim ap As Application
Dim sr As Server
Dim sn As Session

Public Sub OnStartPage(MyScriptingContext As ScriptingContext)
Set rp = MyScriptingContext.Response
Set rq = MyScriptingContext.Request
Set sr = MyScriptingContext.Server
Set ap = MyScriptingContext.Application
Set sn = MyScriptingContext.Session
End Sub

Public Sub OnEndPage()
Set rp = Nothing
Set rq = Nothing
Set sr = Nothing
Set ap = Nothing
Set sn = Nothing
End Sub
'以上語句是必須的，將原本的對(duì)象作了簡(jiǎn)化處理，并在兩個(gè)基本函數(shù)中作了處理

Public Function ConnectDB() As Variant

ConnectDB = "driver={Microsoft Access Driver (*.mdb)};uid=;pwd=123;DBQ="

End Function
'上面這個(gè)函數(shù)是處理前半部分字符串的，直接返回這個(gè)字符串的內(nèi)容

'另外定義下面這個(gè)函數(shù)來處理后半部分內(nèi)容
Public Function DBPath() As Variant
           DBPath = sr.MapPath("DB.asp")
End Function
'注意上面使用的是sr，不要使用成Server了

到了關(guān)鍵的一步，給這個(gè)工程添加"Microsoft Active Server Pages ObjectContext Object Library" 的 Reference
添加方法，選擇菜單中的"Project"->"Reference",在打開的對(duì)話框里選擇。
對(duì)了，還要選擇上"microsoft  activeX  data  objects  2.6  library"

進(jìn)行完以上操作，我們就可以編譯生成DLL了，（別忘了前面的改工程名和方法名）

準(zhǔn)備好數(shù)據(jù)庫文件DB.asp (由DB.mdb更改后綴而成，密碼123)

下面就是調(diào)用封裝的連接數(shù)據(jù)庫的asp文件代碼：
'//ProConn.asp
<%
dim ProConn
set ProConn=Server.CreateObject("ADODB.CONNECTION")
Dim ConDB
set ConDB=Server.CreateObject("ConDBDLL.Conn")
'ConDB就是創(chuàng)建的DLL對(duì)象

Dim StrConn
'定義一個(gè)字符串
StrConn = ConDB.ConnectDB() & ConDB.DBPath()
'連接兩部分內(nèi)容組成字符串
ProConn.Open StrConn 
'執(zhí)行數(shù)據(jù)庫對(duì)象操作
%>


由于是自己創(chuàng)建的DLL，把它拷貝到相應(yīng)的目錄后，必須注冊(cè)才能使用。
注冊(cè)的方法，在“運(yùn)行”中執(zhí)行：
Regsvr32.exe LuanLuanDBCONN.dll

取消這個(gè)DLL的注冊(cè)的方法是：Regsvr32.exe /u LuanLuanDBCONN.dll

注冊(cè)完畢，我們的工作基本上就做完了，現(xiàn)在我們可以使用這樣的封裝方法連接具有針對(duì)性的數(shù)據(jù)庫了。

不過有一點(diǎn)需要特別注意的是：
由于
Dim ConDB
set ConDB=Server.CreateObject("ConDBDLL.Conn")
'ConDB就是創(chuàng)建的DLL對(duì)象
這是在ASP中創(chuàng)建的對(duì)象，包括ProConn，那么我們?cè)谌魏问褂玫剑ㄒ茫㏄roConn.asp的其他ASP文件中記得釋放這兩個(gè)對(duì)象！
ProConn.close
set ProConn=nothing
set ConDB=Nothing
否則系統(tǒng)會(huì)由于對(duì)象沒有釋放，而變得越來越不堪重負(fù)。

關(guān)于這個(gè)封裝ASP代碼連接Access數(shù)據(jù)庫的方法，我想完全適用其他數(shù)據(jù)庫的連接方法。

封裝其它數(shù)據(jù)庫連接一樣。