ASP随机涵数生成100条8位字母和数字混合密码

　2008-12-03 11:12:03　来源：WEB开发网　　　

核心提示：<%for i = 1 to 100%><%Randomizepass=""Do While Len(pass)<8 '随机密码位数 num1=CStr(Chr((57-48)*rnd+48)) '0~9 num2=CStr(Chr((122-97)*rnd+

<%for i = 1 to 100%>
<%
Randomize
pass=""
Do While Len(pass)<8 '随机密码位数
num1=CStr(Chr((57-48)*rnd+48)) '0~9
num2=CStr(Chr((122-97)*rnd+97)) 'a~z
pass=pass&num1&num2
loop
'原创:www.devdao.com
%>
<%=pass%><br>
<%next%>