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