使用Filter实现信息的二次检索(2)_ASP教程

教程Tag：暂无Tag,欢迎添加,赚取U币!

推荐：ASP 3.0高级编程(三十一)
7.1.2 语义或“运行期”错误语法错误的发现和处理是令人烦恼的，但在编程中会遇到一些真正“令人兴奋”的另一类型的错误——语义错误（semantic error）或称&ld

但这还有一个问题：很多情况下两次检索并不是同时进行的，而是在第一次检索完成后手动输入条件再进行二次检索，所以我们得想办法在二次检索时第一次检索的记录集仍存在！我们可以用Session对象！将Connection对象和RecordSet对象都保存在Session中，实现如下：

以下为引用的内容：
List.asp：

<%
Set Session("conn")=Server.CreateObject("ADODB.Connection")
Session("conn").Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" Server.MapPath("db1.mdb")
Set Session("rs") = Server.CreateObject("ADODB.RecordSet")
Session("rs").Open "select * from t1 where age>20",Session("conn"),1,2

Response.Write "一次检索：select * from t1 where age>20<br/>"
Response.Write "----------------------------------<br/><br/>"
Do while not Session("rs").Eof
Response.Write Session("rs")("name") & ":" & Session("rs")("age") & "<br/>"
Session("rs").MoveNext
Loop
Response.Write "总计:" & Session("rs").RecordCount & "<br/>"
Response.Write "----------------------------------<br/><br/>"
%>
<form action="search.asp" method="post" name="form1" target="_blank">
二次检索：
<input name="f" type="text" id="f">
<input type="submit" name="Submit" value="提交">
</form>

Search.asp：

<%
Response.Write "二次检索条件：" & Trim(Request("f")) & "<br/>"
Response.Write "----------------------------------<br/><br/>"

Session("rs").Filter = ""
Session("rs").Filter = Trim(Request("f"))
If not(Session("rs").Eof and Session("rs").Bof) Then Session("rs").MoveFirst
do while not Session("rs").Eof
Response.Write Session("rs")("id") & ":" & Session("rs")("name") & "<br/>"
Session("rs").MoveNext
loop
Response.Write "总计:" & Session("rs").RecordCount & "<br/>"
Response.Write "----------------------------------<br/>"
%>

结果：