asp 随机字符串函数
2018-09-06 11:57
阅读：245
*************************************
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
上一篇：浅谈自动采集程序及入库
评论
亲，登录后才可以留言！