網站廣播 本站提供的源碼經過測試,有前臺及后臺管理界面演示圖,免費下載!
ASP生成不重復隨機數的實例代碼
2014-11-14 08:17:14    【 】   瀏覽:
本文介紹了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) '開始數字,結尾數字,生成多少個 
%>


Tags:ASP 生成 不重復 隨機數 實例 代碼
】【打印繁體】【關閉】 【返回頂部
上一篇asp自動刷新頁面的實現方法總結 下一篇ASP實現301域名重定向代碼

廣告推薦

ASP技術文章推薦閱讀

意甲冠军