国产精品日韩精品,欧美日韩中文,成人激情视频在线

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

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

這篇文章以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)椋谄渌鸻sp文件引用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ù)庫連接一樣。

您可能感興趣的文章:

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

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

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

婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

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