使用VB将ASP代码封装到DLL文件完整实例

〖电脑网络〗使用VB将ASP代码封装到DLL文件完整实例

(浏览 3793 次)

- 发言：苗苗

- 文章：0 篇
- 点数：28651 点
- 日记：0则
- ＩＰ：*.*.*.*

楼层：楼主 ┊ 博客 ┊ 日记 ┊ 短消息 ┊ 加好友 ┊ 文集 ┊ 搜TA的信息 ┊ 回复 ┊ 修改 ┊ 2011/1/4 22:29:59

使用VB将ASP代码封装到DLL文件完整实例

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

1、打开VB6，新建ActiveX DLL

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

3、填加代码如下：

苗苗，姓名：许新栋，山东临沂人，青藤文学网总编，爱好文学、书法。主编2012年、2014年《青藤文集》
新浪博客：

http://blog.sina.com.cn/u/1354794390

送朵鲜花(0) | 扔个鸡蛋(0)

2011/1/4 22:29:59

- 发言：苗苗

- 文章：0 篇
- 点数：28651 点
- 日记：0 则
- ＩＰ：*.*.*.*

楼层：1 楼 ┊ 日记 ┊ 短消息 ┊ 回复 ┊ 修改 ┊ 2011/1/4 22:31:57

回复“使用VB将ASP代码封装到DLL文件完整实例”

‘声明部分
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

苗苗，姓名：许新栋，山东临沂人，青藤文学网总编，爱好文学、书法。主编2012年、2014年《青藤文集》
新浪博客：

http://blog.sina.com.cn/u/1354794390

- 发言：苗苗

- 文章：0 篇
- 点数：28651 点
- 日记：0 则
- ＩＰ：*.*.*.*

楼层：2 楼 ┊ 日记 ┊ 短消息 ┊ 回复 ┊ 修改 ┊ 2011/1/4 22:32:09

回复“使用VB将ASP代码封装到DLL文件完整实例”

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

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

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

苗苗，姓名：许新栋，山东临沂人，青藤文学网总编，爱好文学、书法。主编2012年、2014年《青藤文集》
新浪博客：

http://blog.sina.com.cn/u/1354794390

- 发言：苗苗

- 文章：0 篇
- 点数：28651 点
- 日记：0 则
- ＩＰ：*.*.*.*

楼层：3 楼 ┊ 日记 ┊ 短消息 ┊ 回复 ┊ 修改 ┊ 2011/1/4 22:32:27

回复“使用VB将ASP代码封装到DLL文件完整实例”

《%

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

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

苗苗，姓名：许新栋，山东临沂人，青藤文学网总编，爱好文学、书法。主编2012年、2014年《青藤文集》
新浪博客：

http://blog.sina.com.cn/u/1354794390

- 发言：苗苗

- 文章：0 篇
- 点数：28651 点
- 日记：0 则
- ＩＰ：*.*.*.*

楼层：4 楼 ┊ 日记 ┊ 短消息 ┊ 回复 ┊ 修改 ┊ 2011/1/4 22:32:47

回复“使用VB将ASP代码封装到DLL文件完整实例”

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

Hello World

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

说明：

声明部分：我们在调用自己的aplaction时,先要声明

OnStartPage部分：当ASP执行时就是在服务器上创建这些alacation

OnEndPage部分：当ASP执行完毕时消毁对象！

附：关闭和重启IIS来实现释放IIS调用的DLL文件,以修改它,否则提示"权限被拒绝！"

BAT文件：

@REM   重新启动IISADMIN服务，以便COM注册

  @REM   停止IISADMIN服务
  net   stop   iisadmin   /y

  @REM   启动IISADMIN服务
  net   start   iisadmin

  @REM   启动WWW服务
  net   start   w3svc

  @REM   启动FTP服务
  net   start   msftpsvc

  @REM   net   start   smtpsvc
  @REM   net   start   nntpsvc

  @REM   pause...

苗苗，姓名：许新栋，山东临沂人，青藤文学网总编，爱好文学、书法。主编2012年、2014年《青藤文集》
新浪博客：

http://blog.sina.com.cn/u/1354794390

- 发言：苗苗

- 文章：0 篇
- 点数：28651 点
- 日记：0 则
- ＩＰ：*.*.*.*

楼层：5 楼 ┊ 日记 ┊ 短消息 ┊ 回复 ┊ 修改 ┊ 2011/1/4 22:33:43

回复“使用VB将ASP代码封装到DLL文件完整实例”

如果在这里

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

MyResponse.Write ("Hello World"),这一句添加更多的代码呢?比如一段程序或是数据链接等,我的代码如下：

if Request.ServerVariables("SERVER_NAME")<>"192.168.1.8" then
response.write "〈script language=javascript〉alert(服务器地址出错！！);window.close();《/script》"
response.end
end if

此帖由苗苗于 2011-1-4 22:34:49 修改过

苗苗，姓名：许新栋，山东临沂人，青藤文学网总编，爱好文学、书法。主编2012年、2014年《青藤文集》
新浪博客：

http://blog.sina.com.cn/u/1354794390

首页上一页下一页尾页页次：1/1 页共有 5 个跟帖 20帖/页转到页

快速回复：使用VB将ASP代码封装到DLL文件完整实例（请您先登录…）

青藤笔名：密码： Cookie：点此注册新会员，开启青藤文学之旅吧！

青藤文学由西山月工作室出品 Copyright © 2004-2024 www.7cd.cn All rights Reserved
声明：本页内容为网友自由发帖，不经审核，其内容只代表发帖者观点，与本站无关，对于因内容产生的不良反应，本站概不负责！
影像、音乐、图片、软件声明：本页面所涉及的影像、音乐、图片、软件，均为网友自行上传，其行为只代表网友自己的观点，朋友们如欲继续使用，请购买正版，本站不对涉及版权问题的纠纷负任何责任。