随机访问数据库中某个表的一条记录

一般一个表都有一个唯一的标识，这里假设这个标识字段为ID
分四步:
1、取得该表记录总数n。
2、把所有的ID号存储到一个数组中IDs()
3、产生一个不大于n的随机数m
4、从数组中取出第m个ID号，查询数据表，取得记录数据。
下面是代码(不包括数据库连接)：
<%
dim stips()
co=0
set rs=server.createobject("adodb.recordset")
sql="select [id] from stips"
rs.open sql,conn,1,1
if rs.eof and rs.bof then  
response.write "还没有任何小知识哦!"
else
do while not rs.eof  '循环保存id到数组
    redim preserve stips(co)
    stips(co)=rs("id")
    co=co+1
    rs.movenext
loop
rs.close
set rs=nothing

Randomize()
id=stips(int(rnd()*co)) '生成随机数,并查询数组内随机数对应的ID
set rs=server.createobject("adodb.recordset")  
sql="select * from stips where id="&id  '查询数据库
rs.open sql,conn,1,1
response.write rs("content")   '这里假设数据库有一个content字段
rs.close  
set rs=nothing
end if
conn.close
set conn=nothing
%>

文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: 随机访问随机访问
相关日志: