access随机显示记录(不重复)解决方案： 看了很多人讨论关于access随机取记录的帖子，不才,写了一个随机显示记录的解决方法,希望大家指正。数据库里有5条记录，随机抽取4条。 code -------------------------------------- % '-------------------------数据
access随机显示记录(不重复)解决方案：
亿众购物系统
一套设计完善、高效的web商城解决方案，独有SQL注入防范、对非法操作者锁定IP及记录功能，完整详细的记录了非法操作情况，管理员可以随时查看网站安全日志以及解除系统自动锁定的IP等前台简介： 1）系统为会员制购物，无限会员级别。 2）会员自动升级、相应级别所享有的折扣不同。 3）产品可在缺货时自动隐藏。 4）自动统计所有分类中商品数量，并在商品分类后面显示。 5）邮件列表功能，可在线订阅
下载
看了很多人讨论关于access随机取记录的帖子，不才,写了一个随机显示记录的解决方法,希望大家指正。数据库里有5条记录，随机抽取4条。
code
--------------------------------------
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)&"
"
Response.write "内容"&a(i,2)&"
"
next
'----------------------------显示内容--------------------
'---------------------------
'释放资源
objRs.Close
set objRs=nothing
objConn.Close
set objConn=nothing
'---------------------------
%>
Data
id DataColumn
--------------------------
1
a
2
b
3
c
4
d
5
e
