学院首页>网络编程>ASP>一个不错的随机函数

一个不错的随机函数

作者：GenieLi 来源：开发者俱乐部 添加时间：2006-5-21 10:25:47
<%
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
%> 
上一篇：利用ASP实现三个强大功能之一
下一篇：一套加解密字符串的函数
站内搜索