• 为救割腕女子 的哥连闯4个红灯 2019-04-10
  • 习近平参加贵州代表团审议 2019-04-06
  • 书写新时代万千气象 凝聚全民族磅礴力量 2019-04-04
  • 上半年逾2000亿债券发行取消或推迟 2019-03-31
  • 更正:将“只有存在……”改为“只要存在……”。 2019-03-31
  • 成都市武侯区:探索“三转双向两护”基层网络空间治理 2019-03-29
  • 安徽古井集团有限公司获第十二届人民企业社会责任奖年度企业奖 2019-03-28
  • 日本大阪地震已致4人死亡、370多人受伤 2019-03-28
  • 质疑的能力都没有,还有批判的余地吗》?看着就想笑 2019-03-28
  • 江西庆祝世界献血者日 2019-03-27
  • 《征途2手游》4月12日全平台上线 共赴12年征途盛宴 2019-03-27
  • 劳动创造价值,看生产队求工分值之实践。事实说劳动创造价值,能否认的了吗? 2019-03-19
  • 人民网评:别再让“600瓶白酒”恶化政治生态 2019-03-19
  • 习近平致人民日报创刊70周年的贺信 2019-03-17
  • 当蔚来照进现实 场地初试蔚来ES8 2019-03-17
  • 网站广播 本站提供的源码经过测试,有前台及后台管理界面演示图,免费下载!
    ASP生成不重复随机数的实例代码
    2014-11-14 08:17:14    【 】   浏览:
    本文介绍了ASP生成不重复随机数的方法,asp生成不重复随机数的实例代码,有需要的朋友参考下。

    湖北福彩快三走势图 www.kqbz.net
    例1,ASP生成随机数,很简单:
     

    代码示例:
    Randomize '纯随机,不重复 
    Response.write Int((999999999 * Rnd) + 111111111) '生成111111111到999999999之间随机数


    例2,ASP不重复随机数:
     

    代码示例:
    <% 
    '--------------------
    '-生成随机数
    function rndarray(istart,iend,sum) 
    dim arrayid(),i,j,blnre,temp,iloop,eloop 
    redim arrayid(sum-1) 
    i=0 
    iloop=0 
    eloop=0 
    blnre=false 
    randomize 
    do while i 
    temp=int(rnd*(iend-istart+1)+istart) 
    if i=0 then 
    arrayid(0)=temp 
    i=i+1 
    iloop=iloop+1 
    else 
    for j=0 to i-1 
    if arrayid(j)=temp then 
    blnre=true 
    iloop=iloop+1 
    exit for '防止多余的循环 
    else 
    iloop=iloop+1 
    end if 
    next 
     if blnre=false then 
     arrayid(i)=temp 
     i=i+1 
     else 
     blnre=false 
     end if 
    end if 
    loop 
    rndarray=join(arrayid) 
    end function 
    response.write rndarray(1,5,1) '开始数字,结尾数字,生成多少个 
    %>


    Tags:ASP 生成 不重复 随机数 实例 代码
    】【打印繁体】【关闭】 【返回顶部
    上一篇asp自动刷新页面的实现方法总结 下一篇ASP实现301域名重定向代码

    广告推荐

    ASP技术文章推荐阅读

  • 为救割腕女子 的哥连闯4个红灯 2019-04-10
  • 习近平参加贵州代表团审议 2019-04-06
  • 书写新时代万千气象 凝聚全民族磅礴力量 2019-04-04
  • 上半年逾2000亿债券发行取消或推迟 2019-03-31
  • 更正:将“只有存在……”改为“只要存在……”。 2019-03-31
  • 成都市武侯区:探索“三转双向两护”基层网络空间治理 2019-03-29
  • 安徽古井集团有限公司获第十二届人民企业社会责任奖年度企业奖 2019-03-28
  • 日本大阪地震已致4人死亡、370多人受伤 2019-03-28
  • 质疑的能力都没有,还有批判的余地吗》?看着就想笑 2019-03-28
  • 江西庆祝世界献血者日 2019-03-27
  • 《征途2手游》4月12日全平台上线 共赴12年征途盛宴 2019-03-27
  • 劳动创造价值,看生产队求工分值之实践。事实说劳动创造价值,能否认的了吗? 2019-03-19
  • 人民网评:别再让“600瓶白酒”恶化政治生态 2019-03-19
  • 习近平致人民日报创刊70周年的贺信 2019-03-17
  • 当蔚来照进现实 场地初试蔚来ES8 2019-03-17