这段程序看不懂，有哪位好心的朋友帮忙解答一下

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/sjb.asp" -->
<%
if  session("user")="" then
response.redirect "login.asp"
response.end
end if
 %>
 <%
current1=Year(Request.form("ksrq"))&"/01/01"
current2=Year(Request.form("jsrq"))&"/"&Month(Request.form("jsrq"))&"/31"
previous1=Year(DateAdd("yyyy",-1,Request.form("ksrq")))&"/01/01"
previous2=Year(DateAdd("yyyy",-1,Request.form("jsrq")))&"/"&Month(Request.form("jsrq"))&"/31"
%>
<%
Dim Recordset6__ColPara1, hbksrq, tbksrq
Recordset6__ColPara1 = "null"
if (Request.form("ksrq") <> "") then
Recordset6__ColPara1 = Request.form("ksrq")
hbksrq=DateAdd("m",-1,Request.form("ksrq"))
tbksrq=DateAdd("yyyy",-1,Request.form("ksrq"))
'qnksrq=Year(Request.form("ksrq"))&"01/01"
end if
'Recordset6__ColPara1 ="2009/12/1"
%>
<%
Dim Recordset6__ColPara2,hbjsrq,tbjsrq
Recordset6__ColPara2 = "null"
if (Request.form("jsrq") <> "") then
Recordset6__ColPara2 = Request.form("jsrq")
hbjsrq=Year(Request.form("jsrq"))&"/"&Month(DateAdd("m",-1,Request.form("jsrq")))&"/31"
tbjsrq=Year(DateAdd("yyyy",-1,Request.form("jsrq")))&"/"&Month(Request.form("jsrq"))&"/31"
'qnjsrq=Year(Request.form("jsrq"))&"/"&Month(Request.form("jsrq"))&"/31"
end if
'Recordset6__ColPara2 ="2009/12/31"
%>
<%