ASP获得当前日期计算上个月、本月、下个月的第一天和最后一天

上个月第一天：<%=dateadd("m",-1,year(date)&"-"&month(date)&"-1")%>
上个月最后一天：<%=dateadd("d",-1,year(date)&"-"&month(date)&"-1")%>
本月第一天：<%=year(date)&"-"&month(date)&"-1"%>
本月最后一天：<%=dateadd("d",-1,dateadd("m",1,year(date)&"-"&month(date)&"-1"))%>
下个月第一天：<%=dateadd("m",1,year(date)&"-"&month(date)&"-01")%>
下个月最后一天：<%=dateadd("d",-1,dateadd("m",2,year(date)&"-"&month(date)&"-01"))%>
调用方法call FormatDate(now(),0) 这样就调用了第一种方式。共有5种，你懂的，我就不多说了。
Function FormatDate(DT,tp)
 dim Y,M,D
 Y=Year(DT)
 M=month(DT)
 D=Day(DT)
 if M<10 then M="0"&M
 if D<10 then D="0"&D
 select case tp
 case 0 FormatDate=Y&"-"&M&"-"&D
 case 1 FormatDate=Y&"年"&M&"月"&D&"日"
 case 2 FormatDate=Y&"/"&M&"/"&D
 case 3 FormatDate=M&"/"&D
 case 4 FormatDate=Y&"\"&M&"\"&D
 end select
End Function