通过VB6将ASP编译封装成DLL组件最简教程附全部工程源文件

2024-05-04 10:59:49

字体：大中小

来源：转载

供稿：网友

1、新建DLL
打开VB6-->文件-->新建工程-->选择ActiveX DLL-->确定

2、将默认工程、类重命名
工程重命名：工程-->工程1 属性（此名称对应窗体内工程项目名称）-->在打开对话框中将“工程名称”重命名为ASP2DLL（当DLL组件在系统中注册后，在asp中默认的调用方法是“工程名.类名”）-->确定

类重命名在属性窗口中将名称重命名为Demo

3、定义ASP基本对象
添加模块：工程-->添加模块-->选择“模块”-->打开

重命名模块：工程资源管理器-->模块--Module1-->在属性窗口中将Module1重命名为“ASPMod”

添加模块代码，此段代码几乎适用于所有使用vb封装的asp DLL组件中，其中的ASP2DLL更改为工程名或者在调用时保持一致即可，代码如下：
复制代码代码如下:
Public objContext As ObjectContext
Public Application As ASPTypeLibrary.Application
Public Server As ASPTypeLibrary.Server
Public Session As ASPTypeLibrary.Session
Public Response As ASPTypeLibrary.Response
Public Request As ASPTypeLibrary.Request
Public Sub ASP2DLL_Initialize()
On Error Resume Next
Set objContext = GetObjectContext
Set Application = objContext.Item("Application")
Set Server = objContext.Item("Server")
Set Session = objContext.Item("Session")
Set Request = objContext.Item("Request")
Set Response = objContext.Item("Response")
End Sub
Public Sub ASP2DLL_Terminate()
On Error Resume Next
Set Application = Nothing
Set Server = Nothing
Set Session = Nothing
Set Request = Nothing
Set Response = Nothing
Set objContext = Nothing
End Sub
Public Function Eval(ByRef strEval)
Dim EvalObject As New ScriptControl
EvalObject.Language = "VBScript"
Eval = EvalObject.Eval(strEval)
Set EvalObject = Nothing
End Function

4、保存新创建的DLL
文件-->保存工程，一路确定下来，将模块、类模块、工程文件全部保存在一个文件夹下
5、类模块中调用ASP对象
工程资源管理器-->类模块-->双击Demo切换到Demo类模块代码编辑器，贴上代码，初始化类调用及类销毁，代码如下：
复制代码代码如下:
Private Sub Class_Initialize()
ASP2DLL_Initialize
End Sub
Private Sub Class_Terminate()
ASP2DLL_Terminate
End Sub

至此，一个基本的DLL框架结束，下面可以根据自己需要去完善所需封装的函数了。
6、新创建一个测试函数

上一篇：不能使用“；文件已在使用中 Microsoft　JET　Database　Engine

下一篇：asp目录读写权限检测脚本 TestFolder