access随机显示记录(不重复)解决方案：
看了很多人讨论关于access随机取记录的帖子，不才,写了一个随机显示记录的解决方法,希望大家指正。数据库里有5条记录，随机抽取4条。
code
--------------------------------------
0'判断是否记录是否已经在数组中k=int(rnd*item+1)loopt(k)=1 '第k条记录被选中 next'--------------------------------------j=1:i=1'定义下标'--------------------------------------' 循环选取数据集objrs中的部分记录存放到数组中 do while not objrs.eofif t(j)=1 thena(i,1)=objrs(id)'记录ida(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)&
response.write 内容&a(i,2)&next'----------------------------显示内容--------------------'---------------------------'释放资源objrs.closeset objrs=nothingobjconn.closeset objconn=nothing'---------------------------%>
data
id datacolumn--------------------------1a2b3c4d5e