变态重口极致另类在线-波多久久夜色精品国产-波多野结衣在线观看一区-波多野结衣在线观看一区二区-污污的网站免费阅读-污污视频网址

當(dāng)前位置: 首頁IT技術(shù) → 關(guān)于asp中connection對象封裝dll方法分享

關(guān)于asp中connection對象封裝dll方法分享

更多

這篇文章將跟大家分享到關(guān)于asp中connection對象封裝dll解決方案,希望能給大家?guī)韼椭騿l(fā)。

asp代碼保密一直是令人頭痛的問題,目前沒有非常好的解決方案,無非用vb編譯成dll,但工作量實(shí)在太大,于是一直苦苦尋求著另一種途徑。。。

  中午,突然靈感一發(fā),“為什么不嘗試用加密數(shù)據(jù)庫?”,通過對數(shù)據(jù)庫設(shè)一個(gè)高強(qiáng)度的密碼,然后用vb封裝connection對像,將密碼信息寫在dll里,然后通過asp創(chuàng)建組件方式調(diào)用,就算人家拿了我的代碼,也無法改動(dòng)數(shù)據(jù)庫!

  于是,開始了一步步既痛苦又刺激的旅程。vb三四年前用過,而且菜得不再菜,為了找思路,就上網(wǎng)搜,百度有時(shí)候也挺害人的,搜了一大堆誤人子弟的東東出來,特別是那個(gè)vb程序里只放一個(gè)連接字符串,然后用asp創(chuàng)建組件,取出字串,然后連接的思路,沒任何意思,一句respose.write 連接字串就出來。

  達(dá)到加密數(shù)據(jù)庫的目的,鏈接字串絕對是不能顯示的,所以我參考了龍卷風(fēng)寫的"使用組件封裝數(shù)據(jù)庫操作(二)"中的方法,設(shè)定一個(gè)conn的全局變量,然后打開數(shù)據(jù)庫的函數(shù)返回的只有true跟false。更重要的一點(diǎn)就是封裝rs的execute方法,將其寫到dll里,具體操作如下:

  1.打開vb,創(chuàng)建一個(gè)activex dll工程,工程名稱叫myconn,類模塊是dbconn,然后寫入以下代碼:

Option Explicit
Dim rp As Response
Dim rq As Request
Dim ap As Application
Dim sr As Server
Dim sn As Session
Dim Conn As ADODB.Connection ''創(chuàng)建conn全局變量
Dim RS As ADODB.Recordset '' 創(chuàng)建全避變量rs

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 openConn()
Dim str As String
Set Conn = sr.CreateObject("ADODB.Connection")

str = "Provider=microsoft.Jet.OLEDB.4.0;Data Source=" & sr.MapPath("/mssdatabase/dbtest.mdb") &";data password=123456789"
Conn.Open str
If Err.Number <> 0 Then ''就是在社里返回喔

openConn = False

Else

openConn = True

End If
End Function

Public Function execute(sql) As ADODB.Recordset ''創(chuàng)建一個(gè)execute的方法,返回為recordset對像
Set RS = New ADODB.Recordset
RS.CursorLocation = adUseClient

Call openConn ''這句得要加,好像在外部的asp中不能觸發(fā)全局conn變量,不知為此??

RS.Open sql, Conn, 3, 3
Set execute = RS
End Function

  編譯該工程時(shí),切記引用(工程>引用)"Microsoft active server pages object library"和"microsoft activexX data object 2.6 library"兩個(gè)庫類(感覺像c#的using差不多一樣),然后編譯成dll(文件>生成myconn.dll),一般vb編譯成dll都會(huì)在系統(tǒng)中自動(dòng)注冊,如果是ntsf分區(qū),給該dll加個(gè)everyone 可讀,執(zhí)行權(quán)限,然后到asp里調(diào)用,實(shí)現(xiàn)代碼如下:

<%
dim conn
dim dbLink

dbLink="2"

if dbLink="1" then ''如果代碼在別的機(jī)器上運(yùn)行就使用dll組件鏈接數(shù)據(jù)庫,否則就使用本地鏈接
Set conn=Server.CreateObject("myconn.dbconn")
conn.openConn
else
set conn=Server.CreateObject("ADODB.CONNECTION")
DBPath = Server.MapPath("/mssdatabase/dbtest.mdb")

conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& DBPath
end if
%>

  由于兩種鏈接方式都只是使用了一個(gè)conn對像,所以不用對其他代碼進(jìn)行大修改,還是比較方便,目前dll中的execute方法對select操作已經(jīng)測試通過,還有insert、update、delete等方法有待完善。

  附件為myconn工程文件全部代碼:點(diǎn)擊這里下載源文件

熱門評論
最新評論
發(fā)表評論 查看所有評論(0)
昵稱:
表情: 高興 可 汗 我不要 害羞 好 下下下 送花 屎 親親
字?jǐn)?shù): 0/500 (您的評論需要經(jīng)過審核才能顯示)
主站蜘蛛池模板: 欧美日韩国产人成在线观看 | 看黄色.com| 在线丝袜 | 一区二区三区免费高清视频 | 国产精品揄拍一区二区 | 福利在线免费观看 | 国产精品japanese人妖 | 日本天天射 | 国产一级淫片视频免费看 | 精品国产欧美一区二区最新 | 精品在线视频免费 | 成人在线精品视频 | 最近中文字幕2019视频1 | 色综合久久五月 | 成人合成mv福利视频网站 | 美女黄网站在线观看 | 亚洲天堂成人在线观看 | 欧美成人一区二区三区 | 成年人免费在线视频观看 | 清清草视频在线观看 | 免费一级特黄特色大片在线 | 欧美一级www片免费观看 | 一个人在线视频免费观看www | 亚洲欧美精品一中文字幕 | 久久久久综合一本久道 | 亚洲黄色一级 | 午夜看大片 | 99re视频精品全部免费 | 欧美国产日韩精品 | 久久精品一区二区三区不卡牛牛 | 日本a视频在线 | 美女黄影院 | 任你躁在线精品免费视频网站 | 日韩在线中文字幕 | 性欧洲黑人巨大videos | 欧美写真视频一区 | 波多野结衣亚洲 | 成人一区二区免费中文字幕 | 婷婷四房综合激情五月性色 | 国产成人理在线观看视频 | 国产中文字幕久久 |