为你的ASP程序制作一个编译组件（上）

编写定制的Active Server Page(ASP)代码来完成一些任务,比方说数据库访问的能力是重要的.但是,一个由脚本写成的解决方案最明显的问题就是性能.在这篇文章中,我将向你展示如何将一个数据库对象的脚本版本转换成一个动态链接库(dll),或是就象它的通常的名字,一个COM组件.为了生成这个编译版本,我将使用Visual Basic 6 service pack 4.我曾经向你展示了如何创建一个VBScript对象来简化对数据源的访问.因为这个对象有可能被大量使用,所以它是一端理想的可以编辑成COM组件的代码.

Visual Basic对创建COM组件来说是一个很好的开发环境,而且在6.0版本中,编译器变得非常的高效.在许多情况下,它可以产生和C++一样快的代码.这并不是说,你不应该使用C++.经常,一些项目要求一个只能由C++生成的高效的组件.但是因为开发的速度和使用的容易性,我所参与的大多数工程都喜欢选择Visual Basic.当然,你对开发语言的选择纯粹是个人爱好的问题,所以我会把语言选择的问题留给你.

初始的脚本代码 为了让你回忆起以前的内容,列表A显示了上一篇文章中数据库对象的VBScript版本.

转换到Visual Basic中来 将这段脚本转换成一个Visual Basic 组件并不困难.第一步当然是启动Visual Basic.启动后显示的屏幕(除非你已经要求Visual Basic 不显示它了)是如图A所示的新建工程对话框.注意到里面有一个ActiveX dll选项.只需要选中这个选项然后单击新建按钮就可以生成一个新的所有属性都设置成创建一个COM dll的Visual Basic工程.它会自动生成一个名叫Class 1的新类.

单击"工程"菜单然后选择"Project 1属性"来打开如图B所示的对话框.这里,你可以改变工程的名字或是设置决定组件如何被编译的选项.将工程命名为DBUtil然后选中"独立运行"复选框".这个选项告诉Visual Basic这个组件没有任何用户交互过程.这基本上就是说所有的错误信息和输出都会输出到事件记录中去.其余所有的设置都置为缺省值然后单击确定.

使你的类开始工作
既然你已经拥有了一个能够运行的COM组件了,那么现在就是让它参与工作的时候了.让这个组件能在ASP中使用有几步工作要做.第一步,修改框架(framework)中的pageDeclare.asp文件来用一个object置标来引用这个刚刚编译成功的组件(列表D).

Listing D
<%@ LANGUAGE="VBScript" %>
<object runat="server" progid="DBUtil.DBConnection" id="dbConnect"></object>
<%
option explicit

'<!--#include virtual="/includes/classes/dbAccess.asp"-->

dim gExpirePage
dim gPageTitle
dim gHeaderInclude
dim gBodyTagInclude

'dim dbConnect

'set dbConnect = new DBConnection

'Set defaults
gExpirePage = true
gPageTitle = ""
gHeaderInclude = ""
gBodyTagInclude = ""
%>

object置标是伟大的因为不象VBScript对象,dll在被使用以前不会被初始化.这样做以后,如果你的页面使用框架但并不需要dbConnect对象,它就不会引入任何多余的动作.注意object置标指明了对象应该在服务器上运行.这是必须的以便这个置标不会跑到浏览器那端去然后企图在客户端上创建这个对象.

要使这个组件工作的最后一件事情是在你计算机的注册表里注册它.最好的方法是使用Microsoft Transaction Server (MTS),它实际上就是Windows 2000机器上的COM+.打开控制面板然后选择管理工具.在管理工具中,双击组件服务图标.用左边的面板浏览"组件服务|计算机|我的电脑|COM+应用程序".单击"COM+应用程序图标"然后在上面右键单击.从弹出菜单中选择"新建|应用程序".随着提示创建一个空的应用程序.然后,用任何你喜欢的名字命名这个应用程序并确保选择了"服务器应用程序(Server Application)"这一项.如果我们的组件需要访问ASP对象,比如Application和Session,那么这个选项就应该选择"库应用程序(Library Application)".但是对于数据库访问来说,"服务器应用程序"是个更好的选项.

对于"应用程序标志(Application Identity)"一项,只要你还在一个开发用的机器上并用是用IIS登录的话,你可以选择"交互用户(Interactive User)".如果这是一个没有人登录的服务器,你就需要申明一个用户帐号.所以你需要创建一个应用程序和组件能够使用的安全认证帐号.这对于一个管理了一个或多个域的服务器来说将是复杂的配置过程,因此如果你能对这个测试过程使用"交互用户"选项是最好不过的了.

现在,你应该能够在左边的面板里浏览你新的程序并单击你应用程序的组件文件夹了.要注册你的组件,只需要打开一个Explorer窗口然后将dll拖动到组件服务窗口右边的面板里就行了.一个名字为DBUtil.DBConnection的图标就会显现出来,如图E所示.

只要你去掉"set dbConnect=nothing"这一行musiclist.asp文件就准备运行了.这个调用已经失效,因为此时对象已经由MTS管理.一旦你删除了那一行,musiclist.asp就会象以前那样显示出来.

总结
我希望本文向你展示了将一个VBScript对象转换成一个Visual Basic编译过的dll并将它用在你的ASP页面里是多么的容易.如果我们从页面里将"set dbConnect = nothing"这句删除,那么从VBScript对象转换成dll就只需要修改pageDeclare.asp文件.

编译后的组件还缺乏适当的错误处理代码.既然它现在已经是一个Visual Basic对象了,那么你就可以使用on error goto的方式来捕捉函数中发生的任何错误.一旦捕捉到了一个错误,你可以要么报告这个错误,要么将它记到事件记录中去.在将来的几节中,我们将探索如何编写一个session对象并用常规的表达式来验证数据.