如何从数据库中随机抽取出一定数量的记录？

[angyl]

请问，我想使用ASP从access数据库中随机抽取出记录，抽取个数是用text输入的。
还得保证每次抽取的都不一样~~
我想请问大家如何使用Rnd()做到呢？或者使用其它方式？

[alcoholwang]

<%
Dim no
no = Request.form("no")
set qs = Server.CreateObject("ADODB.Recordset")
qsa = "select top "&no&" * from td order by NEWID()"
qs.open qsa,conn,1,1
%>

no就是要抽取个数
NEWID()就是随机函数

[PPLUNCLE]

楼主如果数据理有100道题的话,上面的
x=Int(rnd*15)+1就改为x=Int(rnd*100)+1
-------------------------------------------
具体思路代码如下:
dim a(10)
yes=0
randomize
for i=1 to 10
do
x=Int(rnd*100)+1
yes=0
for j=1 to i-1
if x=a(j) then
yes=1
exit for
end if
next
loop while yes=1
a(i)=x '得到了一个随机数(保证每次不相同)
sql="select * from 表 where ID(题目)='"& x &"'"
%>
<table><tr><td>....显示题目的HTML代码</td></tr></table>
<%
next
%>

当然楼主也可以先把这10个数全部取出来,放在一个数组中,然后在写sql语句的时候取遍历数组中每个值

[angyl]

是这样的结构吗？？

<%
set qs = Server.CreateObject("ADODB.Recordset")
qsa = "select top 10 * from td order by NEWID()"
qs.open qsa,conn,1,1
%>
<%=qs.RecordCount%>
<%qs.close%>

为什么系统提示我：
Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e21'
ODBC 驱动程序不支持所需的属性。

错误的行数是：
qs.open qsa,conn,1,1

[angyl]

谢谢 PPLUNCLE(转向.NET)的数据运算的方法，真不错~
谢谢 alcoholwang(工业酒精)教我的打开数据库的方式~~

谢谢二位

在 qsa = "select top 10 * from td order by NEWID()" 里
不过,newid()这个是什么意思？

[aoeiuvcom]

gz

[alcoholwang]

"select top"&request("text")&" * from 表名 ORDER BY NEWID()"

[angyl]

"select top"&request("text")&" * from 表名 ORDER BY NEWID()"
不大明白~~
谢谢，下边这句的话，应如何修改呢？

<%
td = Request.form("no")
set qs = Server.CreateObject("ADODB.Recordset")
qsa = "select td.* from td where not zeng order by ID"
qs.open qsa,conn,1,1
%>