用VB实现WEB交互式应用 作者： 西南工学院 刘宗良 杨 薇 评价： 上站日期: 2002-05-22 内容说明： 来源： 摘要 本文介绍了Internet应用程序及相关概念，并通过一个示例，介绍了使用VB创建IIS应用程序来构建交互式WEB应用的方法。关键字 Internet应用程序，IIS，HTMLMicrosoft Visual Basic 6.0增强了创建Internet应用程序的功能。Internet应用程序是一种编译好的交互式应用程序，通过Internet或intranet能够访问这种应用程序。在VB中有两种类型的Internet应用程序：基于服务器的IIS应用程序和基于客户的DHTML应用程序。基于服务器的IIS应用程序驻留在WEB服务器上，应用程序使用HTTP Internet协议接受从客户端（如WEB浏览器）来的请求，处理相关的代码，然后向浏览器返回数据。IIS应用程序是一个VB应用程序，它在一个动态的、基于浏览器的应用程序中使用HTML和已编译VB代码的组合。对开发者来说，一个IIS应用程序是由一些被称为WebClass的特殊类型对象组成，而WebClass包含一系列称为Webitems的资源。WebClass是一个驻留在WEB服务器上并响应浏览器输入的VB部件,它作为应用程序的中央功能单元，处理来自浏览器的数据并向用户发送响应信息。本文通过示例一个WEB应用--电话号码查询，说明创建IIS应用程序的一般过程。运行此程序需要IIS3.0、IIS4.0 或 PWS。用户在查询界面输入要查询部门相应的汉语拼音缩写或名称缩写，如为空，则提示输入部门名称；系统以表格形式返回模糊查询结果。一、创建工程及模板电话查询界面模板文件的代码如下：< html> < body bgcolor="#F6FAFF"> < p align="center"> < font size="6" face="幼圆"> < strong> 办公电话号码查询< /strong> < /font> < /p> < p> < font size="4" face="黑体"> 查询说明:< /font>  您可以直接输入各部门的全名或主要名称,也可输入各部门汉语拼音首字符缩写串;查询结果将模糊匹配您所输入的关键字.如输入'网络中心'或'wlzx'.< /p> < hr size="1" color="#008080"> < form method="POST"> < wc@error> < /wc@error>  < p align="center"> < font size="4"> 请输入要查询的部门:< /font> < /p> < wc@FullName> < /wc@FullName> < p align="center"> < font size="4"> < input type="submit" name="submit" value="发送" style="font-size: 15pt; font-family: 幼圆">  < input type="reset" name="reset" value="重设" style="font-family: 幼圆; font-size: 15pt"> < /font> < /p> < /form> < hr size="1" color="#008080"> < /body> < /html> 可以看到，界面文件除了基本的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,该过程提交输入数据到数据源，执行查询并以表格形式返回结果集。  代码清单：Option ExplicitOption Compare Text'声明全局量Dim FullName As StringDim strError As String'处理标记元素过程Private Sub phone_search_ProcessTag(ByVal TagName As String, TagContents As String, SendTags As Boolean)Select Case LCase(TagName)'错误信息Case "wc@error"If strError < >  "" ThenTagContents = "< hr> < font color=""red""> "TagContents = TagContents & "请输入要查询的部门!" & _strError & "< br> < hr> < /font> < br> < hr> "End If'查询的部门Case "wc@FullName"TagContents = "< center> < input type=""text"" value=""" & FullName & """ name=""FullName""> < /center> "End SelectEnd Sub'响应用户请求过程Private Sub phone_search_Respond()'响应用户请求，输出页面phone_search.WriteTemplateEnd SubPrivate Sub phone_search_Form1()strError = ""'获取表单值FullName = Request("FullName")'测试是否为空If FullName = "" Then strError = strError & "< i> 部门不能为空!< /i> "'如表单输入值为空，则提示输入数据，否则调用查询过程If strError < >  "" ThenSet NextItem = phone_searchElseSearPhoneEnd IfEnd SubPrivate Sub WebClass_Start()Set NextItem = phone_searchEnd SubPublic Sub SearPhone()Dim Mysql As StringDim Dbconn As New ADODB.ConnectionDim mrd As New ADODB.Recordset'打开数据源Dbconn.Open "telphone"'构造查询SQL语句Mysql = "select * from phone where depart like '%" & FullName & "%'" & _" or depart_p like '%" & FullName & "%'"'执行SQL查询Set mrd = Dbconn.Execute(Mysql)'输出查询结果With Response.Write "< html> ".Write "< body> ".Write "< title> Search Results< /title> ".Write "< h1> < font face=""Arial""> 查询结果如下:< /font> < /h1> "If mrd.BOF And mrd.EOF Then '没有符合条件的值.Write "< center> 对不起,没有相应的部门!< /center> "Else '有符合条件的值，以表格形式输出.Write "< center> ".Write "< table border=""5"" wide=""50%""> ".Write "< tr> < td> 部 门< /td> < td> 电 话< /td> "Do While Not mrd.EOF.Write "< tr> < td> ".Write mrd("depart").Write "< /td> < td> ".Write mrd("phone_no").Write "< /td> < br> "mrd.MoveNextLoopEnd If.Write "< /table> ".Write "< h1> < font face=""Arial""> 谢谢使用< /font> < /h1> ".Write "< /body> ".Write "< /html> "End With'释放变量,关闭数据库连接Set mrd=NothingDbconn.closeEnd Sub本例程使用了ACCESS数据库表Phone，DSN名为Telphone,表结构及部分示例数据如下。Phone表结构:字段名 类型 长度 说明PhoneID 自动编号 长整形 主键Depart 文本 20 Depart_p 文本 10 Phone_no 文本 7 示例数据:1 网管中心 Wgzx 24190392 网管办 Wgb 24191873 计算机系办公室 Jsjxb 24192374 计算机系主任办公室 Jsjxb 24192365 计算机系实验室 Jsjxsys 2419234如用户输入"网管"或"wg"后，程序响应其请求，返回结果如下图所示。三、部署IIS应用程序一个IIS应用程序必须作为一个进程内部件或一个DLL文件被创建。象编译其它VB工程一样，选择生成DLL文件。IIS应用程序编译时产生以下文件：一个VB用于运行工程的DLL文件；一个在浏览器中宿主应用程序并产生它的运行时部件的ASP文件；一个在编译和连接工程时由连接器产生的EXP文件；一个包含工程的窗口布局信息的VBW文件。然后使用VB的打包和展开向导来部署IIS应用程序。必须部署的应用程序包括DLL文件，与工程相关的HTML页面及被HTML页面引用的文件。四、小结用VB构造服务器端的IIS应用程序比其它的WEB应用开发具有减少每个用户部署费用，可重复使用部件，代码和HTML分离，高效等优点；而且由于对VB环境的熟悉，可以充分利用传统的编程方法。参考资料：Microsoft MSDN 之Visual Basic文档

评论