這個方法不錯，可以產生小寫字元跟數字的隨機字串，大家可以加入一些特殊字元和一些大寫字母等。 '*************************************
'asp計算隨機數
'*************************************
Function randomStr(intLength)
Dim strSeed, seedLength, pos, Str, i
strSeed = abcdefghijklmnopqrstuvwxyz1234567890
seedLength = Len(strSeed)
Str =
Randomize
為 i = 1 To intLength
Str = Str + Mid(strSeed, Int(seedLength * Rnd) + 1, 1)
Next
randomStr = Str
End Function