首页 / 网页编程 / ASP / 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