28,391
社区成员
发帖
与我相关
我的任务
分享如何在随机且不重复地抽取某表的ID字段
asp + access,只需要根据ID字段(不连续)随机抽取记录,必须随机且不重复,搜索了以前的帖,随机倒是能做到了(刷新页面,列出的数字始终在变化),但总有重复记录,不知为何
<%
sub RndID()
dim i,m,id
sql="select * from newsdata order by id"
rs.open sql,conn,1,3
for i=1 to 10
randomize
id = rs.recordcount*rnd-1
for m = 1 to id
if rs.eof then
exit for
end if
rs.movenext
next
response.write(rs("id"))
response.write("<br>")
rs.movefirst
next
End sub
%>
<%
sub RndID()
dim i,m,id
sql="select * from newsdata order by id"
rs.open sql,conn,1,3
for i=1 to 10
randomize
id = rs.recordcount*rnd-1
for m = 1 to id
if rs.eof then
exit for
end if
rs.movenext
next
response.write(rs("id"))
response.write("<br>")
rs.movefirst
next
End sub
%>
...全文
请发表友善的回复…
发表回复
