说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

请大侠指教啊!!!试验asp组件开发出现问题

编辑:说三道四文库 发布时间:2018-06-22 11:02
HTML文档下载 WORD文档下载 PDF文档下载
我按照下面的做法一步一步的做在ASP页面中调用VB编写的DLL,DLL也生成了,注册表也生成相应的项了,但页面怎么执行都是错的,这是为什么啊?

  1、 使用VB6创建一个新的ActiveX DLL项目 

  2、 引用“Microsoft Active Server Pages Object”对象库。 

  3、 创建两个组件事件:OnStartPage以及OnEndPage 

  4、 在事件OnStartPage中创建类ScriptingContext的一个引用。 

  5、 实例化类ScriptingContent。 

  Test.cls (类实现) 

  ''对象的声明 

  Dim rp as Response 

  Dim rq as Request 

  Dim ap as Application 

  Dim sr as Server 

  Dim sn as Session 

  ''当组件被创建的时候会触发这个事件 

  Public Sub OnStartPage(mysc as ScriptingContext) 

   ''进行对象的实例化 

   set rp=mysc.Response 

   set rq=mysc.Request 

   set sr=mysc.Server 

   set ap=mysc.Application 

   set sn=mysc.Session 

   rp.write "<br>ActiveX DLL组件已经被创建了!<br>" 

  End Sub 

  ''当组件被销毁的时候触发这个事件 

  Public Sub OnEndPage() 

   Rp.write "<br>ActiveX DLL组件已经被销毁!<br>" 

   ''销毁对象 

   Set rp=nothing 

   Set rq=nothing 

   Set sr=nothing 

   Set ap=nothing 

   Set sn=nothing 

  End Sub 

  ''定义我们自己的一个组件方法 

  Public Sub HelloWorld() 

   Rp.write "<H1>Hello,World!</H1>" 

  End Sub 

  这样,我们就创建可以访问ASP内置对象的ActiveX DLL了。我们命名这个组件项目为first,在VB中间编译这项目成为一个DLL文件first.dll,并且我们在系统中注册这个DLL文件。接下来,我们需要一个简单的几乎没有什么代码的ASP程序来调用这个组件: 

  test.asp 

  <html> 

   <head> 

    <title>测试ActiveX DLL</title> 

   </head> 

   <body> 

  <% 

  Dim testme 

  ''创建我们刚才编译成功的组件,一旦创建这个组件,同时会在叶面输出文字“ActiveX DLL组件已经被 

  ''创建了!” 

  set testme=server.createobject("first.test") 

  ''调用组件的方法 

  testme.HelloWorld 

  ''注销组件,在注销的同时,会自动在叶面显示“ActiveX DLL组件已经被销毁!” 

  set testme=nothing 

  %> 

   </body> 

  </html> 


大家帮帮看啊
还是解决不了啊,有谁懂得,帮忙看看是不是出了什么错啊?
http://blog.csdn.net/online/archive/2004/08/04/60314.aspx

没有啥错误
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘