随机读取不重复的多条数据

<%
   set rs=server.CreateObject("adodb.recordset")
   rs.open "select top 1 id from 数据库名 order by id desc",conn,1,1   //读取最大id
   if not rs.bof and not rs.eof then
   maxid=rs("id")
   end if
  rs.close
  set rs=nothing
 
   function suiji()   //计算随机数
    Randomize
    suiji=Int((maxid - 1+ 1) * Rnd + 1)
   end function
  
   dim sql
   sql="select top 4 id,title from 数据库名 where id>"&suiji()   //读取id大于随机数的4条记录
   set rs=server.CreateObject("adodb.recordset")
   rs.open sql,conn,1,1
   do while not rs.eof
      response.Write("你现在随即提取的记录的id是"&rs("id")&"你现在随即提取的记录的标题是"&rs("title")&"<br>")
   rs.movenext
 loop
 rs.close
 set rs=nothing
  
   %>