• 第五届西安(浐灞)金融高峰论坛召开 2019-08-23
  • 羡慕吗?品虾师每天吃两斤小龙虾 2019-08-16
  • 我们没有足够的力量来威慑?人民中大多数肯定是不能再接受清式双赢的。俺很想尝尝历战总是赢家给咱准备的“后果”,这次不吃肯定会长到吃不吃由不得我。告诉世界:不要让我 2019-08-13
  • 广州记忆丨无龙舟不端午!没有强劲臂弯的龙船发烧友不是好的传承人 2019-08-13
  • 国务院:全面禁止洋垃圾入境   2019-08-11
  • 海岸旅行地中国国家地理网 2019-08-09
  • "情系民歌 让爱传递"义卖活动 传递社会正能量 2019-08-08
  • 巴彦淖尔--内蒙古频道--人民网 2019-08-08
  • 广州旅游为何爆发出强大且持续的吸引力 2019-08-02
  • 《平凡的荣耀》展现上海风情 赵又廷新剧打破职场剧套路 2019-07-29
  • 垃圾袋里有碎玻璃 贴上标签才放心扔 2019-07-29
  • 日本大阪6.1级强震4死逾300伤 工厂及店铺恢复运营 2019-07-25
  • 太原网友:建议公交调整河西线路 2019-07-21
  • 纪念马克思诞辰200周年 2019-07-17
  • 金融战,贸易战,是看不见硝烟的战争,但代价同样是惨烈的。面对强敌,奉陪到底,打好这场事关国运之战。 2019-07-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技术文章推荐阅读

  • 第五届西安(浐灞)金融高峰论坛召开 2019-08-23
  • 羡慕吗?品虾师每天吃两斤小龙虾 2019-08-16
  • 我们没有足够的力量来威慑?人民中大多数肯定是不能再接受清式双赢的。俺很想尝尝历战总是赢家给咱准备的“后果”,这次不吃肯定会长到吃不吃由不得我。告诉世界:不要让我 2019-08-13
  • 广州记忆丨无龙舟不端午!没有强劲臂弯的龙船发烧友不是好的传承人 2019-08-13
  • 国务院:全面禁止洋垃圾入境   2019-08-11
  • 海岸旅行地中国国家地理网 2019-08-09
  • "情系民歌 让爱传递"义卖活动 传递社会正能量 2019-08-08
  • 巴彦淖尔--内蒙古频道--人民网 2019-08-08
  • 广州旅游为何爆发出强大且持续的吸引力 2019-08-02
  • 《平凡的荣耀》展现上海风情 赵又廷新剧打破职场剧套路 2019-07-29
  • 垃圾袋里有碎玻璃 贴上标签才放心扔 2019-07-29
  • 日本大阪6.1级强震4死逾300伤 工厂及店铺恢复运营 2019-07-25
  • 太原网友:建议公交调整河西线路 2019-07-21
  • 纪念马克思诞辰200周年 2019-07-17
  • 金融战,贸易战,是看不见硝烟的战争,但代价同样是惨烈的。面对强敌,奉陪到底,打好这场事关国运之战。 2019-07-17
  • 内蒙古快三遗漏数据 单双中特准高手版 福彩3d预测分析 天际彩友心水论坛 搜狐彩票 百度搜索彩票开奖查询 大佬她是万人迷 大乐秀开奖结果走势图 ◆精准一头一尾中特◆ 49码选开奖结果 多乐彩十一选五开奖结果 福建22选5玩法说明书 腾讯nba湖人背景音乐 胜负彩12128期任选9场 快乐十分破解秘籍