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)