好学IT学院:IT信息技术分享交流平台
标签:VB  来源:互联网  作者:佚名  发布时间:2009-04-04  ★★★加入收藏〗〖手机版
摘要:ASP是目前一种广为应用的用来快速构建动态WEB站点的编程语言,默认的内置开发语言是VBScript,由于ASP和微软Windows系列操作系统的结合非常的好,使得ASP已经成为了NT开发平台上面进行WEB开发的首选语言和环境。他有着简单易学,方便快速开发的种…

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 ScriptingContent)
   ''进行对象的实例化
   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>

通过上面简单的例子,我们可以看到使用ActiveX DLL同样可以实现和ASP同样的功能,并且带来的代码保密和程序运行更加高效的优点。ActiveX DLL和纯ASP有着各自的优点和缺点,只要我们合理的运用这两种技术,比如适当的将商业逻辑封装在ActiveX DLL中,或者在需要保密的地方使用DLL封装技术,一定可以编写出高效快速的WEB应用程序。

PHP5正式发布
  期待已久的PHP5终于在当地时间7月13日正式发布了。无论对于PHP语言本身还是PHP的用户来讲,PHP5发布都算的上是一个里程碑…
  • 好学触屏公众号虎力全开、杨帆起航!
  • 四大名著全套小学生版注音版
  • 诗词中的科学全4册
  • 曹文轩系列儿童文学全套画本