ASP生成不重複隨機數的例項程式碼
阿新 • • 發佈:2020-12-10
本文介紹了ASP生成不重複隨機數的方法,asp生成不重複隨機數的例項程式碼,有需要的朋友參考下。
例1,ASP生成隨機數,很簡單:
Randomize '純隨機,不重複 Response.write Int((999999999 * Rnd) + 111111111) '生成111111111到999999999之間隨機數
例2,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 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 '防止多餘的迴圈 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) '開始數字,結尾數字,生成多少個 %>