« 网页内嵌多媒体内容的完美实现为什么需要XHTML »

asp自定义函数:生成随机数字

下列函数,用以生成随机的数字

function MyRandn(n) '生成随机数字,n为数字的个数
 dim thechr
 thechr = ""
 for i=1 to n
  dim zNum,zNum2
  Randomize
  zNum = cint(9*Rnd)
  zNum = zNum + 48
  thechr = thechr & chr(zNum)
 next
 MyRandn = thechr
end function

MyRandn(n) 生成随机数字,n为数字的个数

如:
response.write MyRandn(10)
输出10个随机数字

原创文章如转载,请注明:转载自悠悠博客 [ http://www.ajaxstu.com/ ]

相关文章:

发表评论:

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。