本篇文章通过与传统的设计方法相比较介绍了如何在ASP代码中调用VB组件的方法在本篇文章中我们假设读者具有VB和ASP的相关入门知识
服务器端组件和客户端组件的比较
服务器端组件和客户端组件有许多不同之处服务器端组件是在计算机服务器上注册的DLL文件客户端组件则在浏览器运行的计算机上注册在IE中这些客户端组件被称作ActiveX浏览器插件组件
ActiveX客户端组件可以使用VB编写并通过互联网或内联网发送给浏览器生成很精彩的效果问题是ActiveX客户端组件只限于IE而使用VB编写的服务器端组件则能够产生纯HTML代码适用于所有的浏览器服务器端组件的最大问题是该组件必须在Windows+IIS环境中或与IIS的API兼容的应用中运行相比较而言在服务器端实现这种兼容性似乎更容易一些
IIS服务器端组件驻留在与IIS相同的内存空间中并随时准备服务器上处理的ASP网页的调用从理论上说我们可以在返回浏览器的ASP代码中插入任何文本或代码但一般来说大多数服务器端组件被用来处理需要大量时间的计算或数据库信息查找然后将所得到的结果以HTML代码的形势返回给浏览器
VB组件的解析
由于本篇文章旨在讨论编写VB组件的基本方法因此在能够说明问题的情况下其中的例子将是十分简单的在详细讨论编写VB组件之前我们将首先从概念上对VB组件作一番剖析
在使用VB编写服务器端的组件时有三个分层次的概念（在VB和ASP代码中都会用到）需要注意
·Project名字
·Class名字
·Method名字
VB工程的名字就是Project名字许多开发人员都将Project名字看作是组件名字但VB只将它看作是工程的名字在我们的例子中Project名字是ExampleProject当然了我们可以随意命名自己的工程名字Class名字名字是ExampleClassMethod名字是ExampleMethod
工程名字（组件名字）也可以是由组件代码编译后得到的DLL文件的名字该DLL文件将包含有被IIS用来向浏览器返回文本或HTML代码的经过编译的VB代码
方法名字指的是管理特定代码功能的VB代码部分例如计算日期或显示数据库中所有作者的清单组件方法有点角个黑盒子它完成特定的工作或根据输入的信息返回特定的信息一般情况下在一个组件中可以有多个方法为了更有效地管理组件的方法可以将方法按照相似的分类组合在一起这就是组件类的作用
组件类能够在内存中生成组件类代码的一个拷贝在使用ASP代码创建对象时它也被称作对象这就是实例化一旦有了组件类代码实例的对象引用我们就可以从ASP代码中调用类中包含的方法
在我们的例子中工程类方法的名字将用来在ASP代码中实例化VB组件并以方法参数的形式从ASP代码中向VB代码传送值在ASP代码中接收从VB方法中返回的值
从ASP文件中调用VB组件
我们用来调用VB组件的ASP文件将使用对象变量保存VB对象的引用在ASP文件中可以使用ASP Server对象的CreateObject()方法创建一个对象该方法将返回一个它创建的对象的引用在例子中我们将使用objReference作为组件的对象变量下面的代码显示ASP代码在实例化VB组件时需要使用组件的工程名和类名（ExampleProject和ExampleClass）
实例化VB组件的ASP代码
Set objReference = ServerCreateObject(ExampleProjectExampleClass)
VB组件将从ASP代码中接受个变量的值并向ASP代码返回一个值该值将存储在名字为strMethodReturn的ASP变量中下面的代码显示出ASP代码是如何得到由VB组件返回的值的它向VB方法传送三个名字分别为ParamParam和Parma的三个参数值
strMethodReturn = objReferenceExampleMethod(Param Param Param)
ParamParamParam这三个参数必须与VB组件中方法的定义完全相同下面是二行实例化VB组件的类并调用类的方法获得返回值的ASP代码的例子
Set objReference = ServerCreateObject(ExampleProjectExampleClass)
strMethodReturn = objReferenceExampleMethod(Param Param Param)
下面的图表直观地显示了VB组件的工程类和方法名字是如何与ASP文件中的组件实例化代码协调的在逐步地学习如何编写例子中的VB代码和ASP文件时可以将下面的图表作为参考
VB方法的作用
我们例子中简单的VB组件将获得用户的名字和年龄然后返回一个以天计的用户的年龄而且有一个可选项能够提醒某个用户是否已经超过了岁
如果我们向组件传送一个虚构的Eric Clapton作为方法的第一个参数值将第二个参数设置为我们将得到下面的返回字符串
Eric Clapton is over days old
如果我们将可选的第三个参数设置为True（这一参数将使方法判断用户是否已经超过岁）我们将会得到下面的返回字符串
Eric Clapton is over days OLD
由于使用了三个完全不同的变量━━用户的姓名年龄以及表示他们是否超过了岁因此我们需要使用三个方法参数将这些信息从ASP文件传送给VB代码在VB中考虑要使用哪些数据类型是十分重要的我们将使用一个名字为strName的字符串型变量表示用户的姓名名字为intAge的整型变量表示用户的年龄名字为blnAgeEmphasisOn的布尔型变量表明用户是否已经超过了岁
三个方法参数（传送给VB组件的方法代码的变量）
在VB中创建服务器端组件
启动VB后在新工程窗口中双击ActiveX DLL图标一旦VB加载了新的ActiveX DLL工程至少会看到二个打开的窗口工程窗口和属性窗口如果有一个窗口显示不出来可以从VB的菜单中选择查看菜单项（分别使用查看>工程管理器查看>属性窗口）
由于VB对第一个工程和类的缺省命名分别是ProjectClass我们可以将它们分别改为ExampleProject 和ExampleClass工程名字的修改可以在工程窗口中进行在工程窗口中新输入的工程名字左侧有一个带有+或的小方框如果显示的是+号选择该小方框+号就会变成号缺省的类名（Class）就会显示在工程名字的下面在工程窗口中选择缺省的类名在属性窗口中将缺省的类名修改为ExampleClass
在保存工程时VB会将包含类的代码保存在一个扩展名为CLS的文件工程文件的扩展名为VBP其中存储有工程的各种设置文件名和文件存储的位置
服务器端组件的属性值
在属性窗口中显示ExampleClass类的属性注意Instancing属性的值为 MultiUse如果将工程的类型设置为标准的EXE工程该属性的值就会随之发生改变
在VB的菜单中选择工程>ExampleProject属性就会显示出工程属性窗口在常规标签的右下端的线程模式属性的值应当被设置为单元线程这将使多个访问者能够同时使用我们的组件类的不同的实例另外选择无人值守执行和驻留内存二个选项避免VB中的内存洩露问题
VB方法的代码
现在我们就需要使用VB的代码窗口来输入VB代码了如果代码窗口还是一片空白那就输入下面的代码好了
Option Explicit
它将要求我们必须定义所有的变量
Public Function ExampleMethod(ByVal strName As String _
ByVal intAge As Integer _
Optional ByVal blnAgeEmphasisOn As Boolean = False) As String
在上面的代码中我们将方法定义成了一个Public函数这意味着该组件之外的任何代码都能够调用它由于是一个函数它还会向调用它的代码返回一个值
Public Function ExampleMethod() As String
上面的代码表示ExampleMethod()函数将向它的调用者返回一个字符串类型的值
我们的VB方法带有个从ASP代码接受值的参数变量最后一个参数变量是可选的所有用来从VB组件之外接收值的参数变量都需要在VB方法的括号间定义和使用我们可以象在方法内定义的变量那样使用以这种方式定义为方法参数的变量二者之间唯一的区别是外面的ASP代码来决定它们的值
下面是三个变量和它们的数据类型
ByVal strName As String
ByVal intAge As Integer
Optional ByVal blnAgeEmphasisOn As Boolean = False
上面的代码定义了三个方法参数的数据类型指明它们是按值传送的而且第三个参数是可选的如果没有第三个参数则其缺省值为False
然后我们将在方法的定义中添加一些必要的逗号空格和底划线（_）这样才能符合VB的语法要求我们将把参数列表放在方法定义的括号中间得到的方法定义如下
Public Function ExampleMethod(ByVal strName As String _
ByVal intAge As Integer _
Optional ByVal blnAgeEmphasisOn As Boolean = False) As
