简单高效：不重复随机读取数据库记录

【作者：zkxp 来源：蓝色理想更新时间：2005-12-13 | 字体：大中小】

看到经常有人问这个问题。又到网上找了些看，觉得写得不满意。
大多读取记录到数组里去抽取。昨天又看到人写，心血来潮就顺手想了个，个人认为这种方法应该错吧，呵呵。刚好20行～_～
实现方法：
1。通过recordset游标可移动的特性，在已打开记录集里移动到随机位置读取记录。而且可以将就使用页面中已打开的RS对象。
2。将出现过的随机数保存到一个字符串中，通过instr函数来检查是否重复，重复则递归调用函数至不重复。

数据库打开查询若干，省略... ...
Set rs = Server.CreateObject("Adodb.RecordSet")
rs.open sql,conn,1,1

DIM Appeared
Call DisRndRecord(10,rs.recordCount)'调用函数该位置显示记录

'################SUBS################
'#DisRndRecord(DisNum,rsBound)
'#参数DisNum：显示数量
'#参数rsBound：随机数产生范围
Sub DisRndRecord(DisNum,rsBound)
 DIM i,ThisRnd
 If rsBound < DisNum Then DisNum = rsBound'记录总数小于要抽取记录条数的情况
 For i = 0 To DisNum - 1
  ThisRnd = GetRnd(rsBound)'取得一个不重复的随机数
  rs.Move(ThisRnd)'游标移动到随机数位置数读取
  Response.Write("<br>("&rs("id")&")"&rs("Title"))
  rs.Move(-ThisRnd)
 Next
End Sub
'# 函数GetRnd(bound)返回一个不重复的随机数字
'#参数bound：随机范围
Function GetRnd(bound)
 DIM ranNum
 Randomize()
 ranNum=int(bound*rnd)
 If Instr(Appeared,"["&ranNum&"]") Then'产生的随机数是否出现过
  ranNum = getRnd(bound)
 End If
 Appeared = Appeared & "["&ranNum&"]"'记录已出现的随机数
 GetRnd = ranNum
End Function

收藏此页到 IE收藏夹 POCO网摘 [365Key] [ViVi] 百度藏搜和讯网摘天极网摘狐摘向您的朋友推荐此文章
转载请注明来源：文章大全网址：http://www.itlearner.com/article/
文章关键词：随机读取
如意搜索搜索更多内容：简单高效：不重复随机读取数据库记录
特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系我们，我们会尽快予以更正。

上一篇文章：金山接手华义内地全部业务年底前合并办公
下一篇文章：asp开发规范

没有相关文章