摘要本文介绍了Internet应用程序及相关概念，并通过一个示例，介绍了使用VB创建IIS应用程序来构建交互式WEB应用的方法。
关键字Internet应用程序，IIS，HTML
MicrosoftVisualBasic6.0增强了创建Internet应用程序的功能。Internet应用程序是一种编译好的交互式应用程序，通过Internet或intranet能够访问这种应用程序。在VB中有两种类型的Internet应用程序：基于服务器的IIS应用程序和基于客户的DHTML应用程序。基于服务器的IIS应用程序驻留在WEB服务器上，应用程序使用HTTPInternet协议接受从客户端（如WEB浏览器）来的请求，处理相关的代码，然后向浏览器返回数据。IIS应用程序是一个VB应用程序，它在一个动态的、基于浏览器的应用程序中使用HTML和已编译VB代码的组合。对开发者来说，一个IIS应用程序是由一些被称为WebClass的特殊类型对象组成，而WebClass包含一系列称为Webitems的资源。WebClass是一个驻留在WEB服务器上并响应浏览器输入的VB部件,它作为应用程序的中央功能单元，处理来自浏览器的数据并向用户发送响应信息。
本文通过示例一个WEB应用--电话号码查询，说明创建IIS应用程序的一般过程。运行此程序需要IIS3.0、IIS4.0或PWS。用户在查询界面输入要查询部门相应的汉语拼音缩写或名称缩写，如为空，则提示输入部门名称；系统以表格形式返回模糊查询结果。
一、创建工程及模板
电话查询界面模板文件的代码如下：


办公电话号码查询

查询说明:
您可以直接输入各部门的全名或主要名称,也可输入各部门汉语拼音首字符缩写串;查询结果将模糊匹配您所输入的关键字.如输入'网络中心'或'wlzx'.

请输入要查询的部门:

可以看到，界面文件除了基本的HTML元素外，没有用于数据输入的元素，但多了"wc@error"等标记。Wc@标记是模板中使用的替换指示符。替换指示符是标记要用特定内容替换的位置，以备在用户请求时执行文本替换过程。这些标记具有标记前缀和标记名，标记前缀用于指示WebClass必须进行一个替换操作。通过设置每一个模板的TagPrefix属性定义标记前缀。Wc@是VB的缺省标记前缀。标记名可以识别替换的区域。执行文本替换是在一个WebClass模板文件中扫描特殊的指示符标记，然后用自定义的内容替换指示符或它们的内容。当WebClass在一个事件过程中响应WriteTemplate方法时，它自动处理这些指示符。替换完成后，响应用户一个替换过的HTML文件。
对含有标记前缀文件的处理顺序是：VB处理用户的代码，并从应用程序的一个事件处理程序中调用WriteTemplate方法。WebClass根据ProcessTag事件的代码处理并替换文件中所有前缀标记,然后将模板文件写到Response对象，WriteTemplate方法再发送模板文件到浏览器。
启动VB6，在新建工程中选择IIS应用程序。首先看到WebClass设计器，包含"HTML模板WebItems"和"自定义WebItems"。右击WebClass设计器的"HTML模板WebItems"，选择"添加HTML模板"，导入上述界面模板文件，然后将其命名为Phone_Search。如下图所示：
二、实现代码
双击WebClass设计器右边窗格的Form1标记，为表单提交动作定义一个自定义事件。该事件主要任务是接收用户输入的要查询数据，并把查询数据提交到数据库。具体代码见清单。
IIS应用程序应该指定用户首次访问时显示的内容，因此，在WebClass_Start事件中将WebClass的NextItem属性设置为Phone_Search，然后在Phone_Search_Respond事件中用模板的WriteTemplate方法将页面发送到客户端浏览器。在将页面发送到浏览器时，系统会遇到模板中的wc@标记，此时它会自动调用Phone_Search的ProcessTag事件，并把标记名字作为参数传递给事件处理过程Phone_Search_Respond，在这个过程中返回插入文档内定制标记所在位置的HTML代码。当在表单中输入数据并提交表单时，则执行Phone_Search_Form1过程，它接收表单的数据，如没有错误则调用自定义事件处理过程Searphone,该过程提交输入数据到数据源，执行查询并以表格形式返回结果集。
代码清单：
OptionExplicit
OptionCompareText
'声明全局量
DimFullNameAsString
DimstrErrorAsString
'处理标记元素过程
PrivateSubphone_search_ProcessTag(ByValTagNameAsString,TagContentsAsString,SendTagsAsBoolean)
SelectCaseLCase(TagName)
'错误信息
Case"wc@error"
IfstrError<>""Then
TagContents="

---

"
TagContents=TagContents&"请输入要查询的部门!"&_
strError&"

---

---

"
EndIf
'查询的部门
Case"wc@FullName"
TagContents=" name=""FullName"">"
EndSelect
EndSub
'响应用户请求过程
PrivateSubphone_search_Respond()
'响应用户请求，输出页面
phone_search.WriteTemplate
EndSub
PrivateSubphone_search_Form1()
strError=""
'获取表单值
FullName=Request("FullName")
'测试是否为空
IfFullName=""ThenstrError=strError&"部门不能为空!"
'如表单输入值为空，则提示输入数据，否则调用查询过程
IfstrError<>""Then
SetNextItem=phone_search
Else
SearPhone
EndIf
EndSub
PrivateSubWebClass_Start()
SetNextItem=phone_search
EndSub
PublicSubSearPhone()
DimMysqlAsString
DimDbconnAsNewADODB.Connection
DimmrdAsNewADODB.Recordset
'打开数据源
Dbconn.Open"telphone"
'构造查询SQL语句
Mysql="select*fromphonewheredepartlike'%"&FullName&"%'"&_
"ordepart_plike'%"&FullName&"%'"
'执行SQL查询
Setmrd=Dbconn.Execute(Mysql)
'输出查询结果
WithResponse
.Write""
.Write""
.Write""
.Write"

查询结果如下:

"
Ifmrd.BOFAndmrd.EOFThen'没有符合条件的值
.Write"对不起,没有相应的部门!"
Else'有符合条件的值，以表格形式输出
.Write""
.Write""
.Write"部门电话"
DoWhileNotmrd.EOF
.Write""
.Writemrd("depart")
.Write""
.Writemrd("phone_no")
.Write"
"
mrd.MoveNext
Loop
EndIf
.Write""
.Write"

谢谢使用

"
.Write""
.Write""
EndWith
'释放变量,关闭数据库连接
Setmrd=Nothing
Dbconn.close
EndSub
本例程使用了ACCESS数据库表Phone，DSN名为Telphone,表结构及部分示例数据如下。
Phone表结构:
字段名类型长度说明
PhoneID自动编号长整形主键
Depart文本20
Depart_p文本10
Phone_no文本7
示例数据:
1网管中心Wgzx2419039
2网管办Wgb2419187
3计算机系办公室Jsjxb2419237
4计算机系主任办公室Jsjxb2419236
5计算机系实验室Jsjxsys2419234
如用户输入"网管"或"wg"后，程序响应其请求，返回结果如下图所示。
三、部署IIS应用程序
一个IIS应用程序必须作为一个进程内部件或一个DLL文件被创建。象编译其它VB工程一样，选择生成DLL文件。IIS应用程序编译时产生以下文件：一个VB用于运行工程的DLL文件；一个在浏览器中宿主应用程序并产生它的运行时部件的ASP文件；一个在编译和连接工程时由连接器产生的EXP文件；一个包含工程的窗口布局信息的VBW文件。然后使用VB的打包和展开向导来部署IIS应用程序。必须部署的应用程序包括DLL文件，与工程相关的HTML页面及被HTML页面引用的文件。
四、小结
用VB构造服务器端的IIS应用程序比其它的WEB应用开发具有减少每个用户部署费用，可重复使用部件，代码和HTML分离，高效等优点；而且由于对VB环境的熟悉，可以充分利用传统的编程方法。
参考资料：MicrosoftMSDN之VisualBasic文档
(本示例程序在Windows98+PWS下运行成功)