เตรียมฟังก์ชั่นที่สร้างรหัสผ่านแบบสุ่มหรือไม่?

-

ฟังก์ชั่น makepassword (byval maxlen)

สลัว

หรี่ whatsnext, บน, ล่าง, intcounter

สุ่ม

สำหรับ intCounter = 1 ถึง maxlen

whatsnext = int ((1-0 1) * rnd 0)

ถ้า whatsnext = 0 แล้ว

บน = 90

ต่ำกว่า = 65

อื่น

บน = 57

ต่ำกว่า = 48

สิ้นสุดถ้า

strNewPass = strNewPass & Chr (นิ้ว -lower 1) * rnd ต่ำกว่า)

ต่อไป

makepassword = strNewPass

ฟังก์ชันสิ้นสุด

'ระบุความยาวรหัสผ่านและเรียกใช้ฟังก์ชัน

Response.write makepassword (16)

-