服务器之家:专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|JAVA教程|ASP教程|

服务器之家 - 编程语言 - ASP教程 - asp 下产生任意位数随机密码的代码

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

2019-10-12 10:52asp代码网 ASP教程

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

  1. <%  
  2. '******************************  
  3. '函数:MakePassword(byval maxlen)  
  4. '参数:maxlen,要生成的密码位数长度  
  5. '作者:阿里西西  
  6. '日期:2007/7/12  
  7. '描述:产生任意位数随机密码  
  8. '示例:<%=MakePassword(8)%>   
  9. '******************************  
  10. function MakePassword(byval maxlen)   
  11. dim strnewpass   
  12. dim whatsnext, upper, lower, intcounter   
  13. randomize   
  14. for intcounter = 1 to maxlen   
  15. whatsnext = int((1 - 0 + 1) * rnd + 0)   
  16. if whatsnext = 0 then   
  17. 'character   
  18. upper = 90   
  19. lower = 65   
  20. else   
  21. upper = 57   
  22. lower = 48   
  23. end if   
  24. strnewpass = strnewpass & chr(int((upper - lower + 1) * rnd + lower))   
  25. next   
  26. makepassword = strnewpass   
  27. end function   
  28. %> 

延伸 · 阅读

精彩推荐