应用技巧

关注公众号 jb51net

关闭
首页 > 网络编程 > ASP编程 > 应用技巧 > 随机读取数据库记录

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

作者:

利于搜索从表中随机取几条不重复记录,一般都是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来产生和判断不重复随机数。
您可能感兴趣的文章:
阅读全文