ASP实现access随机显示不重复记录解决方案

<%'-------------------------数据库连接-----------------------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 tj=0next'---------------------------------------'---------------------------------------' 随机抽取记录号Randomize timer '初始化随机数生成器for j=1 to Itemk=int(rnd*Count 1) '从总数里面随机取一条记录do while t(k)<>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 1end ifj=j 1objRS.MoveNextLoop'--------------------------------------'-------------------------------------------------------------------------------'----------------------------显示内容--------------------for i=1 to ItemResponse.write "序号"&a(i,1)&"<br>"Response.write "内容"&a(i,2)&"<p>"next'----------------------------显示内容--------------------'---------------------------'释放资源objRs.Closeset objRs=nothingobjConn.Closeset objConn=nothing'---------------------------%>