ASP如何不重复地随机读取N个ACC数据库记录？

<%

"-------------------------数据库连接-----------------------

Set objConn = Server.CreateObject("ADODB.Connection")

objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" &_

"Data Source=" & Server.MapPath("data.mdb")

objConn.Open

"-------------------------数据库连接-----------------------

"-------------------------检索数据-----------------------

strSQL = "SELECT id,DataColumn FROM DataTable"

"Sql语句，检索数据库

Set objRS = Server.CreateObject("ADODB.Recordset")

"创建记录集 网页教学网

objRS.Open strSQL, objConn, 1, 1

"执行检索

Count=objRS.RecordCount

"得到记录总数

Item=4

"显示记录数

"-------------------------检索数据-----------------------

"-------------------------------------------------------------------------------

redim a(Item, 2),t(Count)

"定义2数组，数组a用来储存记录，数组t用来删选记录

"---------------------------------------

"初始数组数值，目的为了插入数据以后和此值做比较

for each j in t

j=0

next

"---------------------------------------

"---------------------------------------

" 随机抽取记录号

Randomize timer "初始化随机数生成器

for j=1 to Item

k=int(rnd*Count+1) "从总数里面随机取一条记录

do while t(k)<>0 "判断是否记录是否已经在数组中

k=int(rnd*Item+1)

loop

t(k)=1 "第k条记录被选中

next

"--------------------------------------

j=1:i=1"定义下标

"--------------------------------------

" 循环选取数据集objRS中的部分记录存放到数组中

Do While Not objRS.Eof

if t(j)=1 then

a(i,1)=objRS("id") "记录id

a(i,2)=objRS("DataColumn") "记录内容

i=i+1

end if

j=j+1

objRS.MoveNext

网页教学网

Loop

"--------------------------------------

"-------------------------------------------------------------------------------

"----------------------------显示内容--------------------

for i=1 to Item

Response.write "序号"&a(i,1)&"<br>"

Response.write "内容"&a(i,2)&"<p>"

next

"----------------------------显示内容--------------------

"---------------------------

"释放资源

objRs.Close

set objRs=nothing

objConn.Close

set objConn=nothing

"---------------------------

%>

我是随机显示8题，不重复

questionNum=request.Form("questionNum") "问题数

if questionNum<>"" then

questionNum=questionNum+1

else

questionNum=1

end if

questionlist=request.Form("questionlist") "问ID字串

vid=request.Form("vid") "问题ID

if vid<>"" then

questionlist=questionlist&","&vid

end if

set rs=server.createobject("adodb.recordset")

if questionNum<9 then

if questionlist<>"" then

sql = "select * from tm where not(id in ("&right(questionlist,len(questionlist)-1)&"))"

else

sql = "select * from tm "

end if

rs.open sql,conn,1,1

if not rs.eof then

maxcount=rs.recordcount"总记录数

k=maxcount"多出这个变量的目的是为了一份试卷最多只读k条记录，如果k大于4条就只读4条

if k>1 then k=1

fystr="""初始话变量

i=0

randomize()

do while i< k

chcnum = (rnd*100 mod maxcount)+1"得到随机数，从1到你的总题量

if instr(fystr,chcnum)=0 then"判断此数是否调用过，用此来避免重复调用题目

fystr=fystr&chcnum&",""将得到的随机数给变量，用于判断是否有重复和结果页面用

rs.MoveFirst"先将记录移动到第一条记录

rs.move chcnum-1"将记录下移到chcnum-1条

str="<h2>每次只显示一道题，单选题</h2><input type="hidden" name="questionNum" id="questionNum" value=""&questionNum&""><input type="hidden" name="vid" id="questionNum" value=""&rs("id")&""><input type="hidden" name="questionlist" id="questionlist" value=""&questionlist&"">"

i=i+1

end if

loop

end if

rs.close

"set rs=nothing

else

str="显示完了"

end if

set rs=nothing

<%

"-------------------------数据库连接-----------------------

Set

objConn

=

Server.CreateObject("ADODB.Connection")

objConn.ConnectionString

=

"Provider=Microsoft.Jet.OLEDB.4.0;"

&_

"Data

Source="

&

Server.MapPath("data.mdb")

objConn.Open

"-------------------------数据库连接-----------------------

"-------------------------检索数据-----------------------

strSQL

=

"SELECT

id,DataColumn

FROM

DataTable"

"Sql语句，检索数据库

Set

objRS

=

Server.CreateObject("ADODB.Recordset")

"创建记录集

网页教学网

objRS.Open

strSQL,

objConn,

1,

1

"执行检索

Count=objRS.RecordCount

"得到记录总数

Item=4

"显示记录数

"-------------------------检索数据-----------------------

"-------------------------------------------------------------------------------

redim

a(Item,

2),t(Count)

"定义2数组，数组a用来储存记录，数组t用来删选记录

"---------------------------------------

"初始数组数值，目的为了插入数据以后和此值做比较

for

each

j

in

t

j=0

next

"---------------------------------------

"---------------------------------------

"

随机抽取记录号

Randomize

timer

"初始化随机数生成器

for

j=1

to

Item

k=int(rnd*Count+1)

"从总数里面随机取一条记录

do

while

t(k)<>0

"判断是否记录是否已经在数组中

k=int(rnd*Item+1)

loop

t(k)=1

"第k条记录被选中

next

"--------------------------------------

j=1:i=1"定义下标

"--------------------------------------

"

循环选取数据集objRS中的部分记录存放到数组中

Do

While

Not

objRS.Eof

if

t(j)=1

then

a(i,1)=objRS("id")

"记录id

a(i,2)=objRS("DataColumn")

"记录内容

i=i+1

end

if

j=j+1

objRS.MoveNext

网页教学网

Loop

"--------------------------------------

"-------------------------------------------------------------------------------

"----------------------------显示内容--------------------

for

i=1

to

Item

Response.write

"序号"&a(i,1)&"<br>"

Response.write

"内容"&a(i,2)&"<p>"

next

"----------------------------显示内容--------------------

"---------------------------

"释放资源

objRs.Close

set

objRs=nothing

objConn.Close

set

objConn=nothing

"---------------------------

%>