'链接数据库已经完成
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

....
'关闭记录集以及数据连接

这样做的好处在于,只打开了一次记录集，而之后的查询是在先前的记录集基础上进行的，所以从速度上以及执行效率上都比打开多个记录集的方式来得好，由于现在记录非常少，所以没有什么体现，如果数据量非常庞大的时候就会体现出这种方式的好处了。