随机提取数据库记录

<%
"一个从数据库中随机读取纪录的例子
    Set Rs1=server.CreateObject ("adodb.recordset")
    Set Rs=server.CreateObject ("ADODB.RECORDSET")
    SQL="Select id from Article order by id desc"
    rs.Open sql,dataconn,3,3
    If not rs.EOF then
     total=rs("id")    "取最大的ID
     rs.Close     
    Randomize
    R=Int((total - 1+ 1) * Rnd + 1)    
    SQL="Select id,content from Article where id="& R
    rs.Open sql,dataconn,3,3
    if not rs.EOF then
    content=RS("content")
    content=replace(content,chr(10),"
")
    content=replace(content,chr(13),"
")
    content=replace(content,"

","
")
    Response.Write     content
     else
     sql1="select content from Article"
     rs1.Open sql1,dataconn,3,3
     if not eof then
     "取第一条纪录作为默认的显示纪录
     content=RS1("content")
    content=replace(content,chr(10),"
")
    content=replace(content,chr(13),"
")
    content=replace(content,"

","
")
    Response.Write     content
     else
     "数据库为空
     Response.Write "不存在"
     end if
     rs1.Close    
     end if
Rs.Close
end if
set Rs=nothing
%>