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

王朝asp·作者佚名  2006-11-24
宽屏版  字体: |||超大  

<%

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

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

%>

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
© 2005- 王朝网络 版权所有