ASP实现随机提取数据库记录例

<%
"一个从数据库中随机读取纪录的例子
SetRs1=server.CreateObject("adodb.recordset")
SetRs=server.CreateObject("ADODB.RECORDSET")
SQL="SelectidfromArticleorderbyiddesc"
rs.Opensql,dataconn,3,3
Ifnotrs.EOFthen
total=rs("id")"取最大的ID
rs.Close
Randomize
R=Int((total-1+1)*Rnd+1)
SQL="Selectid,contentfromArticlewhereid="&R
rs.Opensql,dataconn,3,3
ifnotrs.EOFthen
content=RS("content")
content=replace(content,chr(10),"<br>")
content=replace(content,chr(13),"<br>")
content=replace(content,"<br><br>","<br>")
Response.Writecontent
else
sql1="selectcontentfromArticle"
rs1.Opensql1,dataconn,3,3
ifnoteofthen
"取第一条纪录作为默认的显示纪录
content=RS1("content")
content=replace(content,chr(10),"<br>")
content=replace(content,chr(13),"<br>")
content=replace(content,"<br><br>","<br>")
Response.Writecontent
else
"数据库为空
Response.Write"不存在"
endif
rs1.Close
endif
Rs.Close
endif
setRs=nothing
%>