繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 随机访问Recordset的一条记录
- ASP
- 用密码保护页面 (II)
- 用密码保护页面 (III)
- 简单的文件目录浏览源程序
- ASP中的函数应用方法及应用举例(一)
- ASP中的函数应用方法及应用举例(二)
- 完整的访问统计系统（一：数据库篇）
- 完整的访问统计程序（二 程序篇）
- 完整的访问统计程序(三 应用篇)
- 一个提供用户输入时期的绝好程序之(一)
- 一个提供用户输入时期的绝好程序之(二)
- 构建你的网站新闻自动发布系统之五
- 构建你的网站新闻自动发布系统之六
- 完整的访问统计程序（二 程序篇）
- 完整的访问统计程序(三 应用篇)
- ASP环境下邮件列表功能的实现 （一）
- ASP环境下邮件列表功能的实现 （二）
- ASP环境下邮件列表功能的实现 （三）
- ASP环境下邮件列表功能的实现 （四）
- ASP进阶之文章在线管理更新(1)
- ASP进阶之文章在线管理更新(2)
ASP 中的 随机访问Recordset的一条记录
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 242 ::
收藏到网摘: n/a
1、取得记录总数n。
2、把所有的ID号存储到一个数组中
3、产生一个不大于n的随机数m
4、从数组中取出第m个ID号，查询数据表，取得记录数据。
下面是部分代码：
$#@60;%
set conn = Server.CreateObject(‘ADODB.Connection‘)
conn.open ‘$#@60;conn string$#@62;‘
‘ ***** (step 1) *****
set rs = conn.execute(‘Select count(id) from someTable‘)
rCount = rs(0)
‘ ***** (step 2) *****
set rs = conn.execute(“select id from someTable”)
cnt = 1
dim RRs
redim RRs(rCount)
do while not rs.eof
RRs(cnt) = rs(0)
cnt = cnt + 1
rs.movenext
loop
‘ ***** (step 3) *****
randomize
currentRR = cLng(rnd*rCount+0.5)
ID = RRs(currentRR)
‘ ***** (step 4) *****
sql = “select otherfield from someTable where id=” & ID
set rs = conn.execute(sql)
response.write “ID # ” & ID & “ = ” & rs(0)
rs.close: set rs = nothing
conn.close: set conn = nothing
%$#@62;
对于SQL Server，还有更加有效率的方法。比如设计两个存储过程。我这里只是阐明一些思路，并希望这种思路可以同时用在Access和SQL Server中。
评论 (0) All
