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

2018-09-06 13:06

阅读:334

  <%
******************************
函数:MakePassword(byvalmaxlen)
参数:maxlen,要生成的密码位数长度
作者:阿里西西
日期:2007/7/12
描述:产生任意位数随机密码
示例:<%=MakePassword(8)%>
******************************
functionMakePassword(byvalmaxlen)
dimstrnewpass
dimwhatsnext,upper,lower,intcounter
randomize
forintcounter=1tomaxlen
whatsnext=int((1-0+1)*rnd+0)
ifwhatsnext=0then
character
upper=90
lower=65
else
upper=57
lower=48
endif
strnewpass=strnewpass&chr(int((upper-lower+1)*rnd+lower))
next
makepassword=strnewpass
endfunction
%>


评论


亲,登录后才可以留言!