Question

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

我想随机地从产品库中随机读取20个记录进行显示，每次刷新都会改变。我现在用的办法虽然简单，但是会产生重复记录。有比较好的办法吗，请给个范例。ASP+ACC

Answer 1

<%
'-------------------------数据库连接-----------------------
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
'---------------------------
%>

Answer 2

我是随机显示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

Answer 3

<%
'-------------------------数据库连接-----------------------
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
'---------------------------
%>