隨機產生用戶密碼(good),說明：通過隨機產生密碼，然後將密碼EMail給註冊用戶，你可以確認用戶的EMail填寫是否正確。
說明：通過隨機產生密碼，然後將密碼EMail給註冊用戶，你可以確認用戶的EMail填寫是否正確。自動產生的密碼往往安全性更高，同時，你可以過濾那些無效的用戶。
把下面的代碼保存為random.asp文件：
複製代碼代碼如下:
<%
SubStrRandomize(strSeed)
Dimi,nSeed
nSeed=CLng(0)
Fori=1ToLen(strSeed)
nSeed=nSeedXor((256*((i-1)Mod4)*AscB(Mid(strSeed,i,1))))
Next
RandomizenSeed
EndSub
FunctionGeneratePassword(nLength)
Dimi,bMadeConsonant,c,nRnd
ConststrDoubleConsonants="bdfglmnpst"
ConststrConsonants="bcdfghklmnpqrstv"
ConststrVocal="aeiou"
GeneratePassword=""
bMadeConsonant=False
Fori=0TonLength
nRnd=Rnd
IfGeneratePassword<>""AND(bMadeConsonant<>True)AND(nRnd<0.15)Then
c=Mid(strDoubleConsonants,Int(Len(strDoubleConsonants)*Rnd+1),1)
c=c&c
i=i+1
bMadeConsonant=True
Else
If(bMadeConsonant<>True)And(nRnd<0.95)Then
c=Mid(strConsonants,Int(Len(strConsonants)*Rnd+1),1)
bMadeConsonant=True
Else
c=Mid(strVocal,Int(Len(strVocal)*Rnd+1),1)
bMadeConsonant=False
EndIf
EndIf
GeneratePassword=GeneratePassword&c
Next
IfLen(GeneratePassword)>nLengthThen
GeneratePassword=Left(GeneratePassword,nLength)