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

最新推荐文章于 2021-01-26 16:14:30 发布

最新推荐文章于 2021-01-26 16:14:30 发布 · 484 阅读

文章标签：

#ASP #SQL Server #SQL

本文介绍了一个使用ASP和ADO从数据库中随机选择记录并显示其内容的示例。首先获取最大记录ID，然后通过随机数生成器选取一个ID，并读取对应的内容。如果随机选取的记录不存在，则显示第一条记录内容。

<%
"一个从数据库中随机读取纪录的例子
SetRs1=server.CreateObject("adodb.recordset")
SetRs=server.CreateObject("ADODB.RECORDSET")
SQL="SelectidfromArticleorderbyiddesc"
rs.Opensql,dataconn,3,3
Ifnotrs.EOFthen
total=rs("id")"取最大的ID
rs.Close
Randomize
R=Int((total-1+1)*Rnd+1)
SQL="Selectid,contentfromArticlewhereid="&R
rs.Opensql,dataconn,3,3
ifnotrs.EOFthen
content=RS("content")
content=replace(content,chr(10)," ")
content=replace(content,chr(13)," ")
content=replace(content," "," ")
Response.Writecontent
else
sql1="selectcontentfromArticle"
rs1.Opensql1,dataconn,3,3
ifnoteofthen
"取第一条纪录作为默认的显示纪录
content=RS1("content")
content=replace(content,chr(10)," ")
content=replace(content,chr(13)," ")
content=replace(content," "," ")
Response.Writecontent
else
"数据库为空
Response.Write"不存在"
endif
rs1.Close
endif
Rs.Close
endif
setRs=nothing
%>