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. %>