一个数据显示,的确很快

对比起一般的while not rs.efo....多数据(1W条记录)

1. <%
2.          start=timer()
3.     set rs=server.CreateObject("adodb.recordset")
4.         with rs
5.         .open "select top 50000 * from ctglossary",conn
6.             set gname=rs("gname"):set subgname=rs("subgname")
7.                 do until .eof
8.                     response.write gname
9.                     response.write subgname
10.                     response.write "<br/>"
11.                     .movenext
12.                 loop
13.             set gname=nothing:set subgname=nothing
14.         .close
15.         end with
16.     set rs=nothing 'shawl.qiu code'
17.         response.write "<p/>"&formatNumber((timer()-start)*1000,3)&"毫秒"
18. %>