Asp → 阅读文章

一个不错的随机函数

作者：GenieLi 来源：开发者俱乐部
阅读 11208 人次 , 2002-3-4

<%
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
%>　　

收藏本文打印本文论坛讨论关闭窗口

· 上一篇：INSERT语法使用技巧一例
· 下一篇：一套加解密字符串的函数

· 关于INDEX SERVER+ASP建立查询引擎的一点心得
· 最新的关于Cookies的操作
· 使用xmldom在服务器端生成静态html页面
· IMail基础教程(四) 用POP3方式收发邮件
· 利用JSP的思想来做ASP