通过VB6将ASP编译封装成DLL组件最简教案

通过VB6将ASP编译封装成DLL组件最简教案：

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框架结束，下面可以根据自己需要去完善所需封装的函数了。

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!