刚刚写好的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
%>