asp 随机字符串函数

网络编程 2021-07-05 10:58www.168986.cn编程入门

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

'
'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