******************************

函数：NewOrder(ArrStr)

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

描述：重排序数字数组

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

******************************

FunctionNewOrder(ArrStr)

Fori=0ToUbound(Split(ArrStr,","))

Ifn>0Then

ArrStr=Replace(ArrStr,n,0)

EndIf

sp=split(ArrStr,",")

n=0

Forj=0Toubound(sp)

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

n=sp(j)

EndIf

Next

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

Next

NewOrder=NewOrder

EndFunction

%>

对数组进行重新排序

复制代码代码如下:

<%

******************************

函数：NewOrder(sz)

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

描述：对数组进行重新排序

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

******************************

FunctionNewOrder(sz)

Dimali,icount,i,ii,j,itemp

ali=split(sz,",")

icount=UBound(ali)

Fori=0Toicount

Forj=icount-1ToiStep-1

Ifj+1<=UBound(ali)Then

Ifint(ali(j))<int(ali(j+1))Then

itemp=ali(j)

ali(j)=ali(j+1)

ali(j+1)=itemp

EndIf

EndIf

Next

Next

Forii=0toUbound(ali)

Ifii=Ubound(ali)Then

NewOrder=NewOrder&ali(ii)

Else

NewOrder=NewOrder&ali(ii)&","

EndIf

Next

EndFunction

%>

下一篇：asp 下产生任意位数随机密码的代码