aspでは、レコードセット内でランダムにレコードを取るコードを実現します。

レコードセット内にランダムに記録されたコード<%  ' Moving ト らんどm レコード - Steven Jones Extension If Not(レコードセット名.bof and レコードセット名.eof) The n リセット the cursor ト the beginning If (レコードセット名.CurrsorType > 0) The nレコードセット名.MoveFirst Elseレコードセット名.Requery End Ifレコードセット名_totalrn = -1レコードセット名_totalrn = レコードセット名.RecordCount ' ony works オン そして私 recordsets but much faster If (レコードセット名_totalrn = -1） The n ' and if it didn't ワーク、 we still すばらしい ト count the レコード.' count the talk レコード by iterating through the レコードセット名_totalrn=0 While (Not レコードセット名.EOF)レコードセット名_totalrn = レコードセット名_totalrn + 1レコードセット名.MoveNext Wend' リセット the cursor ト the beginning If (レコードセット名.CurrsorType > 0) The nレコードセット名.MoveFirst Elseレコードセット名.Requery End If End If now ド final adjust ments、 and move ト the らんどm レコード  レコードセット名_totalrn = レコードセット名_totalrn - 1 If レコードセット名_totalrn > 0 The n Randomizeレコードセット名.Move Int(レコードセット名_totalrn + 1） * Rnd)End If。  End If all. done あなた ショルダー always ロック for an empty レコード before displaying data%>