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

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

缂傚倷绀佸ú锕傚焻缁€鎱筪eCMS闁荤喐鐟ュΛ婵嬨€傞崼鏇炴瀬婵炲棙鍨熼弻锟�婵炴垶姊规竟鍡涘煘閺嶎厽鈷掗柨鐕傛嫹缂備礁顦遍崰鎰耿閸ヮ剙绀夐柍銉ㄦ珪閻濓拷闂備緡鍋勯ˇ杈╃礊婢跺本鍏滈柡鍥ㄦ皑闂夊秹鏌ゆ潏銊︻棖缂佹唻鎷� 闂佸搫鍟版慨鎾椽閺嶎偆鍗氭繛鍡樻尰濮ｆ劗鈧鎮堕崕閬嶅矗閿燂拷,闂佽皫鍕姢閻庤濞婂鍫曞礃椤斿吋顏熸繛鎴炴尨閸嬫捇姊哄▎鎯ф灈闁告瑥绻樺濠氭晸閿燂拷!

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

思考一个问题：怎么实现在第一次检索的基础上进行二次检索？

通常，我们的做法是第一次检索时保存检索条件，在第二次行检索时组合两次检索条件对数据库进行一次新的查询，如：

第一次检索：Select * from table where age>18

第二次检索：Select * from table where age>18 and name like 'zh%'

这样做虽可以实现我们所要的结果，但效率上个人认为却大打了折扣！

能不能缓存第一次检索的记录集，第二次检索时只在缓存的记录集上进行，而不是重新对数据库进行查询？

RecordSet对象有个属性Filter，它的作用是通过添加条件以控制欲显示的记录集，但并不影响原本的记录集！我们来看下怎么用它实现二次检索：

以下为引用的内容：
<%
Dim oConn,oRs
Set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" Server.MapPath("db1.mdb")
Set ors = Server.CreateObject("ADODB.RecordSet")
ors.Open "select * from t1 where age>20",oConn,1,2

Response.Write "一次检索：select * from t1 where age>20 "
Response.Write "---------------------------------- "
Do while not ors.Eof
Response.Write ors("name") & ":" & ors("age") & " "
ors.MoveNext
Loop
Response.Write "总计:" & ors.RecordCount & " "
Response.Write "---------------------------------- "

Response.Write "二次检索：Filter(name like '王%') "
Response.Write "---------------------------------- "
ors.Filter = "name like '王%'"
If not(oRs.Eof and ors.Bof) Then ors.MoveFirst
Do while not ors.Eof
Response.Write ors("name") & ":" & ors("age") & " "
ors.MoveNext
Loop
Response.Write "总计:" & ors.RecordCount & " "
Response.Write "---------------------------------- "

ors.Close
Set ors = Nothing
oConn.Close
Set oConn = Nothing
%>

结果：