asp数组随机排序

功能：将一个数组打乱它的顺序，显示出来，让每一次显示出来的顺序都不一样。
<%
Dim tt
tt=Split("1,2,3,4,5,6",",")
'随机排序  
leng=UBound(tt)
randomize  
for ii=0 to leng-1  
b=int(rnd()*leng)  
temp=tt(b)  
tt(b)=tt(ii)  
tt(ii)=temp
Next

For i=0 To leng
response.write tt(i)&"<br>"
next
%>

文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: