动网开发者网络--国内领先的网络开发者基地，为开发者和企业提供全面的网络信息服务和资源

		开发者网络动网主机支持论坛邮局帮助

当前位置：网络学院 → ASP技术 → ASP技巧 → 一个不错的随机函数

一个不错的随机函数

日期：2002年3月4日作者：GenieLi 人气： [大中小]

<%
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中使用SQL语句之8:随机数

·随机取出数据库中的若干条记录的方法

·如何随机选取n条记录或者对记录作随机排序？

相关软件：

说明：本站部分内容收集于网络，如有侵犯您的权益请来信告知，我们会第一时间进行处理，谢谢

　→ 特别推荐

　→ 热点TOP10