Question

asp生成5000个不重复随机数

怎么生成?
是生成5000个8位不重复随机数

Answer 1

<%
Function RanNum(Lownumber,Highnumber)'//产生特定范围内的随机数
Dim j,k
j = Lownumber
k = Highnumber
Randomize
RanNum = Int(( k - j + 1) * Rnd + j)
End Function

'我一直在用这个函数

for i=1 to 5000
response.write(RanNum(10000000,99999999)&"<br>")
next
%>

Answer 2

＜%
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(33,1,36)
%＞