当前位置: 首页 > 图文教程 > 网络编程 > ASP > 一个不错的随机函数
ASP 中的 一个不错的随机函数
出处:互联网 整理: 软晨网(RuanChen.com) 发布: 2009-11-03 浏览: 40 ::
收藏到网摘:
n/a
<%
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
%>