<%@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"
%>
<%

<%
if  session("user")="" then
response.redirect "login.asp"
response.end
end if
%>
这个代码比较经常用，一般用在会员系统里，意思就是判断用户是否登入，登入的用户session("user")不会为空，如果为空，就自动导向login.asp页，否则就不执行里面的代码！
下面的代码纯粹都是一些日期加减的处理year,month,day,这些我就不说了，年月日，获取数字的，自己多测试下，比较简单，说第一个：
current1=Year(Request.form("ksrq"))&"/01/01"
这个就是取得表单里的名为ksrq的值，然后取得年的部分，再组合上字符/01/01，最后赋值给current1。好了。就说这么多，其他类似的，自己推理吧。