MYSQL教程之Access随机显现纪录(不反复)办理计划 - 仓酷云

<%-------------------------数据库毗连-----------------------SetobjConn=Server.CreateObject("ADODB.Connection")objConn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;"&_"DataSource="&Server.MapPath("data.mdb")objConn.Open-------------------------数据库毗连------------------------------------------------检索数据-----------------------strSQL="SELECTid,DataColumnFROMDataTable"Sql语句，检索数据库SetobjRS=Server.CreateObject("ADODB.Recordset")创立纪录集objRS.OpenstrSQL,objConn,1,1实行检索Count=objRS.RecordCount失掉纪录总数Item=4显现纪录数-------------------------检索数据------------------------------------------------------------------------------------------------------redima(Item,2),t(Count)界说2数组，数组a用来贮存纪录，数组t用来删选纪录---------------------------------------初始数组数值，目标为了拔出数据今后和此值做对照foreachjintj=0next------------------------------------------------------------------------------随机抽取纪录号Randomizetimer初始化随机数天生器forj=1toItemk=int(rnd*Count+1)从总数内里随机取一笔记录dowhilet(k)0判别是不是纪录是不是已在数组中k=int(rnd*Item+1)loopt(k)=1第k笔记录被选中next--------------------------------------j=1:i=1界说下标--------------------------------------轮回拔取数据集objRS中的部分纪录寄存到数组中DoWhileNotobjRS.Eofift(j)=1thena(i,1)=objRS("id")纪录ida(i,2)=objRS("DataColumn")纪录内容i=i+1endifj=j+1objRS.MoveNextLoop-------------------------------------------------------------------------------------------------------------------------------------------------显现内容--------------------fori=1toItemResponse.write"序号"&a(i,1)&"<br>"Response.write"内容"&a(i,2)&"<p>"next----------------------------显现内容-----------------------------------------------开释资本objRs.ClosesetobjRs=nothingobjConn.ClosesetobjConn=nothing---------------------------%>

复制代码