隨機抽取數據庫中的記錄

　　數據庫裡有條記錄隨機抽取條

　　code

<%
數據庫連接
Set objConn = ServerCreateObject(ADODBConnection)
objConnConnectionString = Provider=MicrosoftJetOLEDB; &_
Data Source= & ServerMapPath(datamdb)
objConnOpen
數據庫連接

檢索數據
strSQL = SELECT idDataColumn FROM DataTable
Sql語句檢索數據庫
Set objRS = ServerCreateObject(ADODBRecordset)   
創建記錄集
objRSOpen strSQL objConn   
執行檢索
Count=objRSRecordCount   
得到記錄總數
Item=                                                  
顯示記錄數
檢索數據

　　
redim a(Item )t(Count)
定義數組數組a用來儲存記錄數組t用來刪選記錄

　　
初始數組數值目的為了插入數據以後和此值做比較
for each j in t
    j=
next

　　
隨機抽取記錄號
Randomize timer   初始化隨機數生成器
for j= to Item
    k=int(rnd*Count+) 從總數裡面隨機取一條記錄
    do while t(k)<>                 判斷是否記錄是否已經在數組中
      k=int(rnd*Item+)
    loop
    t(k)=    第k條記錄被選中
next

j=:i=定義下標

　　
循環選取數據集objRS中的部分記錄存放到數組中
Do While Not objRSEof
   if t(j)= then
    a(i)=objRS(id)           記錄id
    a(i)=objRS(DataColumn) 記錄內容
    i=i+
end if
j=j+
objRSMoveNext
Loop

　　顯示內容
for i= to Item
Responsewrite 序號&a(i)&<br>
Responsewrite 內容&a(i)&<p>
next
顯示內容

　　
釋放資源
objRsClose
set objRs=nothing
objConnClose
set objConn=nothing

%>

　　Data
id    DataColumn

        a
        b
        c
        d
        e

　　// SQL SERVER的話只需要newID()就行了但ACCESS來說它本身不提供newID()這個方法

From:http://tw.wingwit.com/Article/program/net/201311/14267.html