ASP实现随机提取数据库记录例程_ASP教程_编程技术--HTML5中文学习网

ASP实现随机提取数据库记录例程_ASP教程_编程技术

2013-12-19 13:08:10 [小大] 已经帮助：人解决问题

数据|数据库|随机

<%
"一个从数据库中随机读取纪录的例子
 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
%>

（责任编辑：）