好学IT学院：IT信息技术分享交流平台
好学网>>好学IT学院>软件开发技术>>VB开发技术
用VB编写ActiveX DLL实现ASP编程
标签：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应用程序。

VB编写ActiveXDLL实现ASP编程