随机提取数据库记录_数据库相关_ASP教程
日期：2009-12-05 浏览次数：21287 次
<%
"一个从数据库中随机读取纪录的例子
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
%>
"一个从数据库中随机读取纪录的例子
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
%>
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
