国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > ASP > 正文

ASP生成隨機數(shù) ASP生成不重復隨機數(shù)

2024-05-04 11:09:46
字體:
來源:轉載
供稿:網友
這篇文章主要介紹了ASP生成不重復隨機數(shù)的方法,需要的朋友可以參考下

ASP生成隨機數(shù):

復制代碼 代碼如下:


Randomize '純隨機,不重復
Response.write Int((999999999 * Rnd) + 111111111) '生成111111111到999999999之間隨機數(shù)

ASP不重復隨機數(shù):

方法一: 已測

使用的時候需要注意里面的分割字符串的字符。

復制代碼 代碼如下:


<%
'生成的是一個不重復的數(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)
%>



方法二:

復制代碼 代碼如下:


<%
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<sum
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ù)字,結尾數(shù)字,生成多少個
%>

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板: 东乌珠穆沁旗| 怀集县| 平武县| 皋兰县| 沙河市| 六盘水市| 滦南县| 衡阳县| 阿鲁科尔沁旗| 玛纳斯县| 城口县| 巴林右旗| 大邑县| 策勒县| 葫芦岛市| 贵溪市| 怀化市| 通海县| 南木林县| 福泉市| 孟连| 桐城市| 平安县| 大竹县| 神农架林区| 罗定市| 霍邱县| 长汀县| 永德县| 红河县| 宁明县| 岗巴县| 吴堡县| 乐都县| 宁乡县| 皋兰县| 贵南县| 灵武市| 长子县| 屏南县| 崇仁县|