展开全部
下面这个函数可以生成N个不重复的随机数,范围你也可以指定
<%
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(1,9,36)
%>
<%
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(1,9,36)
%>
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询