用的是CSDN上一個(gè)高手的思想。
<%
Redim A_StrA(1000)
For i = 0 To 999
A_StrA(i) = i
Next
s_Str = ""
m = 0
n = 1
Randomize timer
For i = 0 To 1000
i_Rnd = Fix(Rnd * (999 - i + 1))
If m = 50 Then
Response.Write n&":"&s_Str&"<br>"
If n = 20 Then
Exit For
End If
n = n + 1
m = 1
s_Str = ""
Else
m = m + 1
End If
If s_Str <> "" Then
s_Str = s_Str & ","
End If
For j = Len(A_StrA(i_Rnd)) To 2
s_Str = s_Str & "0"
Next
s_Str = s_Str & A_StrA(i_Rnd)
For k = i_Rnd To 999
A_StrA(k) = A_StrA(k + 1)
Next
Next
%>