asp 生成100个随机数字不重复1 亲测可用

<%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
%>
<%=pass%><br>
<%next%>

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 效果如下

94552254
16121786
30588320
74602044
97261687
42284312
65753845
10766560
33334113
77348737
91816461
24374904
68498638
71966261
36071886
48548528
94552254
16121786
30588320
74602044
97261687
42284312
65753845
10766560
33334113
77348737
91816461
24374904
68498638
71966261
36071886
48548528