Question

求一段ASP网页代码：产生指定范围随机数字

求一段ASP网页代码：产生指定范围随机数字
例如：我想让一个网址是变化的 baidu.com/xxx.html
其中“XXX”就是100-10000的随机数字.
该怎么实现呢？

Answer 1

<%
Function Order_Num
dtNow=Now()
randomize
ranNum=int(90*rnd)+10
Order_Num=year(dtNow) & right("0" & month(dtNow),2) & right("0" & day(dtNow),2) & right("0" & hour(dtNow),2) & right("0" & minute(dtNow),2) & right("0" & second(dtNow),2) & ranNum
End Function
%>
'产生,年月,日,再加.几位数的随机数.把这个代码写在固定文件里.如function.asp 再页面调用直接用.<%=Order_Num%>
<%
Function ProNumber(Enlen,Numlenth)
RandStr="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
For i = 1 to Enlen
Randomize
NumEng = NumEng & Mid(RandStr,Int((Len(RandStr) * Rnd) + 1),1)
Next
ProNumber=NumEng&"-"&Order_Num
End Function
%>
'产生,英文大小写的随机数.再加一串数字.与上面的程序写在一起方可调用.页面调用直接用.<%=ProNumber(英文显示的长度,数字显示的长度.)%>

追问

我只想调用一个页面，而这个页面是随机产生的，只产生数字无英文，朋友能不能给我一个直接运行的代码，
例如：我想调用这个123.html这个页面，调用代码是：
而我现在想实现的是“123”是变化的，也就是这个页面是变化的即100-10000.html
该怎样实现呢?楼主我是非职业的，能否贴下相信的代码？我直接粘贴就行了！谢

追答

调用直接用.html'>
但是这样的话容易产生重复数.建议加上年月日时分秒就不容易

Answer 2

用rnd()函数
这个函数的作用是得到0~1间的数
代码：
randomize '在前面加上这个，可以确保每次运行都会重新生成一个随机数
a=int(rnd()*10000) '这个a就是你要的那个XXX了

Answer 3

function RanNum(startNum,overNum)
Randomize
myNum=Int(Rnd*overNum)
if myNum<startNum then
myNum=startNum+myNum
end if
RanNum=myNum
end function

htmlID=RanNum(100,10000)

追问

求完整的ASP代码。这个代码放到ASP页面里面就可以直接运行吗?

追答

这是产生100-10000随机数的代码，可以直接运行