获取本月第一天和最后一天日期
获取本月第一天
Dim date1
Date1=date（）-day（date（）-1）

本月最后一天
法一：先找出下个月，再减一天，就可以得到本月的最后一天了。
然后读取day() 就行了。

法二：其实只要读取month(date())然后自己判断就行了，因为1,3,5,7,8,10,12月都是31天的；4,6,9,11都是30天的，2月是28或29的。只有这么几种情况，直接判断就行了。

法一：
m=month(now()) '当前月
y=year(now()) '当前年
if m=12 then m=1:y=y+1 else m=m+1 '找下个月
nextDate=y & "-" & m & "-" & "1" '下个月第一天
msgbox "本月最后一天是：" & day(nextDate-1)

获取本周第一天的日期

获取本周周一的日期
Dim date1
date1 = date()
date1=date1-weekday(date1)+1

获取上周周日的日期
函数 Date2Chinese
' 功能：获得中文日期的字符串（如一九九八年五月十二日）
' 参数: iDate 要转化的日期
' 返回: 中文日期的字符串
'======================================================
Function Date2Chinese(iDate)
    Dim num(10)
    Dim iYear
    Dim iMonth
    Dim iDay

    num(0) = "〇"
    num(1) = "一"
    num(2) = "二"
    num(3) = "三"
    num(4) = "四"
    num(5) = "五"
    num(6) = "六"
    num(7) = "七"
    num(8) = "八"
    num(9) = "九"

    iYear = Year(iDate)
    iMonth = Month(iDate)
    iDay = Day(iDate)
    Date2Chinese = num(iYear \ 1000) + _
        num((iYear \ 100) Mod 10) + num((iYear _
        \ 10) Mod 10) + num(iYear Mod _
        10) + "年"
    If iMonth >= 10 Then
        If iMonth = 10 Then
            Date2Chinese = Date2Chinese + _
            "十" + "月"
        Else
            Date2Chinese = Date2Chinese + _
            "十" + num(iMonth Mod 10) + "月"
        End If
    Else
        Date2Chinese = Date2Chinese + _
            num(iMonth Mod 10) + "月"
    End If
    If iDay >= 10 Then
        If iDay = 10 Then
            Date2Chinese = Date2Chinese + _
            "十" + "日"
        ElseIf iDay = 20 Or iDay = 30 Then
            Date2Chinese = Date2Chinese + _
            num(iDay \ 10) + "十" + "日"
        ElseIf iDay > 20 Then
            Date2Chinese = Date2Chinese + _
            num(iDay \ 10) + "十" + _
            num(iDay Mod 10) + "日"
        Else
           Date2Chinese = Date2Chinese + _
           "十" + num(iDay Mod 10) + "日"
        End If
    Else
        Date2Chinese = Date2Chinese + _
        num(iDay Mod 10) + "日"
    End If
End Function
%>

ASP，循环从周一到周日的日期，而且判断那天是周一，用不同的颜色输出？
<%
td=date()
str="一二三四五六日"
for x=1 to 7
if td-weekday(td)+1+x=td then
response.write "<font color=red>周"&mid(str,x,1)&":"&FormatDateTime(td-weekday(td)+1+x,1)&"</font><br>"
else
response.write "周"&mid(str,x,1)&":"&FormatDateTime(td-weekday(td)+1+x,1)&"<br>"
end if
next
%>