<%
dim a(rs.recordcount)
do while not rs.eof
 int j=0
 do while j<=UBound(a)
  if a(j)<> null then
   if rs("时间")=a(j) then
    j=UBound(a)
   end if
   j=j+1
  else
   exit do
  end if
 loop
 if j<=UBound(a) then
  a(j)=rs("时间")
 end if
loop
%>

<%
tempc(0)=tempa(0)
tempd(0)=tempb(0)
m=0
for n=0 to ubound(tempa)
 if tempc(m) <> tempa(n) then
  m=m+1
  tempc(m)=tempa(n)
  tempd(m)=tempb(n)
 end if
next

tempc(0)=tempa(0)
tempd(0)=tempb(0)
m=0
for n=0 to ubound(tempa)
if tempc(m) = tempa(n) then
 if tempb(m) <> tempb(n) then
  m=m+1
  tempc(m)=tempa(n)
  tempd(m)=tempb(n)
 end if
else
 m=m+1
 tempc(m)=tempa(n)
 tempd(m)=tempb(n)
end if
next
%>