网站广播 本站提供的源码经过测试,有前台及后台管理界面演示图,免费下载!
ASP生成不重复随机数的实例代码
2014-11-14 08:17:14    【 】   浏览:
本文介绍了ASP生成不重复随机数的方法,asp生成不重复随机数的实例代码,有需要的朋友参考下。


例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技术文章推荐阅读

1比1现金兑换捕鱼游戏
苍山县| 乐业县| 天柱县| 大渡口区| 大悟县| 通许县| 都安| 莱州市| 渭南市| 缙云县| 建昌县| 太谷县| 广安市| 罗甸县| 邹平县| 麦盖提县| 兰州市| 喜德县| 东方市| 临潭县| 承德县| 玛沁县| 博兴县| 甘洛县| 尤溪县| 阿图什市| 河津市| 和静县| 西青区| 鄱阳县| 河南省| 涞水县| 县级市| 定日县| 萨嘎县| 阿拉善左旗| 霍林郭勒市| 抚宁县| 武定县| 明星| 吉木乃县| http://www.fmqcpd.gdn http://www.osvp.cn http://www.fmszj.cn http://www.naory.cn http://www.g0xj2.cn http://www.5z98z.cn