欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

asp 隨機字符串函數(shù)

 更新時間:2009年01月13日 12:09:59   作者:  
這個方法不錯,可以生成小寫字符跟數(shù)字的隨機字符串,大家可以加入一些特殊字符和一些大寫字母等。
'*************************************
'asp計算隨機數(shù)
'*************************************

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

相關(guān)文章

最新評論