当前位置: 首页 > 图文教程 > 网络编程 > ASP > asp下sql和access数据库随机取10条记录的代码newid()

ASP
asp+语法教程(三)asp+的服务器端编程初步
asp+语法教程(四)asp+的服务器端编程进介
asp+语法教程(五)asp+的服务器端编程控件篇
asp+语法教程(六)数据库篇
从ASP迁移至ASP+
从ASP迁移至ASP+ --进入DataSet
从ASP迁移至ASP+ --HTML表格转换为ASP+列表
从ASP迁移至ASP+ --转换其他的页面
从ASP迁移至ASP+ --处理会话变量
ASP十步进阶
asp.net高级教程(一)-asp.net还是asp+ ?
asp.net高级教程(二)- 转换编程思维
asp.net高级教程(三)-对象
asp.net高级教程(三)-实战篇
asp.net高级教程(五)-实战篇(中)
ASP+中文教程(一)--asp+简介、安装、以及如何显示中文
asp+中文教程(二)-- Asp+ Web Forms
APS + 中文教程(三)--服务器端控制(一)
SQL数据操作基础(初级) 4
SQL数据操作基础(初级) 5

ASP 中的 asp下sql和access数据库随机取10条记录的代码newid()


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-09-13   浏览: 211 ::
收藏到网摘: 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
'……
这样就可以了,当然这样有可能会取到重复的记录,那么把产生随机数那句改下就可以了,声明一个变量来存放已经产生过的随机数,在产生新的随机时先判断是否已经产生过,若产生过则重新生成就是了,这个就比较简单了,用instr等就可以搞定了~~
思路是这样,其它自己动手试试吧。 不重复读取还有个办法就是只产生一个随机数,然后挨着读取这个随机数后面的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
'……
建议自己写个简单的Function来产生和判断不重复随机数。