ASP数组排序_字符数组

超新星

1. <%
   
2. ‘=====================================
   
3. ‘作者：80端口，阿里西西
   
4. ‘时间：2005-12-23
   
5. ‘作用：对数据进行重新排序
   
6. ‘=====================================
   
7. Function NewOrder(sz)
   
8. Dim ali,icount,i,ii,j,itemp
   
9. ali=split(sz,”,”)
   
10. icount=UBound(ali)
    
11. For i=0 To icount
    
12. For j=icount – 1 To i Step -1
    
13.   If j+1 <= UBound(ali) Then
    
14.    If int(ali(j))<int(ali(j+1)) Then
    
15.     itemp=ali(j)
    
16.     ali(j)=ali(j+1)
    
17.     ali(j+1)=itemp
    
18.    End If
    
19.   End If
    
20. Next
    
21. Next
    
22. For ii=0 to Ubound(ali)
    
23. If ii = Ubound(ali) Then
    
24.   NewOrder = NewOrder & ali(ii)
    
25. Else
    
26.   NewOrder = NewOrder & ali(ii) & “,”
    
27. End If
    
28. Next
    
29. End Function
    
30. %>
    
31. 
    
32. 调用方法：
    
33. 
    
34. <%
    
35. str = “234,54,294,2347,653,121,37,34578,4537,53,34,7,2,5768,2”
    
36. response.write NewOrder(str)
    
37. %>
    

复制代码