有个小伙伴不会获取周期。比如说上周二。到这周二。

或者上上周几到这周周几，总直就是一个固定的周期，他不会获取

然后根据网上查到的一些资料。写的获取周期函数

具体参考如下。这个是周二到周二。至于其他周期。自己改下参数就行了

<%
'上一周
Function up_week(str)
	cd = DateAdd("ww",-1 , Date())
	up_week=DateAdd("d", 1- Weekday(cd, 2)+str, cd) 
End Function
'当前周
Function this_week(str)
	cd = Date()
	this_week=DateAdd("d", 1- Weekday(cd, 2)+str, cd) 
End Function
'下一周
Function next_week(str)
	cd = DateAdd("ww",1 , Date())
	next_week=DateAdd("d", 1- Weekday(cd, 2)+str, cd) 
End Function
'自己设定后退周
'str=那周 -向前的周。 + 向后的周 
'str1=周几 1234567
Function str_week(str,str1)
	cd = DateAdd("ww",str , Date())
	str_week=DateAdd("d", 1- Weekday(cd, 2)+str1, cd) 
End Function

if Weekday(date(), 2)>=2 then%>

    过了周二获取当前周期：<%=str_week(-1,1)%> --<%=this_week(1)%>
    
<%else%>

     没过周二获取上个周期：<%=str_week(-2,1)%> --<%=str_week(-1,1)%>
    
<%end if%>


'函数名称：isThisWeek
'功能说明：判断date1是否属于当前星期
'返回值：true(属于)；false(不属于)
'参数说明：
'date1：被判断的日期
Function isThisWeek(date1)
    Dim mon_date
    mon_date = dateadd("d",-weekday(date(),2)+1,date())
    If datediff("d",mon_date,date1,2)>=0 and datediff("d",mon_date,date1,2)<=6 then
        isThisWeek = true
    Else
        isThisWeek = false
    End if
End Function


Dim date7
date7 = "2021-03-05 11:02:02"
If isThisWeek(date7) then
    Response.write "属于本周"
Else
    Response.write "不属于本周"
End if