搜索
小程序 直播 禾匠 狮子鱼 大商创 前端 java 全栈 App 教程
搜虎精品社区 › =☆搜虎社区精品源码分享区☆= › 〖源码互助悬赏〗 › 使用VB将ASP代码封装到DLL文件
返回列表 发新帖

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

[复制链接]
3825 7
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下测试通过.
asp DLL 代码 封装 文件
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏
收藏0
 本帖违规，我要举报
举报本帖
免责声明：
本站资源均来源于网络或是会员上传，版权和著作权归原作者所有，如有不愿意被转载，请点击这里通知我们第一时间删除！
所有资源仅供下载后在本地学习研究参考使用！您必须在下载资源后的24个小时之内，从您的电脑中彻底删除。
所有资源不能用于任何商业和非法目的，否则一切后果请用户自负。如您需要商用，请支持和购买正版，本站不对您的使用负任何责任！
会员所发布的信息中如有涉及到具体的第三方个人（单位/公司）隐私、商业秘密等，侵犯其权益，对其构成不良影响的，本站有权不做通知直接删除！
回复

举报

精彩评论7

跳转到指定楼层
正序浏览
#沙发
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
回复 支持 反对

举报

6#
xlfm 发表于 2008-9-10 08:34:20 | 只看该作者
貌似看不懂！！！！
回复 支持 反对

举报

7#
jack2007928 发表于 2009-5-6 11:50:24 | 只看该作者
很看不懂哦。
回复 支持 反对

举报

8#
dingwenhua 发表于 2013-7-9 21:11:22 | 只看该作者
貌似看不懂！！！！ 嘿嘿
回复 支持 反对

举报

返回列表 发表新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册帐号

本版积分规则

andysuko

关注

粉丝

帖子

发布主题
一周下载排行最近7x24小时热帖
最新发布
15年专注源码提供
侵权投诉处理

点击这里投诉侵权

周一至周日10:00-21:00

反馈建议/违规信息举报

webmaster@souho.net 在线客服咨询

扫描二维码关注我们

严禁任何人以任何形式在本站发表与我国法律相抵触的言论！本站资源仅供本地学习研究，禁止用于任何违法犯罪活动！

搜虎源码所有资源来自网络收集整理，版权和著作权归原作者所有，仅供本地研究学习。若有侵权，请联系管理员及时删除!

所有资源严禁用于任何商业目的，否则一切后果请用户自负。如您需要商用，请支持和购买正版，本站不对您的使用负任何责任！

如会员所发布的信息中有涉及到具体的第三方个人（单位/公司）隐私、商业秘密等，侵犯其权益，对其构成不良影响的，本站有权不做通知将该信息予以直接删除处理！

网站备案号： 鄂ICP备17009394号-2