<%
' ランダム レコードに移動 - Steven Jones の拡張機能
If Not(レコードセット名.bof およびレコードセット名.eof) then
' カーソルを先頭にリセットします
If (RecordSetName.CursorType > 0) then
レコードセット名.MoveFirst
それ以外
レコードセット名.リクエスト
終了の場合
レコードセット名_totalrn = -1
RecordsetName_totalrn = RecordsetName.RecordCount ' 一部のレコードセットでは動作しますが、はるかに高速です
If (recordsetname_totalrn = -1) then ' が機能しなかった場合でも、レコードをカウントする必要があります。
' レコードセットを反復処理して合計レコードをカウントします
レコードセット名_totalrn=0
While (レコードセット名.EOFではありません)
レコードセット名_合計 = レコードセット名_合計 + 1
レコードセット名.MoveNext
ウェン
' カーソルを先頭にリセットします
If (RecordSetName.CursorType > 0) then
レコードセット名.MoveFirst
それ以外
レコードセット名.リクエスト
終了の場合
終了の場合
' ここで最終調整を行い、ランダム レコードに移動します
レコードセット名_totalrn = レコードセット名_totalrn - 1
レコードセット名_totalrn > 0 の場合
ランダム化
レコードセット名.Move Int((レコードセット名_totalrn + 1) * Rnd)
終了の場合
終了の場合
' すべて完了しました。データを表示する前に、必ず空のレコードセットを確認する必要があります。
%>