asp随机获取数据库中的记录代码

利用asp随机获取数据库中的记录且不出现重复的记录
<
!--
#include 
file="
adoconn.asp"
-->

<
%
&
#39
-------------------------检索数据-----------------------
strSQL 
= 
"
SELECT 
* 
FROM 
[table]"
 
 
 
 

&
#39
Sql语句，检索数据库
&
#39
Set 
objRS 
= 
Server.CreateObject("
ADODB.Recordset"
) 
 
 
 

&
#39
创建记录集
rs.Open 
strSQL,conn,1,1 
 
 
 
 
 
 
 

&
#39
执行检索
Count=rs.RecordCount 
 
 
 
 
 
 
 
 
 
 
 

&
#39
得到记录总数
Item=2 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

&
#39
显示记录数
&
#39
-------------------------检索数据-----------------------

&
#39
-------------------------------------------------------------------------------
redim 
a(Item, 
3),t(Count)
&
#39
定义2数组，数组a用来储存记录，数组t用来删选记录

&
#39
---------------------------------------
&
#39
初始数组数值，目的为了插入数据以后和此值做比较
for 
each 
j 
in 
t
 
 
 
 
j=0
next
&
#39
---------------------------------------

&
#39
---------------------------------------
&
#39
 
随机抽取记录号
Randomize 
timer 
 
 
 
 
 
 
 
&
#39
初始化随机数生成器
for 
j=1 
to 
Item
 
 
 
 
k=int(rnd*Count+1) 
 
 
 
&
#39
从总数里面随机取一条记录
 
 
 
 
do 
while 
t(k)<
>
0 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
&
#39
判断是否记录是否已经在数组中
 
 
 
 
 
 
k=int(rnd*Item+1)
 
 
 
 
loop
 
 
 
 
t(k)=1 
 
 
 
 
 
 
 
 
 
 
 
&
#39
第k条记录被选中
next
&
#39
--------------------------------------
j=1:i=1&
#39
定义下标

&
#39
--------------------------------------
&
#39
 
循环选取数据集rs中的部分记录存放到数组中
Do 
While 
Not 
rs.Eof
 
 
 
 
 
 
if 
t(j)=1 
then
 
 
 
 
 
 
 
 
 
 
a(i,1)=rs("
y_id"
) 
 
 
 
 
 
 
 
 
 
 
 
 
 
&
#39
记录id
 
 
 
 
 
 
 
 
 
 
a(i,2)=rs("
y_start"
) 
&
#39
字段1
 
 
 
 
a(i,3)=rs("
y_end"
) 
&
#39
字段2
 
 
 
 
 
 
 
 
 
 
i=i+1
 
 
 
 
 
end 
if
j=j+1
rs.MoveNext
Loop
&
#39
--------------------------------------
&
#39
-------------------------------------------------------------------------------

&
#39
----------------------------显示内容--------------------
for 
i=1 
to 
Item
 
 
 
 
Response.write 
"
序号"
&

#38
a(i,1)&

#38
"
<
br>
"

 
 
 
 
Response.write 
"
开始"
&

#38
a(i,2)&

#38
"
<
br>
"

 
response.write 
"
结束"
&

#38
a(i,3)&

#38
"
<
p>
"

next
&
#39
----------------------------显示内容--------------------

&
#39
---------------------------
&
#39
释放资源
rs.Close
set 
rs=nothing
Conn.Close
set 
Conn=nothing
&
#39
---------------------------
%>


adoconn.asp
<
%
set 
rs=server.CreateObject("
adodb.recordset"
)
db="
aaa1.mdb"

set 
conn=server.CreateObject("
adodb.connection"
)
connstr="
Provider=Microsoft.Jet.OLEDB.4.0
Data 
Source="
 
&

#38
 
Server.MapPath(db)
conn.open 
connstr
%>