作家
登录

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

作者: 来源:www.28hudong.com 2013-03-30 08:49:07 阅读 我要评论

很久以前的文档,整理出来,回味一下 使用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编程世界之门 一起来吧,呵呵!

  推荐阅读

  PJblog友情链接LOGO地址失效的解决

这个修改是为了解决友情链接页面当友情站点logo地址失效引起页面的不美观。当图片地址失效时会显示叉叉,这样影响页面外观,通过下面的修改可以解决这个问题并且显示新的自己设定的图片。 是在alonefly的帮助下修改>>>详细阅读


本文标题:使用VB将ASP代码封装到DLL文件

地址:http://www.17bianji.com/kaifa2/ASP/32805.html

关键词: 探索发现

乐购科技部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与乐购科技进行文章共享合作。

网友点评
自媒体专栏

评论

热度

精彩导读
栏目ID=71的表不存在(操作类型=0)