网上搜到的代码，千篇一律是这个

FunctionSort(ary)

DimKeepChecking,I,FirstValue,SecondValue

KeepChecking=TRUE

DoUntilKeepChecking=FALSE

KeepChecking=FALSE

ForI=0toUBound(ary)

IfI=UBound(ary)ThenExitFor

Ifary(I)>ary(I+1)Then

FirstValue=ary(I)

SecondValue=ary(I+1)

ary(I)=SecondValue

ary(I+1)=FirstValue

KeepChecking=TRUE

EndIf

Next

Loop

Sort=ary

EndFunction

存在错误。。。。。。

测试一下就知道

s="11,3,1"

s=sort(split(s,","))

fori=0toubound(s)

response.writes(i)&"<br>"

next

打印结果是

1

11

3

正确的function是:

functionsort(ary)

ck=true

doUntilck=false

ck=false

Forf=0toUBound(ary)-1

ifclng(ary(f))>clng(ary(f+1))then

v1=clng(ary(f))

v2=clng(ary(f+1))

ary(f)=v2

ary(f+1)=v1

ck=true

endif

next

loop

sort=ary

endfunction

就差在一个clng()

但好笑的是，有些数组，用那个错误的sort函数是可以排正确的。