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

<%

"一个从数据库中随机读取纪录的例子

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),"<br>")

content=replace(content,chr(13),"<br>")

content=replace(content,"<br><br>","<br>")

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),"<br>")

content=replace(content,chr(13),"<br>")

content=replace(content,"<br><br>","<br>")

Response.Write content

else

"数据库为空

Response.Write "不存在"

end if

rs1.Close

end if

Rs.Close

end if

set Rs=nothing

%>