繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > asp下sql和access数据库随机取10条记录的代码newid()
- ASP
- ASP 编程中20个非常有用的例子（一）
- ASP 编程中20个非常有用的例子（二）
- ASP基础教程：ADO存取数据库时如何分页显示
- ASP基础教程：其它的ASP常用组件
- ASP基础教程：学习ASP中子程序的应用
- ASP基础教程之ASP程序对Cookie的处理
- ASP基础教程之实例学习ASP Response 对象
- ASP基础教程之ASP AdRotator 组件的使用
- ADO初学者教程：ADO 通过GetString()加速脚本
- 初学者来认识OLEDB和ODBC的区别
- ASP常见数学函数 Abs Atn Cos 等详细详解
- VBScript新手入门初学教程：VBScript简介
- 有用的无声递交表单的客户端函数
- Windows 2003 安装设置iis
- ASP技巧实例：几行代码解决防止表单重复提交
- ASP读sql数据时出现乱码问题的解决方法
- ASP技巧实例：使用ASP记录在线用户的数量
- ASP技巧实例：关于对表单操作的程序
- ASP技巧实例：ASP实现最简洁的多重查询的解决方案
- ASP实例：利用缓存提高数据显示效率
ASP 中的 asp下sql和access数据库随机取10条记录的代码newid()
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 59 ::
收藏到网摘: n/a
利于搜索从表中随机取几条不重复记录，一般都是10条，我就用了40条，大约的代码就是下面的了 MSSQL:select top 10 * from [table] order by newid()
ACCESS:
复制代码 代码如下:
'以利用rs.move嘛
'如随机取10条
n = 10
'先要判断总记录数是否少于10，若小于10，则有多少取多少 if n>10 rs.recordCount then n=rs.recordCount
dim ranNum
for i = 1 to n
Randomize()
ranNum = int(rs.recordCount*rnd)+1 '产生一个随机数
rs.Move ranNum '移动游标到随机数位置
response.write i & "-" & rs("title") & "<br />" '输出内容
rs.Move -ranNum
next
'……
思路是这样，其它自己动手试试吧。 不重复读取还有个办法就是只产生一个随机数，然后挨着读取这个随机数后面的N条记录。当然也要写好判断，随机数要小于总记录数-要读取记录数量。
复制代码 代码如下:
'……
dim n,ranNum
n = 10
Randomize()
ranNum = rs.recordCount-n
if ranNum<1 then ranNum=1
ranNum = int(ranNum*rnd)+1
rs.Move ranNum
for i=1 to 10
response.write i & "-" & rs("title") & "<br />" '输出内容
rs.MoveNext '挨着向下读取
next
'……
评论 (0) All
