ASP Instance Tutorial บทความนี้แนะนำวิธีสร้างสตริงแบบสุ่มและตัวอย่างนี้แนะนำวิธีการสร้าง 13 สุ่มสตริง
<html>
<title>
สตริงเริ่มต้นของนักเรียน www.vevb.com </title>
<body>
-
ฟังก์ชั่น gen_key (ตัวเลข)
'คำจำกัดความและเริ่มต้นอาร์เรย์
Dim Char_array (80)
'หมายเลขเริ่มต้น
สำหรับ i = 0 ถึง 9
char_array (i) = cstr (i)
ต่อไป
'การเริ่มต้นของตัวอักษรตัวพิมพ์ใหญ่
สำหรับ i = 10 ถึง 35
char_array (i) = Chr (i + 55)
ต่อไป
'เริ่มต้นตัวอักษรตัวพิมพ์เล็ก
สำหรับ i = 36 ถึง 61
char_array (i) = Chr (i + 61)
ต่อไป
สุ่มจับเวลา 'เริ่มต้นเครื่องกำเนิดตัวเลขสุ่ม
ทำในขณะที่ len (เอาท์พุท) <ตัวเลข
num = char_aray (int ((62-0 + 1) * rnd + 0)))
เอาต์พุต = เอาต์พุต + num
วง
'ตั้งค่าส่งคืน
gen_key = เอาต์พุต
ฟังก์ชันสิ้นสุด
'ส่งคืนผลลัพธ์ไปยังเบราว์เซอร์
Response.write สตริงสุ่มสิบสามตัวที่สร้างโดยอินสแตนซ์นี้คือ:
Response.write <enter>
Response.write geen_key (13)
Response.write </enter>
-
</body>
</html>