(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”為欄位名，主鍵。