(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%><br>
name=<%=name%><br>
(2)
MSSQL数据库:sql="select top 10 * from table order by newid()"
'“newid”不能被定义为字段名,必须有主键。
Access数据库:sql="select top 10 * from table order by rnd(id)"
'“id”为字段名,主键。