'函数名称：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
%>