这篇文章以 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.Map Path("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(My
ScriptingContext 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 了 到了关键的一