• 你看现在又跟贴的,都是在耍猴玩,大家都该看着就想笑 2019-06-13
  • FIIL随身星深度体验:原来科技如此之近 2019-06-13
  • 卢思骋:粤港澳大湾区生态规划要趁早 2019-06-08
  • 西安外事学院在省茶艺大赛中创多项佳绩西安外事学院-陕西教育新闻 2019-06-07
  • 守住青山不放松 护好绿水不辞难——在渝全国人大代表聚焦“共抓大保护、不搞大开发”专题调研记略 2019-06-07
  • 北京市第六医院包头金荣集团暖心送医行 2019-06-06
  • 重庆高校陆续公布招生计划、专业设置情况和新政策 2019-06-06
  • 好文一览的博客—强国博客—人民网 2019-05-31
  • 全军启动826门军事职业教育重点课程建设任务 2019-05-28
  • 人民日报迁入北平后在王府井大街的工作地点 2019-05-25
  • 山西省互联网违法和不良信息举报中心——黄河新闻网 2019-05-24
  • 21世纪马克思主义的实践贡献与时代价值 2019-05-22
  • 为975万高考生加油,这支满分舞燃爆校园! 2019-05-16
  • 美媒:朝电视台播放“金特会”纪录片 讲述口吻发生变化 2019-05-16
  • 【北京隆晟通达车型报价】北京隆晟通达4S店车型价格 2019-05-12
  • 网站广播 本站提供的源码经过测试,有前台及后台管理界面演示图,免费下载!
    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技术文章推荐阅读

  • 你看现在又跟贴的,都是在耍猴玩,大家都该看着就想笑 2019-06-13
  • FIIL随身星深度体验:原来科技如此之近 2019-06-13
  • 卢思骋:粤港澳大湾区生态规划要趁早 2019-06-08
  • 西安外事学院在省茶艺大赛中创多项佳绩西安外事学院-陕西教育新闻 2019-06-07
  • 守住青山不放松 护好绿水不辞难——在渝全国人大代表聚焦“共抓大保护、不搞大开发”专题调研记略 2019-06-07
  • 北京市第六医院包头金荣集团暖心送医行 2019-06-06
  • 重庆高校陆续公布招生计划、专业设置情况和新政策 2019-06-06
  • 好文一览的博客—强国博客—人民网 2019-05-31
  • 全军启动826门军事职业教育重点课程建设任务 2019-05-28
  • 人民日报迁入北平后在王府井大街的工作地点 2019-05-25
  • 山西省互联网违法和不良信息举报中心——黄河新闻网 2019-05-24
  • 21世纪马克思主义的实践贡献与时代价值 2019-05-22
  • 为975万高考生加油,这支满分舞燃爆校园! 2019-05-16
  • 美媒:朝电视台播放“金特会”纪录片 讲述口吻发生变化 2019-05-16
  • 【北京隆晟通达车型报价】北京隆晟通达4S店车型价格 2019-05-12