获取随机记录

在开发过程中我们常常需要取得随机记录，通过比较觉得以下两种是通过验证的最可行的方法。
mssql数据库去随机N条记录方法：
<%
set rs=server.CreateObject("adodb.recordset")
sql="select top 4 * from news order by newid()"
rs.open sql,conn,1,1
if not rs.eof then
 do while not rs.eof
 response.Write rs("id")&"---"&rs("title")&"<br>"
 rs.movenext
 loop
end if
rs.close
set rs=nothing
%>
access数据库去随机N条记录方法：
<%
n=10 '取任意10条记录
set rs = server.createobject ("adodb.recordset")
sql = "select * from news"
rs.open sql,conn,1,1
count=rs.recordcount '记录总数
if count<>empty then
randomize
for i=1 to n '循环n次
num=fix(rnd*count) 'num便是随机产生的记录行数，用fix()，使其不会大于count值
rs.move num '移到改随机行
response.write rs("id")&"---"&rs("title")&"<br>" '出该条记录
rs.movefirst '别忘了再把指针移到第一条
next
end if
rs.close
set rs=nothing
%>