最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
随机提取数据库记录
时间:2022-06-30 10:46:33 编辑:袖梨 来源:一聚教程网
<%
"一个从数据库中随机读取纪录的例子
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
%>
"一个从数据库中随机读取纪录的例子
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
%>
相关文章
- 解限机闪退怎么办 闪退解决办法一览 07-10
- 币安app官方下载最新版 币安app官方下载最新版v2.25.2 07-10
- 死亡搁浅2第一场BOSS战怎么打 打法攻略详解 07-10
- 死亡搁浅2处置匪帮的焦油药怎么做 匪帮焦油药完成方法 07-10
- 激励懒人的话励志精选34句 07-10
- 大侠立志传爱猫失踪任务怎么做-爱猫失踪任务完成方法 07-10