一个不错的选择|一个不错的随机函数。

更新时间:2014-07-08    来源:php函数    手机版     字体:

【www.bbyears.com--php函数】

<%
Dim myarr
For i = 0 To 100
Randomize
no = Int((1000-1+1)*Rnd+1)
For j = 0 To i
If no <> myarr(j) And no <> "" Then
j = j + 1
Else
Exit For
End If
myarr(i) = no
Next
If i = 21 Then
Exit For
End If
Next
%>

本文来源:http://www.bbyears.com/jiaocheng/7632.html