很小巧的ASP数组随机排序源码

今天为了实现WPG首页随机排列显示网站图片的功能，不得不努力去找相关的方法。
终于找到这个小巧的函数，我的问题也迎刃而解!

以下源码可以实现asp数组随机排序功能：打乱数组的顺序，随机显示出来，让每一次显示出来的顺序都不一样。

<%

Dim tt,pTxt

pTxt="1,2,3,4,5,6,7,"
tt=Split(pTxt,",")

^随机排序  
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

%>

挺好用的，效率也是蛮高滴~~

PS：注意，要排列的字符串最后要保留一个“,”，否则最后一位无法随机排列，总是在最后。

加个“,”就可以了，但这样排列出的元素就有为空的了。

所以如果引用数组时，建议判断一下是否为空，不为空时再使用。

这样就很完美了~~