自定义的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
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/8781179/viewspace-925256/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/8781179/viewspace-925256/