ASP实现冒泡排序

1. 1. Function PoP(ArrayStr) 
   2.     Dim TempArray 
   3.     Dim TempStr,tStr 
   4.     Dim i,j,k,l 
   5.     Dim Exchange'交换标记   
   6.     TempArray=Split(ArrayStr,",") 
   7.     For i=1 To UBound(TempArray)'最多进行n-1趟排序   
   8.         ExChange=False 
   9.         For j=UBound(TempArray) To i step -1'对当前无序区R[i..n]自下向上扫描   
   10.             If Not isnumeric(TempArray(j)) Then Exit For 
   11.             If Cint(TempArray(j))<Cint(TempArray(j-1)) Then 
   12.                 TempStr=TempArray(j) 
   13.                 TempArray(j)=TempArray(j-1) 
   14.                 TempArray(j-1)=TempStr 
   15.                 ExChange=True 
   16.                 'Response.Write "第"&i&"趟 发现"&TempArray(j-1)&"比"&TempArray(j)&"小,将其位置调换"   
   17.             End If 
   18.         Next 
   19.         If ExChange=False Then Exit For 
   20.     Next 
   21.     tStr="" 
   22.     For k=0 To UBound(TempArray) 
   23.         tStr=tStr&TempArray(k)&"," 
   24.     Next 
   25.     Pop=Mid(tStr,1,Len(tStr)-1) 
   26. End Function