วิธีนี้เป็นวิธีที่ดี โดยสามารถสร้างสตริงอักขระตัวพิมพ์เล็กและตัวเลขแบบสุ่มได้ คุณสามารถเพิ่มอักขระพิเศษและตัวพิมพ์ใหญ่บางตัวได้ -
'asp คำนวณตัวเลขสุ่ม
-
ฟังก์ชั่น RandomStr(intLength)
Dim strSeed, seedLength, pos, Str, i
strSeed = abcdefghijklmnopqrstuvwxyz1234567890
ความยาวเมล็ด = Len(strSeed)
สตร =
สุ่ม
สำหรับ i = 1 ถึง intLength
Str = Str + Mid(strSeed, Int(seedLength * Rnd) + 1, 1)
ต่อไป
สุ่มStr = Str
ฟังก์ชันสิ้นสุด