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 
        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

'下面测试一下
dim ID,ArrayID,Myarray,M 
ID="55,48,78,10,90" 
ArrayID=split(ID,",") 'split得到一个数组 
Myarray=Sort(ArrayID) 
'排序测试 
For M=0 To Ubound(Myarray) 
    Response.Write Myarray(M) & "
" & vbCRLF 
Next 

'也可以直接排序一个数组
Dim Myarray2
Myarray2=Array("c","a","b","e","d") 
Myarray2=Sort(Myarray2) 
'排序测试 
For M=0 To Ubound(Myarray2) 
    Response.Write Myarray2(M) & "
" & vbCRLF 
Next