对比起一般的while not rs.efo....多数据(1W条记录)
- <%
- start=timer()
- set rs=server.CreateObject("adodb.recordset")
- with rs
- .open "select top 50000 * from ctglossary",conn
- set gname=rs("gname"):set subgname=rs("subgname")
- do until .eof
- response.write gname
- response.write subgname
- response.write "<br/>"
- .movenext
- loop
- set gname=nothing:set subgname=nothing
- .close
- end with
- set rs=nothing 'shawl.qiu code'
- response.write "<p/>"&formatNumber((timer()-start)*1000,3)&"毫秒"
- %>