利用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

[@more@]

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/8781179/viewspace-925256/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/8781179/viewspace-925256/