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

%>

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!