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 t j=0next'---------------------------------------'---------------------------------------' 随机抽取记录号Randomize timer '初始化随机数生成器 Www..com 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 ifj=j 1objRS.MoveNext Www^^com Loop'--------------------------------------'-------------------------------------------------------------------------------'----------------------------显示内容--------------------for i=1 to Item Response.write "序号"&a(i,1)&"<br>" Response.write "内容"&a(i,2)&"<p>"next'----------------------------显示内容--------------------'---------------------------'释放资源objRs.Closeset objRs=nothingobjConn.Closeset objConn=nothing'---------------------------%>

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有