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

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

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!