<%for i = 1 to 100%>
<% '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.cnhww.com
%>
<%=pass%><br>
<%next%>