If rsQuery.EOF Then %><font color="#FF0000">没有适合您的查询</font><%Else %>
<table><% Do While Not rsQuery.EOFIf rsQuery("doctitle") <> "" Then %><tr><td><a href="<% = rsQuery("vpath") %>"><% = rsQuery("doctitle") %></a></td></tr><% End IfrsQuery.MoveNextLoopResponse.Write "</table>"End IfEnd If %></form></body></html>当第一次运行程序时,由于txtQuery变量为空,这样只显示程序的数据输入表单,此时如果输入查询单词“青海省”,程序将自身调用,显示出两个表单.