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

利用asp随机获取数据库中的记录且不出现重复的记录
<!--#includefile="adoconn.asp"-->
<%
'-------------------------检索数据-----------------------
strSQL="SELECT*FROM[table]"
'Sql语句，检索数据库
'SetobjRS=Server.CreateObject("ADODB.Recordset")
'创建记录集
rs.OpenstrSQL,conn,1,1
'执行检索
Count=rs.RecordCount
'得到记录总数
Item=2
'显示记录数
'-------------------------检索数据-----------------------

'-------------------------------------------------------------------------------
redima(Item,3),t(Count)
'定义2数组，数组a用来储存记录，数组t用来删选记录

'---------------------------------------
'初始数组数值，目的为了插入数据以后和此值做比较
foreachjint
j=0
next
'---------------------------------------

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

'--------------------------------------
'循环选取数据集rs中的部分记录存放到数组中
DoWhileNotrs.Eof
ift(j)=1then
a(i,1)=rs("y_id")'记录id
a(i,2)=rs("y_start")'字段1
a(i,3)=rs("y_end")'字段2
i=i+1
endif
j=j+1
rs.MoveNext
Loop
'--------------------------------------
'-------------------------------------------------------------------------------

'----------------------------显示内容--------------------
fori=1toItem
Response.write"序号"&a(i,1)&"<br>"
Response.write"开始"&a(i,2)&"<br>"
response.write"结束"&a(i,3)&"<p>"
next
'----------------------------显示内容--------------------

'---------------------------
'释放资源
rs.Close
setrs=nothing
Conn.Close
setConn=nothing
'---------------------------
%>

adoconn.asp
<%
setrs=server.CreateObject("adodb.recordset")
db="aaa1.mdb"
setconn=server.CreateObject("adodb.connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath(db)
conn.openconnstr
%>

（举报）