dd = Date() '今天
dd = dateadd("m",1,dd) '月份加1
dd = Cdate(Year(dd) & "-" & Month(dd) & "-1") '下月的第一天
dd=dateadd("d",dd,-1) '本月的最后一天
dd=day(dd) '本月的天数
Response.Write(dd)
dd = Date() '今天
dd = dateadd("m",1,dd) '月份加1
dd = Cdate(Year(dd) & "-" & Month(dd) & "-1") '下月的第一天
dd=dateadd("d",dd,-1) '本月的最后一天
dd=day(dd) '本月的天数
Response.Write(dd)
