ตัวอย่างการสร้างรหัสผ่านใน ASP

หากคุณกำลังสร้างแอปพลิเคชันที่จำเป็นต้องสร้างรหัสผ่าน โค้ดชิ้นนี้ใน ASP จะมีประโยชน์มาก

คัดลอกรหัสต่อไปนี้และบันทึกด้วยชื่อ GeneratorPassword.asp

'ตัวอย่างตัวสร้างรหัสผ่านใน ASP

ฟังก์ชัน gen_con (max_num)

gen_array สลัว (36)
'อาร์เรย์อักขระ 

gen_array (0) = "0"
gen_array (1) = "1"
gen_array (2) = "2"
gen_array (3) = "3"
gen_array (4) = "4"
gen_array (5) = "5"
gen_array (6) = "6"
gen_array (7) = "7"
gen_array (8) = "8"
gen_array (9) = "9"
gen_array (10) = "a"
gen_array (11) = "b"
gen_array (12) = "c"
gen_array (13) = "ง"
gen_array (14) = "อี"
gen_array (15) = "ฉ"
gen_array (16) = "ก"
gen_array (17) = "ชั่วโมง"
gen_array (18) = "ฉัน"
gen_array (19) = "เจ"
gen_array (20) = "k"
gen_array (21) = "ล"
gen_array (22) = "ม"
gen_array (23) = "n"
gen_array (24) = "o"
gen_array (25) = "p"
gen_array (26) = "q"
gen_array (27) = "r"
gen_array (28) = "s"
gen_array (29) = "t"
gen_array (30) = "คุณ"
gen_array (31) = "วี"
gen_array (32) = "w"
gen_array (33) = "x"
gen_array (34) = "y"
gen_array (35) = "z"

สุ่ม
'สร้างโซ่จนยาว the

ทำในขณะที่เลน (เอาต์พุต) num = gen_array (Int ((35 - 0 + 1) * Rnd + 0))
เอาต์พุต = เอาต์พุต + num
ห่วง

'ฟังก์ชันส่งคืนผลลัพธ์ = output

gen_con = เอาต์พุต
ฟังก์ชั่นสิ้นสุด

'ฟังก์ชั่นเอาท์พุทที่ใช้ค่าสูงสุด

ถ้าขอ. แบบฟอร์ม ("NUMGEN") <> "" แล้ว
intGEN = CInt (คำขอ. แบบฟอร์ม ("NUMGEN"))
a = 0
ทำในขณะที่ <500
response.write gen_con (intGEN) & "
"
a = a + 1
ห่วง
สิ้นสุด if


%>

 o = ตัวอักษร "o"
 O = ตัวพิมพ์ใหญ่ "O"
 0 = ศูนย์
 ล. = ตัวอักษร "ล"
 1 = หมายเลข 1