Question

求一段随即生成数字600-700之间的ASP代码 谢谢

如题

Answer 1

下面这个函数可以生成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(9,600,700)
%>

Answer 2

<%
Randomize
nn=int(101*rnd+600)
response.write nn
%>

把以上保存为asp文件看看，NN就是600-700之间随机数

Answer 3

<%
Randomize
nn=int(101*rnd+600)
response.write nn
%>