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

标签：asp   vbscript   随机数   遍历   数组   

ASP产生一个随机数不难，就两条特定语句：

<%
Randomize 
x=int(20*rnd+1)
%>

那么，要在1~20连续产生20个不同的随机数，也就是随机排列1~20，该怎么解决呢？

首先，我们需要数组来存储这20个不同的随机数。

ASP可以用如下的两种方式定义一个容量为20数组：

<%
dim number(20)
%>

<%
dim number
redim number(20)
%>

要在1~20连续产生20个不同的随机数，也就是随机排列1~20的基本思想是：

首先在1~20产生一个随机数X，然后对这个之前产生的数据进行遍历，判断是否存在有数等于这个新产生的随机数的，如果有，立flag，

然后对之前的数据遍历完毕之后，判断flag是否立起来，

如果是，就不添加这个随机数进数组，重新产生随机数并收起flag，再重新遍历已有的数据中是否已有这个随机数，

如果否，就添加，直到20个数据产生完毕。

最后输出这个20个数据

具体实现的代码如下：

可以发现，每次刷新这个页面，此20个数据都是不同的。

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

标签：asp   vbscript   随机数   遍历   数组   

原文地址：http://blog.csdn.net/yongh701/article/details/41276871