首页 > > 网络编程 > Asp编程 >

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

2008-02-23 09:35: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)," ")
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
%>

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有