asp随机读取数据库记录

(1)

  <%
 set rs=server.CreateObject("adodb.recordset")
  rs.open "select * from news",conn,1,1
   if not (rs.eof and rs.bof) then
   'rs.movefirst
    randomize   '初始化一个随机数
    i=int(rs.recordcount*rnd())
    rs.move i
    news_id=rs("news_id")
    name=rs("news_title")
 
end if
rs.close
%>
id=<%=news_id%>

name=<%=name%>

(2)

MSSQL数据库：sql="select top 10 * from table order by newid()"
'“newid”不能被定义为字段名，必须有主键。

Access数据库：sql="select top 10 * from table order by rnd(id)"
'“id”为字段名，主键。