ASP关于周排行的一个例子~

<%
Function Sort(ary)
Dim KeepChecking,I,FirstValue,SecondValue
KeepChecking = TRUE

Do Until KeepChecking = FALSE
 KeepChecking = FALSE
 For I = 0 to UBound(ary,1)
  If I = UBound(ary,1) Then Exit For
  If cint(ary(I,0)) < cint(ary(I+1,0)) Then
   FirstValue0 = ary(I,0)
   FirstValue1 = ary(I,1)
   FirstValue2 = ary(I,2)
   FirstValue3 = ary(I,3)
   SecondValue0 = ary(I+1,0)
   SecondValue1 = ary(I+1,1)
   SecondValue2 = ary(I+1,2)
   SecondValue3 = ary(I+1,3)
   ary(I,0) = SecondValue0
   ary(I,1) = SecondValue1
   ary(I,2) = SecondValue2
   ary(I,3) = SecondValue3
   ary(I+1,0) = FirstValue0
   ary(I+1,1) = FirstValue1
   ary(I+1,2) = FirstValue2
   ary(I+1,3) = FirstValue3
   KeepChecking = TRUE
  End If
 Next
Loop
Sort = ary
End Function

dim carr
set rs1=server.CreateObject("ADODB.RecordSet")
rs1.Source="select * from "& db_wMcms_Dep_Table
rs1.Open rs1.Source,conn,1,1
redim carr(rs1.RecordCount,4)
For i=0 to rs1.RecordCount

 carr(i,1) = rs1("id")
 carr(i,2) = rs1("wm_DepName")
 carr(i,3) = rs1("wm_DepType")
 
 set rs3=server.CreateObject("ADODB.RecordSet")
 rs3.Source="select count(*) as c from "& db_wMcms_Article_Table &" where depid="&carr(i,1)&" and datediff('w',UpdateTime,now())=0"
 rs3.Open rs3.Source,conn,1,1
 if not rs3.eof then
  carr(i,0) = rs3("c")
 end if
 rs3.Close
 Set rs3=Nothing

rs1.MoveNext
if rs1.eof then exit for
next
rs1.Close
Set rs1=Nothing

Myarray=Sort(carr)
For M=0 To Ubound(Myarray,1)
 Response.Write Myarray(M,2)&Myarray(M,3)&"--"&Myarray(M,0) & "<br>" & vbCRLF
Next
%>