利用VB6.0开发基于IIS的应用程序

3、添加自定义的Webitem到Webclass

　　自定义的Webitem允许你通过VisualBasic代码动态地向浏览器发送响应。自定义的Webitem通常是一组过程代码。IIS应用程序中的大多数处理发生在自定义Webitem的事件过程中。IIS应用程序接收HTML页面的请求，与Webitem的事件进行匹配，并运行相应的事件过程代码。例如，我们添加一个名为SearchResult的自定义Webitem。它使用Request对象在SearchCondition页面窗体中获取用户输入的查询条件，然后建立一个连接到ADO公文数据库，创建记录集并从中检索满足条件的信息。

Private Sub SearchResult_Respond() 　′为获取窗体的信息声明变量 　Private sDate1 as String 　Private sDate2 as String 　Private sTitle as String 　Private sCode as String 　′获取窗体参数并赋给变量 　sDate1=Request.Form("date1") 　sDate2=Request.Form("date2") 　sTitle=Request.Form("title") 　sCode=Request.Form("code") 　′为数据库连接和记录集声明对象变量 　Dim cn As New ADODB.Connection 　Dim rs As New ADODB.Recordset 　Dim QueryStr As String′ 　'形成SQL数据查询字符串 　QueryStr="select form 公文 where "&"日期＞="&"#" & sDate1 &"#"& "and" &"日期＜="&"# "& sDate2 & "#"&" and" &"文件标题like" & "* "&" *"& sTitle & “ * "&"*"& "and" &"文件字号like"&"*"&" "& sCode&" * "&"" ′建立数据库连接 　cn.ConnectionString="DSN=doc；UID=sa； 　PWD=sa；DATABASE=document" 　cn.Open 　′创建记录集 　Open QueryStr，cn，adOpenStatic，adlockReadonly 　′将结果信息逐个记录地写到一个表格 　With Response 　　.Write "＜HTML＞” 　　.Write "＜BODY＞" 　　.Write "＜TABLE BORDER CELLSPACING=1 CELLPADDING=7＞" 　　Do While rs.EOF=False 　　　.Write "＜TR＞＜TD＞" 　　　.Write rs("文件标题") 　　　.Write "＜/TD＞＜TD＞" 　　　.Write rs("文件字号") 　　　.Write "＜/TD＞＜TD＞" 　　　.Write rs("日期") 　　　.Write "＜/TD＞＜TR＞" 　　　.Write rs("责任单位") 　　　.Write "＜/TD＞＜TR＞" 　　　.Write rs("主题词") 　　　.Write "＜/TD＞＜TR＞" 　　　rs.MoveNext 　　Loop 　　.Write"＜/TABLE＞" 　　.Write"＜/BODY＞" 　　.Write"＜/HTML＞" 　End With′ 　'关闭记录集和数据库连接 　rs.Close 　cn.Close End Sub

　　4、调试IIS应用程序

　　调试一个IIS应用程序的方法和调试其他VisualBasic应用程序一样，都是通过进入运行模式来进行的。VisualBasic为IIS应用程序创建虚拟目录，使用浏览器打开相应.asp文件启动Webclass。调试时，可以使用VisualBasic的所有工具来调试你的工程。如设置断点、查看变量、调试语句等。

　　5、部署IIS应用程序

　　可以使用VisualBasic打包和展开向导来包装和部署你的IIS应用程序。打包和展开向导将工程的.DLL文件和所有相关的文件包装到一个“压缩包”或.cab文件中。然后可以部署这个压缩包文件和相关文件到一个Web服务器上。

　　三、小结

　　利用VisualBasic开发IIS应用程序，不但可以使用VisualBasic的类模块和ActiveX部件，而且能够使用VisualBasic所有的工具来调试IIS应用程序。这种开发方法大大简化了IIS应用程序的开发过程，使我们更加方便地建立功能强大的Web站点。

查看本文来源