【ASP】在特定的范围内产生N个不同的随机数

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个数据都是不同的。