asp下实现记录集内随机取记录的代码


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

<%
' 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
%>




相关阅读:
MySQL for Linux (x86,libc6,Intel C++ Compiler)下载列表
使用Try…Catch块进行T-SQL错误处理
VBS编程教程 (第3篇)
HTML表格标记教程(35):跨列属性COLSPAN
在Ubuntu下试用OpenOffice.org 3 Beta
Server Core 下执行IIS7 的完整安装
迁移秘诀: 方便 Exchange 2000 迁移的 Exmerge 2000
sql 函数大全 比较常用的一些函数整理
Windows2003配置TCP/IP并测试
MySQL的启动和连接
tomcat 3.1在RedHat下的安装
Windows 系统蓝屏分析工具
查找行中的第一个数据串
FreeBSD 使用watch监视终端
快速导航
PHP MySQL HTML CSS JavaScript MSSQL AJAX .NET JSP Linux Mac ASP 服务器 SQL jQuery C# C++ java Android IOS oracle MongoDB SQLite wamp 交通频道 作文范文 一年级数学期中考试总结 小学五年级作文400字:课堂小插曲 忆《浪淘沙·元宵愁》 兔子与猴子 你就是我今生目标 天行者的读后感 致曾抑郁的自己 汤姆索亚历险记读后感1400字 妈妈的面孔作文600字 2014年商务局纪检监察领导述职述廉报告 我的朋友吴霄汉 精美小制作作文300字 但看锦瑟流年—新春感悟 花开富贵 一声丫头是三世情愫的倾泻 花瓶友情 思想正向才是道,行为无过便是德 《缔结》诗歌 做早饭作文400字 免费中考文言文复习资料大全(一) 祝福健康的话 2010年保证创先争优活动得以实效的心得体会 美妙之旅清河坊篇 我过了一把瘾 孙翔宇 选择大企业还是小企业(Choice of large enterprises or small en “两学一做”学习教育活动宣传标语18条 爱情保持期到底有多久 请给我一块大大的面包 实用的中国少年先锋队入队申请书 王老五的喜事多多 我拾起此刻的孤独 我的“小银行”500字 让我最为难的一件事作文600字 我想对母亲说句心里话 新来的小狗 [图文]难言的痛苦之疯狂兔子 季度服装销售工作总结范文 雨天 她的爱 我记得作文1000字 初中初一作文650字:鸟巢的建筑者——喜鹊 中秋发给男朋友父母的祝福短信 中秋作文:中秋杂感 2015农村精准扶贫工作调研报告 老炮儿影评 让我永不迷路! 偷情(二十) 你改变了自己,就改变了一切 2015白酒销售合同范本 豪夫童话读后感 二年级 梦,在青春作文500字

Copyright © 2016 phpStudy |