asp access 隨機記錄不重複

寫這個的東西人多了，小網站偶爾也要用一下

自己也寫一個

 

Randomize

dim i:i=0

sql="select id,caption from table"

set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3

lngCount = rs.RecordCount
redim idList(lngCount)
 while i<lngCount

     lngRnd = Int((lngCount * Rnd) + 1)
     rs.AbsolutePosition = lngRnd
     if isEmpty(idList(lngRnd)) then

          response.write rs(0)&"<Br>"

          idList(lngRnd)=1

          i=i+1

     end if

wend

rs.close

set rs=nothing

Erase idList