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

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了使用VB将ASP代码封装到DLL文件，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含1763字，纯文字阅读大概需要3分钟。

内容图文

很久以前的文档，整理出来，回味一下

使用VB封装ASP，建立SayHello测试程序

1、打开VB6，新建ActiveX DLL

2、在工程引用中加入Microsoft Active Server Pages Object Library选择

3、填加代码如下：

'Code Start

'声明部分
Private MyScriptingContext As ScriptingContext
Private MyApplication As Application
Private MyRequest As Request
Private MyResponse As Response
Private MyServer As Server
Private MySession As Session

'下面定义公用函数（在VB中访问ASP对象，即在VB中可以用MyApplication等同于ASP中的Application、MyRequest等同于ASP中的Request、 MyResponse等同于ASP中的Response、 MyServer等同于ASP中的Server、 MySession等同于ASP中的Session 使用）

Public Sub OnStartPage(PassedScriptingContext As ScriptingContext)
Set MyScriptingContext = PassedScriptingContext
Set MyApplication = MyScriptingContext.Application
Set MyRequest = MyScriptingContext.Request
Set MyResponse = MyScriptingContext.Response
Set MyServer = MyScriptingContext.Server
Set MySession = MyScriptingContext.Session
End Sub

Public Sub OnEndPage()
Set MyScriptingContext = Nothing
Set MyApplication = Nothing
Set MyRequest = Nothing
Set MyResponse = Nothing
Set MyServer = Nothing
Set MySession = Nothing
End Sub

'建立自定义函数SayHello

Public Sub SayHello()
MyResponse.Write ("Hello World")
End Sub

'Code End

4、将类名改为：HelloWorld  将工程名改为：TestVBCode

5、生成TestVBCode.DLL文件，并使用Windows运行注册组件命令Regsvr32 路径\TestVBCode.DLL注册后即可使用。（卸载组件命令为Regsvr32 /u 路径\TestVBCode.DLL）

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

<%

'VB自建函数调用格式
'Set 对象名=Server.CreateObject("工程名.类名")
'对象名.自建函数名

Set MyTestObj = Server.CreateObject("TestVBCode.HelloWorld")
MyTestObj .SayHello
%>

7、运行Test.asp文件结果显示如下：

Hello World

以上实例将开启你的VB编程世界之门

一起来吧，呵呵！

内容总结

以上是互联网集市为您收集整理的使用VB将ASP代码封装到DLL文件全部内容，希望文章能够帮你解决使用VB将ASP代码封装到DLL文件所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

---