asp+access获取不重复的随机记录

最近项目需要实现一个随机读取不重复的记录功能，用的是access数据库，一般有两种思路，一种是读取全部记录，存入数组，然后产生随机数组索 引，其实没必要那么麻烦，直接在SQL语句里操作就可以。

实例代码：

'-----------示例来源: http://www.bhcode.net------------
'-----------在线 提问: http://club.bhcode.net-----------
'-----------技术讨论 群：54135045-----------------------

dim conn,rs,sql

set conn = Server.CreateObject("adodb.connection")
 conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("test.mdb")

set rs = Server.CreateObject("adodb.recordset")
    sql = "select * from a order by rnd(time()-id)"
 rs.open sql,conn,1,1
 if not rs.eof then
   do until rs.eof
     response.Write(rs("id")&"<br>")
   rs.movenext
   loop
 end if
 rs.close
 set rs = nothing

conn.close
set conn = nothing

完整实例代码下载地址：http://www.bhcode.net/code/6794.html