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

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来产生和判断不重复随机数。

【说明】：本文章由站长整理发布，文章内容不代表本站观点，如文中有侵权行为，请与本站客服联系(QQ:)！

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

相关教程推荐

其他课程推荐