<%
‘******************************
‘函数：MakePassword(byval maxlen)
‘参数：maxlen，要生成的密码位
‘******************************
‘函数：MakePassword(byval maxlen)
‘参数：maxlen，要生成的密码位
来源gaodai.ma#com搞##代!^码网
数长度
‘作者：阿里西西
‘日期：2007/7/12
‘描述：产生任意位数随机密码
‘示例：
‘******************************
function MakePassword(byval maxlen)
dim strnewpass
dim whatsnext, upper, lower, intcounter
randomize
for intcounter = 1 to maxlen
whatsnext = int((1 – 0 + 1) * rnd + 0)
if whatsnext = 0 then
‘character
upper = 90
lower = 65
else
upper = 57
lower = 48
end if
strnewpass = strnewpass & chr(int((upper – lower + 1) * rnd + lower))
next
makepassword = strnewpass
end function
%>
以上就是asp 下产生任意位数随机密码的代码的详细内容，更多请关注gaodaima搞代码网其它相关文章！
搞代码网（gaodaima.com）提供的所有资源部分来自互联网，如果有侵犯您的版权或其他权益，请说明详细缘由并提供版权或权益证明然后发送到邮箱[email protected]，我们会在看到邮件的第一时间内为您处理，或直接联系QQ：872152909。本网站采用BY-NC-SA协议进行授权
转载请注明原文链接：asp 下产生任意位数随机密码的代码
转载请注明原文链接：asp 下产生任意位数随机密码的代码
