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

用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下测试通过.

 

说明:

声明部分:我们在调用自己的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...