使用Filter實現(xiàn)信息的二次檢索(2)_ASP教程

教程Tag：暫無Tag,歡迎添加,賺取U幣!

推薦：ASP 3.0高級編程(三十一)
7.1.2 語義或“運行期”錯誤語法錯誤的發(fā)現(xiàn)和處理是令人煩惱的，但在編程中會遇到一些真正“令人興奮”的另一類型的錯誤——語義錯誤（semantic error）或稱&ld

但這還有一個問題：很多情況下兩次檢索并不是同時進行的，而是在第一次檢索完成后手動輸入條件再進行二次檢索，所以我們得想辦法在二次檢索時第一次檢索的記錄集仍存在！我們可以用Session對象！將Connection對象和RecordSet對象都保存在Session中，實現(xiàn)如下：

以下為引用的內容：
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/>"
%>

結果：