asp下实现 重新排序数字数组的代码

1. <%  
2. '******************************  
3. '函数：NewOrder(ArrStr)  
4. '参数：Rstr,以逗号做分隔的数字数组  
5. '作者：阿里西西  
6. '日期：2007/7/13  
7. '描述：重排序数字数组  
8. '示例：<%=NewOrder("34,53,13,22,38,86,111,23,65")%>  
9. '******************************  
10. Function NewOrder(ArrStr)  
11. For i = 0 To Ubound(Split(ArrStr,","))  
12.  If n > 0 Then  
13.   ArrStr = Replace(ArrStr,n,0)  
14.  End If  
15.  sp = split(ArrStr,",")  
16.  n = 0  
17.  For j = 0 To ubound(sp)  
18.   If int(sp(j)) > int(n) Then  
19.    n = sp(j)  
20.   End If  
21.  Next  
22.  NewOrder = NewOrder & replace(n,0,"") & " "  
23. Next  
24. NewOrder = NewOrder  
25. End Function   
26. %>