亚洲精品无码成人aaa片,中文字幕亚洲影院,无码无遮挡在线观看免费

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

用VB生成DLL封裝ASP連接數據庫的代碼

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

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

'//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數據庫更改后綴為DB.asp的文件，數據庫密碼123

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

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

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

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

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

查看了網上的一些資料，主要都是用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")
都封裝，（因為網上有講將整個連接代碼都封裝）是因為，在其他asp文件引用Proconn.asp時，
我還需要里面的ProConn進行其他操作，如果封裝，不便進行引用和操作。
（以上封裝對象的解釋原因是我個人的見解，有朋友說整體封裝對ProConn的使用沒有影響，這個我不理解，請知道的給我講講）

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

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

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

Public Function ConnectDB() As Variant

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

End Function
'上面這個函數是處理前半部分字符串的，直接返回這個字符串的內容

'另外定義下面這個函數來處理后半部分內容
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了，（別忘了前面的改工程名和方法名）

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

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

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

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

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

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

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

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

封裝其它數據庫連接一樣。

您可能感興趣的文章:

C#連接Oracle數據庫使用Oracle.ManagedDataAccess.dll
C#中實現在32位、64位系統下自動切換不同的SQLite dll文件
SQL Server 2008 安裝SQLDMO.dll的方法
SQL 無法裝載DLL Microsoft原因(無法修改sa密碼)
PHP連接SQLServer2005的實現方法(附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 存儲過程調用C#編寫的DLL文件
Sql Server 數據庫中調用dll文件的過程

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

巨人網絡通訊聲明：本文標題《用VB生成DLL封裝ASP連接數據庫的代碼》，本文關鍵詞用,生成,DLL,封裝,ASP,連接,；如發現本文內容存在版權問題，煩請提供相關信息告之我們，我們將及時溝通與處理。本站內容系統采集于網絡，涉及言論、版權與本站無關。