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监视终端
快速导航

Copyright © 2016 phpStudy |