<%
Dim str, arr, i, j, tmp, parts, n1, n2
str = "apple:zhangsna:1;banana:lisi:3;tomato:wangwu:1;orange:laoliu:2"
' 第一次分割：用 ; 号
arr = Split(str, ";")
' 冒泡排序：按每段第三部分（序号）从小到大
For i = 0 To UBound(arr) - 1
    For j = 0 To UBound(arr) - 1 - i
        ' 第二次分割：用冒号
        parts = Split(arr(j), ":")
        n1 = CLng(parts(2))          ' 注意用 CLng 转成数字比较
        parts = Split(arr(j + 1), ":")
        n2 = CLng(parts(2))
        If n1 > n2 Then              ' 大于才交换，保证相同序号时顺序稳定
            tmp = arr(j)
            arr(j) = arr(j + 1)
            arr(j + 1) = tmp
        End If
    Next
Next
' 拼回原格式
Response.Write Join(arr, ";")
%>