ASP获得上个月、本月、下个月的第一天和最后一天的代码

ASP获得当前日期计算上个月、本月、下个月的第一天和最后一天函数，可以使页面最快速展示，从而提高seo优化效率。

上个月第一天：

<%=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

以上方法可以分开调用，也可以使用最后的自定义函数进行调用。