求教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)  

    ary(I) = ary(I+1) 

    ary(I+1) = FirstValue 

    KeepChecking = TRUE 

   End If 

 Next 

Loop 

 Sort = ary 

End Function 

<% 

a = Array(1,2,3,4,5)

b = Array("A","B","C","D","F")



Set lista = CreateObject("System.Collections.ArrayList")

For i=0 To UBound(a)

	lista.Add a(i)

Next

lista.Sort

Set listb = CreateObject("System.Collections.ArrayList")

For i=0 To UBound(b)

	listb.Add b(i)

Next

listb.Sort



Dim c

ReDim c(UBound(a))

For i=0 To UBound(a)

	c(i) = lista.Item(i) & listb.Item(i)

Next



For i=0 To UBound(c)

	Response.Write c(i)

Next



%>

<% 

a = Array(1,2,3,4,5)

b = Array("A","B","C","D","F")



Set rs = CreateObject("ADODB.RecordSet")

rs.cursorLocation = 3

rs.Fields.Append "num",3,4

rs.Open

For i=0 To UBound(a)

	rs.AddNew

	rs("num").value = a(i)

Next

rs.sort = "num ASC"

rs.MoveFirst



Set rs1 = CreateObject("ADODB.RecordSet")

rs1.cursorLocation = 3

rs1.Fields.Append "str",200,50

rs1.Open

For i=0 To UBound(b)

	rs1.AddNew

	rs1("str").value = b(i)

Next

rs1.sort = "str ASC"

rs1.MoveFirst



Dim c

ReDim c(UBound(a))

i=0

Do While Not rs.eof

	c(i) = rs("num") & rs1("str")

	rs.MoveNext

	rs1.MoveNext

	i = i+1

Loop



For i=0 To UBound(c)

	Response.Write c(i)

Next



%>