<%
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技术首页 | ASP基础 | ASP应用 | ASP技巧 | 性能优化 | 安全加密 | XML相关 | 全文检索 | 客户端相关 | 打印相关 | 数据库相关 | 正则表达式 | 系统相关 | 组件开发 | 脚本编码 | 远程脚本 | 邮件相关 | FSO专题 | 分类 | 专题 | 留言本 | 投稿 | 搜索 |