上虞实验中学:注释下列代码(详细)

<%Totel = 0
j = 1
Do Until j > 12
Money = 0
Set yue = Conn.Execute("Select Payer,Money,InOut From [PayList] Where Payer='"&selpayer&"' and PayType='"&pType&"' and Time like '%"&month(j)&"%' ")
If Not yue.Eof Then
Do While Not yue.Eof
If yue(2) = 1 Then Money = Money + Cint(yue(1))
If yue(2) = 0 Then Money = Money - Cint(yue(1))
yue.MoveNext
Loop
Totel = Totel + Money

For k=1 To 12
If k=j Then
If Money<0 Then OutMonth(k) = OutMonth(k) + Money
If Money>0 Then InMonth(k) = InMonth(k) + Money
SumMonth(k) = SumMonth(k) + Money
End if
Next

If Cint(Money) < 0 Then Money = "<font color='#ff0000'>"& Money &"</font>"
Response.Write "<td><div align='center'>" & Money & "</div></td>"
Else
Response.Write "<td><div align='center'>0</div></td>"
End if
yue.Close
Set yue=Nothing
j = j + 1
Loop
%>