简单的本周算法

输出今天所在的周的全部，是个ASP的代码，不过，具有通用性

<%
    Dim i, d
    Dim interval
    For i = 0 To 6
        interval = i - WeekDay(Date) + 1
        d = DateAdd("d", interval, Date)
        Response.Write(d)
        Response.Write("-----")
        Response.Write(WeekDayName(Weekday(d)))
        Response.Write("<br>")
    Next    
%>