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