رمز لاختيار السجلات بشكل عشوائي من مجموعة السجلات

<%

'الانتقال إلى السجل العشوائي - امتداد ستيفن جونز

إذا لم يكن (سجل مجموعة name.bof واسم مجموعة السجلات.eof) ثم

'إعادة تعيين المؤشر إلى البداية

إذا (RecordSetName.CursorType > 0) ثم

اسم مجموعة السجلات.MoveFirst

آخر

اسم مجموعة السجلات

نهاية إذا

مجموعة السجلات name_totalrn = -1

RecordsetName_totalrn = RecordsetName.RecordCount ' يعمل على بعض مجموعات السجلات، ولكن بشكل أسرع بكثير

إذا (recordsetname_totalrn = -1) ثم ' وإذا لم ينجح الأمر، فلا يزال يتعين علينا حساب السجلات.

"احسب إجمالي السجلات بالتكرار عبر مجموعة السجلات

مجموعة السجلات name_totalrn=0

بينما (ليس اسم مجموعة السجلات.EOF)

Recordsetname_totalrn = Recordsetname_totalrn + 1

اسم مجموعة السجلات.MoveNext

ويند

'إعادة تعيين المؤشر إلى البداية

إذا (RecordSetName.CursorType > 0) ثم

اسم مجموعة السجلات.MoveFirst

آخر

اسم مجموعة السجلات

نهاية إذا

نهاية إذا

الآن قم بإجراء التعديلات النهائية، وانتقل إلى السجل العشوائي

Recordsetname_totalrn = Recordsetname_totalrn - 1

إذا Recordsetname_totalrn > 0 ثم

عشوائية

اسم مجموعة السجلات.نقل Int((اسم مجموعة السجلات_totalrn + 1) * Rnd)

نهاية إذا

نهاية إذا

تم الانتهاء من كل شيء؛ يجب عليك دائمًا التحقق من وجود مجموعة سجلات فارغة قبل عرض البيانات

%>