'*** build example array to show that this thing can sort '*** alpha-numeric arrays Dim MyArray MyArray = Array(1,5,"shawn","says","hello",123,12,98) MyArray = Sort(MyArray) For I = 0 to Ubound(MyArray) 　　Response.Write MyArray(I) & " " & vbCRLF Next Response.End

'*** Sorter Function that takes an array and sorts it Function Sort(ary) 　　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 %>

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10294527/viewspace-124728/，如需转载，请注明出处，否则将追究法律责任。