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

2008-12-04 08:26:00  編輯來源:互聯網  简体版  手機版  評論  字體: 小|中|大

 

 

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

 

 

 

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