急!!!求助求助

#2

multiple19022008-09-18 13:06

If语句。

无参数的Rnd函数可以产生一个[0,1)的实数，建议在Rnd调用之前调用Randomize初始化随机数发生器。

Int函数等可以用于截尾。

#3

tianyu1232008-09-18 13:07

大哥 1~7能产生8位不重复的数字吗

下面做个参考吧

<%
function check(str)
str=str
dim i,s,n
s=split(str,",")
for i=0 to ubound(s)
Randomize '随机种子
n=Int((ubound(s)-0+1)*Rnd(now())+0)
response.write s(n)
  if n=0 and n<>ubound(s) then
     str=right(str,len(str)-len(s(n))-1)
  elseif n=ubound(s) and n<>0 then
     str=left(str,len(str)-len(s(n))-1)
  else
     str=replace(str,","&s(n)&",",",")
  end if
s=split(str,",")
next
end function
str="0,1,2,3,4,5,6,7"
check str
%>

#4

smart7215212008-09-19 09:45

两位大哥个能是我表达得不清楚，我说的是10000000~70000000之间的数随机产生，条件是当trim(request("id"))在框体取值为空的时候

#5

multiple19022008-09-19 12:57

汗一下，原来3楼理解不准确。

2楼的回答似乎还没有什么问题，只是2楼比较懒，没给你代码。如果你查查相关资料，应该是不难的。

#6

南美鹰2008-09-19 15:17

trim(request("id"))在框体取值为空的时候,不晓得你什么框体.用if语句判断下就好.
1000000~7000000的随机数你可以这样写:
var x=math.random(); //产生随机小数把值附给x
var y=parseInt(x*1000000); //获得7位数的整数,把值附给y,

#7

smart7215212008-09-19 16:09

谢谢，楼上的各位的帮忙！

#8

lonsing2008-09-19 17:02

解决啦？？

急!!!求助 求助