记录集内随机取记录的代码
<%
' 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
%>
asp下实现记录集内随机取记录的代码
2019-10-04 17:21asp代码网 ASP教程
asp下实现记录集内随机取记录的代码
延伸 · 阅读
- 2019-10-04asp下用datediff实现计算两个时间差的函数
- 2019-10-04asp下轻松实现将上传图片到数据库的代码
- 2019-10-04asp下生成目录树结构的类
- 2019-10-04fso asp生成静态html的代码
- 2019-10-04ASP版实现cookies注入加速工具
- 2019-09-30ASP实现网页打开任何类型文件都提示保存的方法
精彩推荐
- ASP教程
asp select下拉菜单选择图标并实时显示
直接在下拉菜单中的option选项中赋予路径,用asp循环输出...
- ASP教程
asp中将相对路径转换为绝对路径的函数代码
一个将绝对路径转换为相对路径的asp函数,需要的朋友可以收藏下。...
- ASP教程
使用 Osql 工具管理 SQL Server 桌面引擎 (MSDE 2000)应用介绍
SQL Server 桌面引擎(也叫 MSDE 2000)没有自己的用户界面,因为它主要设计为在后台运行...
- ASP教程
asp实现后台添加wma视频文件前台显示
想用asp来实现后台添加wma视频文件,前台显示所添加的这个视频文件,本文提供实现代码...
- ASP教程
两个非常规ASP木马(可躲过扫描)
两个非常规ASP木马 为了躲避 lake2 ASP站长管理助手而写...
- ASP教程
ASP实现加法验证码
这篇文章主要介绍了ASP实现加法验证码,是在原来的验证码基础上进行创新,将验证码改为加法运算,感兴趣的小伙伴们可以参考一下...
- ASP教程
隐蔽的ASP后门 大家可以查看下
这段代码可以隐藏在asp文件中,大家可以搜索一些特点的关键字,查看文件的修改日期,看看是不是有如下的代码。...
- ASP教程
server.mappath方法详解
server.mappath方法整理,可供需求的朋友参考...