asp 随机产生多个不同值的程序

2011年03月07日 14:28 by:lao8

 比如我们想从10个人中随机挑出其中的6个人那么就要用到随机函数了

备份一下这个程序以备以后查用

<% 
Function RndNumber(MaxNum,MinNum) 
Randomize 
RndNumber=int((MaxNum-MinNum+1)*rnd+MinNum) 
RndNumber=RndNumber 
End Function 

Function RndN(N,a,b) '产生一个长度为N的不重复的随机字符串,a为最小值,b为最大值 
execute("dim shu("&N&")") 
flag=false 
i=0 
while(i <N) 
x=RndNumber(b,a) 
j=0 
while(j <i) 
if shu(j)=x then flag=true 
j=j+1 
wend 
if not flag then 
shu(i)=x 
i=i+1 
else 
flag=false 
end if 
wend 
RndN=join(shu,",") 
end function 

response.write RndN(6,1,10) 
%>

标签:asp随机数