asp數組隨機排序
功能：將一個(gè)數組打亂它的順序，顯示出來(lái)，讓每一次顯示出來(lái)的順序都不一樣。
<%
Dim tt
tt=Split("1,2,3,4,5,6",",") '隨機排序 過(guò)濾以 , 。得到數組 tt
leng=UBound(tt) '得到當前數組的長(cháng)度
randomize '初始化隨機數
for ii=0 to leng-1 '從 0 到 數組長(cháng)度減 1 ,遞減
b=int(rnd()*leng) 'b 等于 數值型的 隨機 數組
temp=tt(b) 'tmep 等于 tt(b)
tt(b)=tt(ii)
tt(ii)=temp
Next
For i=0 To leng
response.write tt(i)&"<br>"
next
%>
您發(fā)布的評論即表示同意遵守以下條款:
一、不得利用本站危害國家安全、泄露國家秘密,不得侵犯國家、社會(huì )、集體和公民的合法權益;
二、不得發(fā)布國家法律、法規明令禁止的內容;互相尊重,對自己在本站的言論和行為負責;
三、本站對您所發(fā)布內容擁有處置權。
蘇公網(wǎng)安備 32070502010230號