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
%>