asp取得當月最後一天

' 取月的最後一天
dim m,y,nextDate,bylastdate
m=mid(month(date()))
y=year(date())
if m=12 then m=1:y=y+1 else m=m+1
nextDate=y & "-" & m & "-" & "1" '下個月的第一天
bylastdate=dateAdd("d",-1,nextDate) '這個月的最後一天


參考:  http://hi.baidu.com/lauplay/blog/item/c5654c59d387f3212934f061.html