网络编程 
首页 > 网络编程 > 浏览文章

asp 下产生任意位数随机密码的代码

(编辑:jimmy 日期: 2024/11/27 浏览:3 次 )
<%
'******************************
'函数:MakePassword(byval maxlen)
'参数:maxlen,要生成的密码位数长度
'作者:阿里西西
'日期:2007/7/12
'描述:产生任意位数随机密码
'示例:<%=MakePassword(8)%> 
'******************************
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下返回以千分位显示数字格式化的数值
下一篇:asp 将日期格式化为需要的格式
友情链接:杰晶网络 DDR爱好者之家 南强小屋 黑松山资源网 白云城资源网 网站地图 SiteMap