هذه الطريقة جيدة، حيث يمكنها إنشاء سلسلة عشوائية من الأحرف الصغيرة والأرقام، ويمكنك إضافة بعض الأحرف الخاصة وبعض الأحرف الكبيرة، وما إلى ذلك. '***************************************
'asp يحسب الأرقام العشوائية
'***************************************
الدالة RandomStr(intLength)
خافت strSeed، SeedLength، pos، Str، i
strSeed = abcdefghijklmnopqrstuvwxyz1234567890
SeedLength = لين (strSeed)
شارع =
عشوائية
لأني = 1 إلى الطول
Str = Str + Mid(strSeed, Int(seedLength * Rnd) + 1, 1)
التالي
RandomStr = Str
وظيفة النهاية