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

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