当前位置：网站首页 > 资源显示

aspASP随机数函数，ASP随机字符串函数

发布时间：2017/5/21 23:16:22 / 最后修改：2018-3-23 12:37:35 / 浏览：727

详见完整代码

完整代码（代码框可以往下拉高显示）：

'随机strLong位纯数字随机数
Function rndNum(strLong) 
Dim temNum 
Randomize 
Do While Len(RndNum) < strLong 
temNum=CStr(Chr((57-48)*rnd+48)) 
RndNum=RndNum&temNum 
loop 
End Function

'随机字符串（数字-大写字母-小写字母混排），13位，但是这个测试，如果批量卡密码，感觉会出错，不知道什么原因
<% 
Function gen_key(digits)
'定义并初始化数组
dim char_array(80)
'初始化数字
For i = 0 To 9
char_array(i) = CStr(i)
Next
'初始化大写字母
For i = 10 To 35
char_array(i) = Chr(i + 55)
Next
'初始化小写字母
For i = 36 To 61
char_array(i) = Chr(i + 61)
Next
Randomize '初始化随机数生成器。
do while len(output) < digits
num = char_array(Int((62 - 0 + 1) * Rnd + 0))
output = output + num
loop
'设置返回值
gen_key = output
End Function
'把结果返回给浏览器
response.write "本实例生成的十三位随机字符串为:"
response.write "<center>"
response.write gen_key(13)
response.write "</center>"
%>

==== 下面这个感觉效率还可以 ====== 批量卡密码效率蛮高
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

附件资源（免费）

您尚未登录，暂时无法查阅资源！立即登录

插播广告区

发表评论

您尚未登录，暂时无法发表评论。立即登录

暂无任何评论

推荐资源更多 >>

付费资源更多 >>

广告区