ASP代码完成access随机显示不重复记录_ASP图文详细教程

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