91九色国产,日韩精品久久久久无码,国产精品熟女九色九色蜜臀

主頁 > 知識庫 > 用VB生成DLL封裝ASP連接數(shù)據(jù)庫的代碼

用VB生成DLL封裝ASP連接數(shù)據(jù)庫的代碼

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

一般情況下我們在用ASP連接Access的數(shù)據(jù)庫時通常都會進行如下的操作

'//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")
'一個原本為DB.mdb的Access數(shù)據(jù)庫更改后綴為DB.asp的文件，數(shù)據(jù)庫密碼123

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

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

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

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

首先需要確定方式方法和對象。

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

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

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

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

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

下面開始這個封裝的操作過程。
首先
新建一個VB下的ActiveX DLL工程，工程的名稱Project1更改成ConDBDLL?? 方法class1的名稱更改成cs
工程名和方法名會在調(diào)用這個DLL的時候使用到，大家可以按照自己命名規(guī)則定義，但請注意好好使用。
這個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
'以上語句是必須的，將原本的對象作了簡化處理，并在兩個基本函數(shù)中作了處理

Public Function ConnectDB() As Variant

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

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

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

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

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

準備好數(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對象

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

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

取消這個DLL的注冊的方法是：Regsvr32.exe /u LuanLuanDBCONN.dll

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

不過有一點需要特別注意的是：
由于
Dim ConDB
set ConDB=Server.CreateObject("ConDBDLL.Conn")
'ConDB就是創(chuàng)建的DLL對象
這是在ASP中創(chuàng)建的對象，包括ProConn，那么我們在任何使用到（引用）ProConn.asp的其他ASP文件中記得釋放這兩個對象！
ProConn.close
set ProConn=nothing
set ConDB=Nothing
否則系統(tǒng)會由于對象沒有釋放，而變得越來越不堪重負。

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

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

您可能感興趣的文章:

C#連接Oracle數(shù)據(jù)庫使用Oracle.ManagedDataAccess.dll
C#中實現(xiàn)在32位、64位系統(tǒng)下自動切換不同的SQLite dll文件
SQL Server 2008 安裝SQLDMO.dll的方法
SQL 無法裝載DLL Microsoft原因(無法修改sa密碼)
PHP連接SQLServer2005的實現(xiàn)方法(附ntwdblib.dll下載)
PHP連接SQLSERVER 注意事項(附dll文件下載)
PHP Warning: PHP Startup: Unable to load dynamic library \ D:/php5/ext/php_mysqli.dll\
libmysql.dll與php.ini是否真的要拷貝到c:\windows目錄下呢
mssql 存儲過程調(diào)用C#編寫的DLL文件
Sql Server 數(shù)據(jù)庫中調(diào)用dll文件的過程

標簽：麗江泰州咸陽溫州昌都昆明家電維修鐵嶺

巨人網(wǎng)絡通訊聲明：本文標題《用VB生成DLL封裝ASP連接數(shù)據(jù)庫的代碼》，本文關鍵詞用,生成,DLL,封裝,ASP,連接,；如發(fā)現(xiàn)本文內(nèi)容存在版權問題，煩請?zhí)峁┫嚓P信息告之我們，我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡，涉及言論、版權與本站無關。