<%
' Pindah ke rekaman acak - Ekstensi Steven Jones
Jika Tidak (nama kumpulan catatan.bof dan nama kumpulan catatan.eof) Kemudian
' setel ulang kursor ke awal
Jika (RecordSetName.CursorType > 0) Lalu
Nama kumpulan rekaman.MoveFirst
Kalau tidak
Nama kumpulan rekaman. Permintaan
Akhiri Jika
Nama kumpulan rekaman_totalrn = -1
RecordsetName_totalrn = RecordsetName.RecordCount ' hanya berfungsi pada beberapa kumpulan rekaman, tetapi jauh lebih cepat
If (recordsetname_totalrn = -1) Then ' dan jika tidak berhasil, kita masih harus menghitung recordnya.
' hitung total catatan dengan mengulangi kumpulan catatan
Nama kumpulan rekaman_totalrn=0
Sementara (Bukan nama kumpulan rekaman.EOF)
nama set data_totalrn = nama set data_totalrn + 1
Nama kumpulan rekaman.MoveNext
Pergi ke
' setel ulang kursor ke awal
Jika (RecordSetName.CursorType > 0) Lalu
Nama kumpulan rekaman.MoveFirst
Kalau tidak
Nama kumpulan rekaman. Permintaan
Akhiri Jika
Akhiri Jika
' sekarang lakukan penyesuaian akhir, dan pindah ke rekaman acak
namaset_catatan_totalrn = namaset_totalrn - 1
Jika recordsetname_totalrn > 0 Lalu
Acak
Nama kumpulan rekaman. Pindahkan Int((nama kumpulan rekaman_totalrn + 1) * Rnd)
Akhiri Jika
Akhiri Jika
' semua selesai; Anda harus selalu memeriksa recordset yang kosong sebelum menampilkan data
%>