'在此处放置初始化页的<a href="https://www.jb51.cc/tag/yonghu/" target="_blank" class="keywords">用户</a><a href="https://www.jb51.cc/tag/daima/" target="_blank" class="keywords">代码</a> 'Dim arr As New ArrayList 'arr.Add("57171_36_100_2438_二楼D区_5_18") 'arr.Add("57171_35_100_2438_二楼D区_4_16") 'arr.Add("57171_35_100_2438_二楼D区_6_16") Dim str = "57171_36_100_2438_二楼D区_5_18|57171_35_100_2438_二楼D区_4_16|57171_35_100_2438_二楼D区_6_16|57171_36_100_2438_二楼D区_5_16" Dim arr As String() = Report.GetStrArray(str,"|") Dim temp As String For j As Integer = 1 To arr.Length - 1 For i As Integer = arr.Length - 1 To j Step -1 If CInt(Report.GetStrArray(arr(i),"_")(5)) < CInt(Report.GetStrArray(arr(i - 1),"_")(5)) Then temp = arr(i) arr(i) = arr(i - 1) arr(i - 1) = temp End If If CInt(Report.GetStrArray(arr(i),"_")(5)) = CInt(Report.GetStrArray(arr(i - 1),"_")(5)) Then If CInt(Report.GetStrArray(arr(i),"_")(6)) < CInt(Report.GetStrArray(arr(i - 1),"_")(6)) Then temp = arr(i) arr(i) = arr(i - 1) arr(i - 1) = temp End If End If Next i Next j For i As Integer = 0 To arr.Length - 1 Response.Write(arr(i) & "<br/>") Next