asp 随机字符串函数

这个方法不错，可以生成小写字符跟数字的随机字符串，大家可以加入一些特殊字符和一些大写字母等。'*************************************

'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