刚刚写好的ASP生成随机数

作者: 小古 分类: 网站技术 发布时间: 2012-1-17 ė11511 次浏览 60 条评论

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

|

发表评论:

电子邮件地址不会被公开。 必填项已用*标注

Ɣ回顶部
sitemap