這個方法不錯，可以生成小寫字符跟數字的隨機字符串，大家可以加入一些特殊字符和一些大寫字母等。

'************************************* 
'asp計算隨機數 
'************************************* 

Function randomStr(intLength) 
Dim strSeed, seedLength, pos, Str, i 
strSeed = "abcdefghijklmnopqrstuvwxyz1234567890" 
seedLength = Len(strSeed) 
Str = "" 
Randomize 
For i = 1 To intLength 
Str = Str + Mid(strSeed, Int(seedLength * Rnd) + 1, 1) 
Next 
randomStr = Str 
End Function