|东莞产品推广|网站建设公司|网站开发东莞|网络公司东莞|东莞做网站|东莞连邦软件|网页设计公司|东莞软件销售|东莞.com域名注册|东莞.cn域名注册|东莞雅虎推广|东莞网站建设|--一个不错的随机函数。

建站必读

网站建设知识

网站推广研究

当前位置：首页 -> 建站必读 -> ASP技术

一个不错的随机函数。

<%

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

%>

本站关键词：

|东莞产品推广|网站建设公司|网站开发东莞|网络公司东莞|东莞做网站|东莞连邦软件|网页设计公司|东莞软件销售|东莞.com域名注册|东莞.cn域名注册|东莞雅虎推广|东莞网站建设||东莞产品推广|网站建设公司|网站开发东莞|网络公司东莞|东莞做网站|东莞连邦软件|网页设计公司|东莞软件销售|东莞.com域名注册|东莞.cn域名注册|东莞雅虎推广|东莞网站建设|