利用asp随机获取数据库中的记录且不出现重复的记录<!--#include file="adoconn.asp"--><%'-------------------------检索数据-----------------------strSQL = "SELECT * FROM [table]"    'Sql语句，检索数据库'Set objRS = Server.CreateObject("ADODB.Recordset")    '创建记录集rs.Open strSQL,conn,1,1        '执行检索Count=rs.RecordCount            '得到记录总数Item=2                                                         '显示记录数'-------------------------检索数据----------------------- '-------------------------------------------------------------------------------redim a(Item, 3),t(Count)'定义2数组，数组a用来储存记录，数组t用来删选记录 '---------------------------------------'初始数组数值，目的为了插入数据以后和此值做比较for each j in t    j=0next'--------------------------------------- '---------------------------------------' 随机抽取记录号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'定义下标 '--------------------------------------' 循环选取数据集rs中的部分记录存放到数组中Do While Not rs.Eof      if t(j)=1 then          a(i,1)=rs("y_id")              '记录id          a(i,2)=rs("y_start") '字段1    a(i,3)=rs("y_end") '字段2          i=i+1     end ifj=j+1rs.MoveNextLoop'--------------------------------------'------------------------------------------------------------------------------- '----------------------------显示内容--------------------for i=1 to Item    Response.write "序号"&a(i,1)&"<br>"    Response.write "开始"&a(i,2)&"<br>" response.write "结束"&a(i,3)&"<p>"next'----------------------------显示内容-------------------- '---------------------------'释放资源rs.Closeset rs=nothingConn.Closeset Conn=nothing'---------------------------%> adoconn.asp<%set rs=server.CreateObject("adodb.recordset")db="aaa1.mdb"set conn=server.CreateObject("adodb.connection")connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)conn.open connstr%>

评论