asp长度为4的随机数字怎么写

作者: zj53770   发布时间: 2011-07-17

<%
function rand_num(rnum)
    dim ri,rmax,rmin,rndnum
    rmax=10^(rnum)-1
    rmin=10^(rnum-1)
    randomize
    rndnum=int((rmax-rmin+1)*rnd)+rmin
    for ri=1 to rnum-len(rndnum)
      rndnum="0"&rndnum
    next
    rand_num=rndnum
 end function

'调用
response.write("这是第一次随机数:"&rand_num(4)&"<br>")
response.write("这是第二次随机数:"&rand_num(4))
%>

作者: beyond_me21   发布时间: 2011-07-17

作者: zj53770   发布时间: 2011-07-17

作者: beyond_me21   发布时间: 2011-07-17

作者: zj53770   发布时间: 2011-07-17