简单高效:不重复随机读取数据库记录
2008-02-23 09:46:42来源:互联网 阅读 ()
看到经常有人问这个问题。又到网上找了些看,觉得写得不满意。
大多读取记录到数组里去抽取。昨天又看到人写,心血来潮就顺手想了个,个人认为这种方法应该错吧,呵呵。刚好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
标签:
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有
上一篇:ASP和PHP对象的等价关系
IDC资讯: 主机资讯 注册资讯 托管资讯 vps资讯 网站建设
网站运营: 建站经验 策划盈利 搜索优化 网站推广 免费资源
网络编程: Asp.Net编程 Asp编程 Php编程 Xml编程 Access Mssql Mysql 其它
服务器技术: Web服务器 Ftp服务器 Mail服务器 Dns服务器 安全防护
软件技巧: 其它软件 Word Excel Powerpoint Ghost Vista QQ空间 QQ FlashGet 迅雷
网页制作: FrontPages Dreamweaver Javascript css photoshop fireworks Flash