'在此处放置初始化页的用户代码
'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) & "
")
Next