ASP生成隨機(jī)數(shù)：
復(fù)制代碼 代碼如下:
Randomize '純隨機(jī),不重復(fù)
Response.write Int((999999999 * Rnd) + 111111111) '生成111111111到999999999之間隨機(jī)數(shù)
ASP不重復(fù)隨機(jī)數(shù)：
方法一： 已測
使用的時(shí)候需要注意里面的分割字符串的字符。
復(fù)制代碼 代碼如下:
%
'生成的是一個(gè)不重復(fù)的數(shù)組
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)
%>
方法二：
復(fù)制代碼 代碼如下:
%
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 isum
temp=int(rnd*(iend-istart+1)+istart)
if i=0 then
arrayid(0)=temp
i=i+1
iloop=iloop+1
else
for j=0 to i-1
if arrayid(j)=temp then
blnre=true
iloop=iloop+1
exit for'這一句很重要，防止多余的循環(huán)
else
iloop=iloop+1
end if
next
if blnre=false then
arrayid(i)=temp
i=i+1
else
blnre=false
end if
end if
loop
rndarray=join(arrayid)
end function
response.write rndarray(1,5,1) '開始數(shù)字,結(jié)尾數(shù)字,生成多少個(gè)
%>
您可能感興趣的文章:- ASP隨機(jī)數(shù)RND()使用方法
- asp隨機(jī)數(shù) 隨機(jī)產(chǎn)生N位由數(shù)字和字母組成的密碼
- asp實(shí)現(xiàn)生成由數(shù)字，大寫字母，小寫字母指定位數(shù)的隨機(jī)數(shù)
- ASP中一個(gè)用VBScript寫的隨機(jī)數(shù)類
- 深思 PHP 數(shù)組遍歷的差異（array_diff 的實(shí)現(xiàn)）
