ASP生成随机数 ASP生成不重复随机数

在ASP中生成不重复随机数的方法

对于需要在ASP环境中生成随机数的朋友们，这里有一种高效且实用的方法。生成的随机数不仅具有随机性，而且保证不会重复。让我们一起来看看吧。

我们先来看一个简单的随机数生成方法：

```asp

Randomize '启动随机种子生成器，确保每次生成的随机数不同

Response.write Int((999999999 Rnd) + 111111111) '生成指定范围内的随机数

```

这种方法简单易行，但生成的随机数可能会存在重复的情况。为了解决这个问题，我们可以采用下面的方法。

方法一：使用数组存储随机数，确保不重复。这种方法在生成大量随机数时非常有效。代码如下：

```asp

<%

Function GetRnd(lowerNum, upperNum)

Dim unit, RndNum, Fun_X

unit = upperNum - lowerNum

Redim MyArray(unit)

For Fun_I = 0 To unit

myArray(Fun_I) = lowerNum + Fun_I

Next

For Fun_I = 0 To round(unit)

RndNum = getRndNumber(Fun_I, unit)

Fun_X = myArray(RndNum)

myArray(RndNum) = myArray(Fun_I)

myArray(Fun_I) = Fun_X

Next

GetRnd = Join(myArray)

End Function

Function getRndNumber(lowerbound, upperbound)

Randomize '每次调用前先初始化随机数种子，确保随机性

getRndNumber = Int((upperbound - lowerbound + 1) Rnd + lowerbound)

End Function

Response.Write GetRnd(1, 1000) '输出生成的随机数数组，范围从1到1000，不重复

%>

```

方法二：使用更复杂的算法来生成不重复的随机数数组。这种方法能够确保生成的每个随机数都是唯一的。代码如下：

```asp

<% function rndarray(istart, iend, sum)

dim arrayid(), i, j, blnre, temp, iloop, eloop

redim arrayid(sum-1)

i=0 iloop=0 eloop=0 blnre=false randomize do while i

```以上两种方法均能在ASP环境中有效地生成不重复的随机数。根据您的具体需求和运行环境选择最适合的方法即可。如果您在操作过程中遇到任何问题，欢迎随时交流。