ASP产生一个随机数不难,就两条特定语句:
<%
Randomize
x=int(20*rnd+1)
%>
以上的两条语句,表示从1~20这个范围内产生随机数,并且这些随机数都是整数。
那么,要在1~20连续产生20个不同的随机数,也就是随机排列1~20,该怎么解决呢?
首先,我们需要数组来存储这20个不同的随机数。
ASP可以用如下的两种方式定义一个容量为20数组:
<%
dim number(20)
%>
<%
dim number
redim number(20)
%>
其中,第二组后接number= Session("xx") 能接住前一页面通过Session("xx")=number,传递过来的number数组。
要在1~20连续产生20个不同的随机数,也就是随机排列1~20的基本思想是:
首先在1~20产生一个随机数X,然后对这个之前产生的数据进行遍历,判断是否存在有数等于这个新产生的随机数的,如果有,立flag,
然后对之前的数据遍历完毕之后,判断flag是否立起来,
如果是,就不添加这个随机数进数组,重新产生随机数并收起flag,再重新遍历已有的数据中是否已有这个随机数,
如果否,就添加,直到20个数据产生完毕。
最后输出这个20个数据
具体实现的代码如下:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
'禁止缓存'
Response.CacheControl="no-cache"
Response.Expires=-1
Response.Charset="UTF-8" '配合第一行设定网页编码'
'核心代码'
dim RandomArray(20) '定义一个长20的一位数组'
i=0
do while i<UBound(RandomArray,1)
Randomize
x=int(20*rnd+1)
flag=true
For j=0 To UBound(RandomArray,1)
if RandomArray(j)=x then
flag=false
exit for
end if
next
if flag=true then
RandomArray(i)=x
i=i+1
end if
loop
'输出数组'
For i=0 To UBound(RandomArray,1)
Response.Write RandomArray(i)&","
Next
%>
运行结果如下:
可以发现,每次刷新这个页面,此20个数据都是不同的。