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

　　推荐阅读

　　asp水印组件之AspJpeg的结合代码实例

1、什么是AspJpeg？ AspJpeg是一款功能强大的基于Microsoft IIS环境的图片处理组件，网络上对其进行详细和深入介绍的中文文章并不多，即使有一般也只是牵涉到图片缩略图和图片水印，这与其为英文版本有着密切的关系>>>详细阅读

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

地址：http://www.17bianji.com/kaifa2/ASP/32323.html

 1/2    1