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

'以利用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  
'……  

'……  
dim n,ranNum  
n = 10  
Randomize()  
ranNum = rs.recordCount-n  
if ranNum1 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  
'……