'*************************************

'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