How to Reorder ASP arrays

Sort | array

Thanks to the source code provided by port 80, this function has been published through common perfection.

<%
'=====================================
' Author: Port 80, Arisisi
' Time: 2005-12-23
' Function: Reorder data
'=====================================
Function Neworder (SZ)
Dim ali,icount,i,ii,j,itemp
Ali=split (SZ, ",")
Icount=ubound (Ali)
For I=0 to Icount
For j=icount-1 to I Step-1
If j+1 <= UBound (Ali) Then
If Int (Ali (j)) <int (Ali (j+1)) Then
Itemp=ali (j)
Ali (j) =ali (j+1)
Ali (j+1) =itemp
End If
End If
Next
Next
For Ii=0 to Ubound (Ali)
If II = Ubound (Ali) Then
Neworder = Neworder & Ali (ii)
Else
Neworder = Neworder & Ali (ii) & ","
End If
Next
End Function
%>

Call Method:

<%
str = "234,54,294,2347,653,121,37,34578,4537,53,34,7,2,5768,2"
Response.Write Neworder (str)
%>