判断某个日期是否属于本周

'函数名称：isThisWeek
'功能说明：判断date1是否属于当前星期
'返回值：true(属于)；false(不属于)
'编写：dnawo(http://www.mzwu.com/)
'参数说明：
'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 = #2007-03-28#
If isThisWeek(date7) then
	Response.write "属于本周"
Else
	Response.write "不属于本周"
End if
%>