更正确的asp冒泡排序

网上搜到的代码，千篇一律是这个Function Sort(ary)Dim KeepChecking,I,FirstValue,SecondValue KeepChecking = TRUE Do Until KeepChecking = FALSE  Keep