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

andysuko · 发表于 2008-9-9 11:18:19

用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

=================
以上代码在VB6,Win2003下测试通过.

selfcold · 发表于 2008-9-9 11:24:11

提示: 作者被禁止或删除内容自动屏蔽

selfcold · 发表于 2008-9-9 11:29:27

提示: 作者被禁止或删除内容自动屏蔽

selfcold · 发表于 2008-9-9 11:30:28

提示: 作者被禁止或删除内容自动屏蔽

mariam · 发表于 2008-9-9 12:14:30

请教！

6

xlfm · 发表于 2008-9-10 08:34:20

貌似看不懂！！！！

jack2007928 · 发表于 2009-5-6 11:50:24

很看不懂哦。

dingwenhua · 发表于 2013-7-9 21:11:22

貌似看不懂！！！！嘿嘿

关注微信公众号

侵权投诉：

意见建议：

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

精彩评论7

全网首发：价值800元的抖音标签检测源码4.0

抖音权重查询源码修复版：内置更稳定的API

爆火的AI全自动剪辑批量剪辑去重混剪软件视

【全套完整教程】AI绘画大师班 Midjourney

抖音买的十几种课程（5T）：含基本全赛道+

抖音最新运营教程（412G）自媒体多期基础+

狮子鱼社区团购v18.1去后门全开源独立版：

2023爆火的快手抖音微信取图小程序源码，全

2023国庆头像生成小程序源码：已对接好小程

关于我们

帮助中心

服务指南

侵权投诉处理

点击这里投诉侵权

反馈建议/违规信息举报