用VB将ASP代码封装到DLL文件中

很久以前的文件，整理，回味

用VB封装ASP建立sayHello测试程序

1。打开VB6和建立一个新的ActiveX DLL

2。在工程参考中添加微软Active Server页面对象库选择

3，将代码添加如下：

代码开始

的声明部分
私人myｓｃｒｉｐｔingcontext作为ｓｃｒｉｐｔingcontext
私人申请应用
私人MyRequest As Request
私人MyResponse反应
私人服务器作为服务器
私人mysession会话

下列公共函数定义（使用ASP对象，可用于VB MyApplication相当于ASP在VB应用程序中，我的请求就相当于ASP的要求，MyResponse相当于ASP的反应，MyServer相当于ASP的服务器，mysession相当于ASP会议）

市民Sub OnStartPage（passedｓｃｒｉｐｔingcontext作为ｓｃｒｉｐｔingcontext）
集myｓｃｒｉｐｔingcontext = passedｓｃｒｉｐｔingcontext
设置应用myｓｃｒｉｐｔingcontext MyApplication =。
把我的请求，请求myｓｃｒｉｐｔingcontext。
设置= myｓｃｒｉｐｔingcontext响应响应。
个= myｓｃｒｉｐｔingcontext服务器设置。
mysession = myｓｃｒｉｐｔingcontext会话设置。
端子

市民Sub OnEndPage（）
集myｓｃｒｉｐｔingcontext =没有
设置申请=没有
把我的请求=没有
设置响应=没有
设置服务器=没有
集mysession =没有
端子

创建一个自定义函数sayHello

市民Sub SayHello（）
响应。写（Hello World）
端子

代码结束

4、班级名称更改为：HelloWorld变化项目名称：TestVBCode

5、产生testvbcode.dll文件，并利用Windows注册后运行注册组件命令regsvr32路径 testvbcode.dll。（卸载组件命令regsvr32 / U路径 testvbcode .dll）

6、建立test.asp文件，代码如下

<

vb自建函数调用格式
设置对象名称= server.createobject（工程名称。类名
对象名称。自建函数名

集mytestobj = server.createobject（testvbcode。HelloWorld）
mytestobj.sayhello
%>

7。test.asp文件运行的结果如下：

你好世界

上面的示例将打开您的VB编程世界的大门。

来吧，哈哈！