這個(gè)方法不錯(cuò)，可以生成小寫字符跟數(shù)字的隨機(jī)字符串，大家可以加入一些特殊字符和一些大寫字母等。

'************************************* 
'asp計(jì)算隨機(jī)數(shù) 
'************************************* 

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