不懂asp求大神帮忙看看求昨天和7天内的数据

Justy1989 2014-01-08 09:38:22

if otype=1 then

	If Session("CRM_level") = 9 Then

	    Set rs = GWCrmCom_Obj.CallGWFunc("followup.asp",100,""&date())

	Else

	    strUserList = getUserList(Session("CRM_level"),Session("CRM_group"))

	 Set rs = GWCrmCom_Obj.CallGWFunc("followup.asp",200,""&date()&"&"&strUserList)

	End If

elseif otype=2 then

	If Session("CRM_level") = 9 Then

	    Set rs = GWCrmCom_Obj.CallGWFunc("followup.asp",300,""&date())

	Else

	    strUserList = getUserList(Session("CRM_level"),Session("CRM_group"))

	Set rs = GWCrmCom_Obj.CallGWFunc("followup.asp",400,""&date()&"&"&strUserList)

	End If

elseif otype=3 then

	If Session("CRM_level") = 9 Then

	    Set rs = GWCrmCom_Obj.CallGWFunc("followup.asp",500,""&date())

	Else

	    strUserList = getUserList(Session("CRM_level"),Session("CRM_group"))

	Set rs = GWCrmCom_Obj.CallGWFunc("followup.asp",600,""&date()&"&"&strUserList)

	End If

elseif otype=4 then

	If Session("CRM_level") = 9 Then

	    Set rs = GWCrmCom_Obj.CallGWFunc("followup.asp",700,""&date())

	Else

	    strUserList = getUserList(Session("CRM_level"),Session("CRM_group"))

	Set rs = GWCrmCom_Obj.CallGWFunc("followup.asp",800,""&date()&"&"&strUserList)

	End If

elseif otype=5 then

	If Session("CRM_level") = 9 Then

	    Set rs = GWCrmCom_Obj.CallGWFunc("followup.asp",1500,""&date())

	Else

	    strUserList = getUserList(Session("CRM_level"),Session("CRM_group"))

	Set rs = GWCrmCom_Obj.CallGWFunc("followup.asp",1600,""&date()&"&"&strUserList)

	End If

elseif otype=6 then

	If Session("CRM_level") = 9 Then

	    Set rs = GWCrmCom_Obj.CallGWFunc("followup.asp",1300,""&date())

	Else

	    strUserList = getUserList(Session("CRM_level"),Session("CRM_group"))

	Set rs = GWCrmCom_Obj.CallGWFunc("followup.asp",1400,""&date()&"&"&strUserList)

	End If

elseif otype="" then

	If Session("CRM_level") = 9 Then

	    Set rs = GWCrmCom_Obj.CallGWFunc("followup.asp",900,"")

	Else

	    strUserList = getUserList(Session("CRM_level"),Session("CRM_group"))

	Set rs = GWCrmCom_Obj.CallGWFunc("followup.asp",1000,""&strUserList)

	End If

end if

----------------------------------------------参数
【otype】
1、30天内
2、30~90天
3、90-360天
4、超过1年
5、昨天
6、7天内
-------------------------------------------------------求：
otype=5 和 otype=6 是我自己添加的，时间不对啊（我要求的是:昨天内有多少数据和 7天内有多少数据）

...全文