封装为dll会带来很多的好处，主要包括只是产权的保护，以及效率和安全性能的提升。这个例子中被封装的dll文件可以隐藏access数据库的实际路径。

VB生成的DLL封装ASP代码来连接数据库（Access）。

本文用一个最简单的连接access数据库的例子来说明如何将asp代码封装为dll文件。

我们用vb，最常见的方式来封装asp代码。

我们需要封装的对象如下:

'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")

我们将下面的部分封装
"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文件代码：

由于是自己创建的DLL，把它拷贝到相应的目录后，必须注册才能使用。
注册的方法，在“运行”中执行：
Regsvr32.exe dllname.dll

取消这个DLL的注册的方法是：Regsvr32.exe /u dllname.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数据库的方法，我想完全适用其他数据库的连接方法。


再例如，下面的封装的例子：

首先要申明变量：

Private WenScriptingContext As ScriptingContext
Private WenApplication As Application
Private WenRequest As Request
Private WenResponse As Response
Private WenServer As Server
Private WenSession As Session

为了在WenConnection类中使用ASP的内建对象,必须在此类中写一个OnStartPage子函数。那是因为无论什么时候用户访问一个带有本组件的ASP文件,IIS就会把ScriptingContext传送给我们的对象请我们使用。这个ScriptingContext包括了全部的ASP方法和属性，这使得我们有能力访问所有ASP的对象。

Public Sub OnStartPage (PassedScriptingContext As ScriptingContext)
Set WenScriptingContext = PassedScriptingContext
Set WenApplication = WenScriptingContext.Application
Set WenRequest = WenScriptingContext.Request
Set WenResponse = WenScriptingContext.Response
Set WenServer = WenScriptingContext.Server
Set WenSession = WenScriptingContext.Session
End Sub

我们既然用OnStartPage函数来创建对象，那么我们这里就用OnEndPage子函数来释放对象：

Public Sub OnEndPage()
Set WenScriptingContext = Nothing
Set WenApplication = Nothing
Set WenRequest = Nothing
Set WenResponse = Nothing
Set WenServer = Nothing
Set WenSession = Nothing
End Sub

接下来定义两个函数RsResult()和DataSource()：

Public Function Rs(strsql As String) As Recordset
Dim oConn As Connection
Dim oRs As Recordset
Dim str