网上搜到的代码,千篇一律是这个 Function Sort(ary) Dim KeepChecking,I,FirstValue,SecondValue KeepChecking = TRUE Do Until KeepChecking = FALSE KeepChecking = FALSE For I = 0 to UBound(ary) If I = UBound(ary) Then Exit For If ary(I) > ary(I+1) Then FirstValue = ary(I) SecondValue = ary(I+1) ary(I) = SecondValue ary(I+1) = FirstValue KeepChecking = TRUE End If Next Loop Sort = ary End Function
存在错误。。。。。。
测试一下就知道
s="11,3,1" s=sort(split(s,",")) for i=0 to ubound(s) response.write s(i) & "<br>" next
打印结果是
1
11
3
正确的function是: function sort(ary) ck=true do Until ck = false ck=false For f = 0 to UBound(ary) -1 if clng(ary(f))>clng(ary(f+1)) then v1=clng(ary(f)) v2=clng(ary(f+1)) ary(f)=v2 ary(f+1)=v1