مثيل ASP البرنامج التعليمي يقدم لك هذه المقالة كيفية إنشاء سلسلة عشوائية ، وهذا المثال يقدم كيفية إنشاء 13 سلسلة عشوائية.
<html>
<title>
طالب بدء سلسلة www.vevb.com </title>
<body>
<٪
وظيفة gen_key (الأرقام)
"تعريف المصفوفة وتهيئها
Dim Char_array (80)
رقم التهيئة
لأني = 0 إلى 9
char_array (i) = CSTR (i)
التالي
تهيئة الحروف الكبيرة
لأني = 10 إلى 35
char_array (i) = chr (i + 55)
التالي
تهيئة حرف صغير
لأني = 36 إلى 61
char_array (i) = chr (i + 61)
التالي
توقيت عشوائي تهيئة مولد الأرقام العشوائية.
افعل بينما len (الإخراج) <الأرقام
num = char_aray (int ((62-0 + 1) * rnd + 0))
الإخراج = الإخراج + num
حلقة
قم بتعيين قيمة الإرجاع
gen_key = الإخراج
وظيفة نهاية
إعادة النتيجة إلى المتصفح
استجابة. اكتب سلسلة عشوائية ثلاثة عشر تم إنشاؤها بواسطة هذا المثال هي:
استجابة. write <centre>
استجابة. write geen_key (13)
استجابة. write </center>
٪>
</body>
</html>