刚刚写好的ASP生成随机数
刚刚写好的ASP生成随机数,很简单的不用我说大家也看的明白!由于我不经常用就不做成函数了!这是供新手学习用的,高手就略过吧!
<%
RANDOMIZE
dim jg(5)
jg(0) = ""
for r=0 to 5
su = ""
for i=0 to 2
su = su & int((9+1)*rnd())
next
if su < 100 then
r = r-1
end if
if su > 100 then
for a=0 to r
if su = jg(a) or su = "" then
r = r-1
end if
next
if r >= 0 then
jg(r) = su
end if
end if
next
for e=0 to 4
response.Write int("10000" & jg(e)) & "<hr>"
next
%>
本文出自 小古Blog,转载时请注明出处及相应链接。
本文永久链接: http://blog.chdz1.com/?post=133