asp 日期操作

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
  <% Response.Buffer=True
 Session.CodePage=65001
 Server.ScriptTimeOut = 90
 %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">

<head>
<meta content="text/html; charset=utf-8" http-equiv="Content-Type" />
<title>asp 日期操作 涂聚文</title>
<%
 dim tonow,setnow,cd,disday

 tonow=Now()

%>
</head>

<body>
<%
setnow=dateadd("m",-1,year(tonow)&"-"&month(tonow)&"-1")
%>
上个月第一天：<%=setnow%><br/>
<%
setnow=dateadd("d",-1,year(tonow)&"-"&month(tonow)&"-1")
%>
上个月最后一天：<%=setnow%><br/>
<%
setnow=year(tonow)&"-"&month(tonow)&"-1"
%>

本月第一天：<%=setnow%><br/>
<%
setnow=dateadd("d",-1,dateadd("m",1,year(tonow)&"-"&month(tonow)&"-1"))
%>

本月最后一天：<%=setnow%><br/>
<%
setnow=dateadd("m",1,year(tonow)&"-"&month(tonow)&"-01")
%>

下个月第一天：<%=setnow%><br/>
<%
setnow=dateadd("d",-1,dateadd("m",2,year(tonow)&"-"&month(tonow)&"-01"))
%>
下个月最后一天：<%=setnow%><br/>

<%
setnow=dateadd("m",-2,year(tonow)&"-"&month(tonow)&"-01")
%>
下二个月第一天：<%=setnow%><br/>
<%
setnow=dateadd("d",-1,dateadd("m",3,year(tonow)&"-"&month(tonow)&"-01"))
%>
下二个月最后一天：<%=setnow%><br/>
<%
setnow="2013-10-11"
cd=DATEDIFF("d",tonow,setnow)

%>
两个日期差(天)：<%=cd%> <br/>
<%
 disday=dateadd("d",-1,dateadd("m",3,year(setnow)&"-"&month(setnow)&"-01"))
%>
<%=setnow%>下二个月最后一天：<%=disday%><br/>
</body>

</html>