快捷導(dǎo)航

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

更新時間：2014年05月01日 01:00:59 作者：

這篇文章主要介紹了ASP生成不重復(fù)隨機(jī)數(shù)的方法,需要的朋友可以參考下

ASP生成隨機(jī)數(shù)：

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

ASP不重復(fù)隨機(jī)數(shù)：

方法一：已測

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

復(fù)制代碼代碼如下:

 
<% 
'生成的是一個不重復(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 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ù)字,結(jié)尾數(shù)字,生成多少個 
%>

您可能感興趣的文章:

相關(guān)文章

asp仿php的一些函數(shù)分享
asp仿php的一些函數(shù)分享，主要是方便先學(xué)習(xí)php后學(xué)習(xí)asp的朋友。
2011-09-09
ASP所有的Session變量獲取實(shí)現(xiàn)代碼
在程序調(diào)試中，有時候需要知道有多少Session變量在使用，她們的值如何？由于Session對象提供一個稱為Contents的集合(Collection)，我們可以通過For...Each循環(huán)來達(dá)到目標(biāo)
2009-07-07
數(shù)據(jù)庫記錄的刪除，delete好還是update好？
數(shù)據(jù)庫記錄的刪除，delete好還是update好？...
2006-10-10
asp中通過getrows實(shí)現(xiàn)數(shù)據(jù)庫記錄分頁的一段代碼
asp中通過getrows實(shí)現(xiàn)數(shù)據(jù)庫記錄分頁的一段代碼...
2006-09-09
ASP基礎(chǔ)入門第四篇(腳本變量、函數(shù)、過程和條件語句)
大家在學(xué)習(xí)了腳本語言 VBScript 的變量、常量和過程的基本概念后，本期將繼續(xù)向各位介紹 VBScript 的函數(shù)和語法。
2015-10-10
用ASP應(yīng)用程序?qū)崿F(xiàn)自己的UrlDeCode
URL編碼是指為了將信息通過URL進(jìn)行傳輸，所以必須將某些含有特殊意義的字符進(jìn)行替換的一種編碼方式，在asp中我們都知道有一個Server.URLEncode的函數(shù)可以完成這個功能。
2006-08-08
asp 數(shù)組重復(fù)刪除函數(shù)(腳本之家增強(qiáng)版)
這篇文章是asp下刪除重復(fù)數(shù)組的函數(shù)，已經(jīng)經(jīng)過測試。
2010-05-05
asp正則替換鏈接實(shí)現(xiàn)偽靜態(tài)效果
有時候我們需要將頁面中的動態(tài)頁面替換為我們偽靜態(tài)的格式，一般是頁面內(nèi)容中批量替換
2013-08-08
ASP中SELECT下拉菜單同時獲取VALUE和TEXT值的實(shí)現(xiàn)代碼
這篇文章主要介紹了ASP中SELECT下拉菜單同時獲取VALUE和TEXT值的實(shí)現(xiàn)代碼,需要的朋友可以參考下
2020-06-06
ASP+ajax實(shí)現(xiàn)頂一下、踩一下同支持與反對的實(shí)現(xiàn)代碼
這篇文章主要介紹了ASP+ajax實(shí)現(xiàn)頂一下、踩一下同支持與反對的實(shí)現(xiàn)代碼,需要的朋友可以參考下
2020-09-09