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