更正确的asp冒泡排序

网上搜到的代码，千篇一律是这个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 &n