建立数据库以及表
表名:Recordset_Filter
有字段 num INT
数据
num
10
20
30
40
50
60
70
80
90
...
'链接数据库已经完成
Sql = "select Num from Num order by Num desc"
rs.open sql,conn,3,1
intCount = rs.RecordCount
'进行筛选
set rs = FilterField(rs,"num",">50")
intCount2 = rs.RecordCountrs.close
'筛选函数
Function FilterField(rsTemp, strField, strFilter)
' 在指定的记录集对象上设置筛选操作并打开一个新的记录集对象。
rsTemp.Filter = strField+strFilter '筛选条件
Set FilterField = rsTemp '返回记录集
end Function
response.write "筛选前记录数:"&intCount
response.write "筛选后记录数:"&intCount2
....
'关闭记录集以及数据连接
这样做的好处在于,只打开了一次记录集,而之后的查询是在先前的记录集基础上进行的,所以从速度上以及执行效率上都比打开多个记录集的方式来得好,由于现在记录非常少,所以没有什么体现,如果数据量非常庞大的时候就会体现出这种方式的好处了。