记录集内随机取记录的代码


<%
' Moving to random record - Steven Jones' Extension
If Not(记录集名称.bof and 记录集名称.eof) Then
' reset the cursor to the beginning
If (记录集名称.CursorType > 0) Then
记录集名称.MoveFirst
Else
记录集名称.Requery
End If

记录集名称_totalrn = -1
记录集名称_totalrn = 记录集名称.RecordCount ' ony works on some recordsets, but much faster
If (记录集名称_totalrn = -1) Then ' and if it didn't work, we still have to count the records.

' count the total records by iterating through the recordset
记录集名称_totalrn=0
While (Not 记录集名称.EOF)
记录集名称_totalrn = 记录集名称_totalrn + 1
记录集名称.MoveNext
Wend

' reset the cursor to the beginning
If (记录集名称.CursorType > 0) Then
记录集名称.MoveFirst
Else
记录集名称.Requery
End If

End If

' now do final adjustments, and move to the random record
记录集名称_totalrn = 记录集名称_totalrn - 1
If 记录集名称_totalrn > 0 Then
Randomize
记录集名称.Move Int((记录集名称_totalrn + 1) * Rnd)
End If
End If
' all done; you should always check for an empty recordset before displaying data
%>



相关阅读:
Linux系统下如何查看已经登录用户
asp下取得客户端IP地址函数 转换IP地址函数
Javascript 字符串字节长度计算函数代码与效率分析(for VS 正则)
sqlserver isnull在数据库查询中的应用
实现一个年、月、季度联动SELECT的javascript代码
jQuery学习笔记[1] jQuery中的DOM操作
安装配置篇(一)---Apache+Tomcat
靠我们自己的力量把IE6推向灭亡
ASP实例教程:Server对象
杏林同学录(一)
XFree86 4.2+ on FreeBSD的中文问题
不用任何软件!XP本身功能隐藏文件
php设计模式 Adapter(适配器模式)
VBS教程:方法-FileExists 方法
快速导航
PHP MySQL HTML CSS JavaScript MSSQL AJAX .NET JSP Linux Mac ASP 服务器 SQL jQuery C# C++ java Android IOS oracle MongoDB SQLite wamp 交通频道 作文范文 何必计较 2013年老干部局述职报告 县委老干部工作局工作思路和要求 唯有爱拯救灵魂第一章一 我为小区回收废电池650字 所谓的一见钟情? 一个人的素淡日子 我消失在某个角落里,把寂寞永远留在身边 我爱下雪350字 小学五年级作文600字:迷人的秋天 宝贝,听我解释完,好吗?我是真的爱你 可爱的机器人 财务处处长述职述廉报告 2015幼儿国培心得体会 关于汕头大学06级中文系学生读书情况的调查报告 40句让你看了会心痛的话 小学五年级作文450字:“我”的产品说明书 不想近视 我手机永远为你开着机 赠同窗旧友 原来做家务很辛苦1200字 瞧,我的朋友500字 宁可高傲的发霉,也不低调的凑合 灰暗的日子 与流感战斗 东北财经大学MBA学院论文开题报告申请书 电脑——我的好帮手作文300字 我的成长1000字 神曲和马作文1600字 秋日小记作文350字 成功跳槽的4大要素 书是人类最大的财富作文600字 街道卫生院党支部开展创先争优活动方案 退休人员劳务合同样本 和珊迪比童年 乡干部作风建设实施方案 09年领导班子述职述廉报告(主任篇) 赠王屋刘道士 平面实习工作小结两篇 凤头,凤头,高分不愁(待发表) 孤独的语句 2016人口和计划生育工作总结暨工作思路 高中高三作文1200字:公园四重奏 鲸鲨来袭的时候 青年团员思想汇报范文 小学四年级作文400字:浅谈“沟通” 酒店销售部经理述职报告1000字 爱你的N个理由300字 清明节扫墓仪式讲话 写给闺蜜的句子,写给闺蜜的话,关于闺蜜的句子

Copyright © 2016 phpStudy |