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

<%

'******************************

'函数：NewOrder(ArrStr)

'参数：Rstr,以逗号做分隔的数字数组

'作者：阿里西西

'日期：2007/7/13

'描述：重排序数字数组

'示例：<%=NewOrder("34,53,13,22,38,86,111,23,65")%>

'******************************

Function NewOrder(ArrStr)

For i = 0 To Ubound(Split(ArrStr,","))

 If n > 0 Then

  ArrStr = Replace(ArrStr,n,0)

 End If

 sp = split(ArrStr,",")

 n = 0

 For j = 0 To ubound(sp)

  If int(sp(j)) > int(n) Then

   n = sp(j)

  End If

 Next

 NewOrder = NewOrder & replace(n,0,"") & " "

Next

NewOrder = NewOrder

End Function 

%>

对数组进行重新排序

复制代码 代码如下:

<% '****************************** '函数：NewOrder(sz) '参数：Rstr,以逗号做分隔的数字数组 '作者：阿里西西 '日期：2007/7/13 '描述：对数组进行重新排序 '示例：<%=NewOrder("34,53,13,22,38,86,111,23,65")%> '****************************** 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 %>