article:
tag:
just test

ASP > ASP?无重复数字随机函数,?数组实现,?并应用于随机显示记录集?By?shawl.qiu 上一篇 | 下一篇

ASP 无重复数字随机函数, 数组实现, 并应用于随机显示记录集 By shawl.qiu


作用:
本函数适用于随机显示小数量的随机不重复数字
本函数适用于显示小数量的随机不重复记录集
为了不影响效率, 上限超过一千, 不建议使用本函数

shawl.qiu
2006-09-06
 http://blog.csdn.net/btbtd

主内容: 函数及应用函数随机显示100条记录
    linenum
  1. <%
  2.     dim rs, rNum
  3.     dim temp
  4.     set rs=createObject("adodb.recordset")
  5.         rs.open "select top 100 * from rnd_v1",conn,1
  6.         rNum=rs.recordCount-1
  7.         for each temp in fRndNoRpt(0,rNum)
  8.             rs.move temp
  9.             response.write rs("sbcat")
  10.             response.write "<br/>"
  11.             rs.movefirst
  12.         next
  13.         rs.close
  14.     set rs=nothing 'shawl.qiu code'
  15.     function fRndNoRpt(lwNum,upNum)
  16.     ''''''''''''''''''''''''''''''''''''''''''''
  17.     ' ASP 无重复数字随机函数, 数组实现, By shawl.qiu
  18.     ' 2006-09-06
  19.     '   http://blog.csdn.net/btbtd
  20.     '''''''''''''''''''''''''''''''''
  21.     ' 注意: 随机数超过1000, 不建议使用本函数.
  22.     '''''''''''''''''''''''''''''''''
  23.     ' 参数说明:
  24.     '''''''''''''''''''''''''''''''''
  25.     ' lwNum 为 数字数组下限, 如: 1
  26.     ' upNum 为 数字数组上限, 如: 100
  27.     '''''''''''''''''''''''''''''''''
  28.     ' sample call:
  29.     '''''''''''''''''''''''''''''''''
  30.     '    dim t
  31.     '    for each t in fRndNoRpt(1,100)
  32.     '        response.write t&"<br/>"
  33.     '    next
  34.     ''''''''''''''''''''''''''''''''''''''''''''
  35.         if upNum<1 or isNull(upNum) or upNum="" or isNumeric(upNum)=false then exit function
  36.         if lwNum<0 or isNumeric(lwNum)=false then exit function
  37.         dim num, temp
  38.         
  39.         dim ar()
  40.         redim ar(upNum)
  41.         dim j:j=0
  42.         
  43.         for temp=lwNum to upNum
  44.             num=num&"."&temp&"."
  45.         next
  46.     
  47.         randomize    
  48.         do until num=""
  49.                 temp=int((upNum-lwNum+1)*rnd+lwNum)
  50.             if inStr(num,"."&temp&".")<>0 then 
  51.                 num=replace(num,"."&temp&".","")
  52.                 ar(j)=temp
  53.                 j=j+1
  54.             end if
  55.         loop
  56.         fRndNoRpt=ar
  57.         erase ar
  58.     end function 'shawl.qiu code'
  59.     response.write "<p/>使用随机数函数显示1至100的不重复随机数 1:<br/>-----------------------<br/>"
  60.     for each temp in fRndNoRpt(1,100)
  61.         response.write temp&"<br/>"
  62.     next
  63.     response.write "<p/>使用随机数函数显示1至100的不重复随机数 2:<br/>-----------------------<br/>"
  64.     temp=join(fRndNoRpt(1,100),"-")
  65.     response.write mid(temp,1,len(temp)-1)
  66. %>

@suches
http://btbtd.com/mods/blog/item.php?uid=1&item=3805

发表于 @ 2006-09-06 08:00:00

该文章暂时没有回复
评论内容:
昵称:
验证码: