ASP生成不重复随机数的案例代码

本文介绍了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) '开始数字,结尾数字,生成多少个 

%>

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!