用当月最后一天+1，到下一个月，然后在用下一个月-1这样肯定是这个月的最后一天吧。
Being a devil is the same as being a human. We should be kind. If we are kind, we are not a devil, we are a hybrid.
试了
Dim Dldate as Date
Dldate=dateserial(year(now()),month(now)+1,1-1)
response.write("这个月的最后一天是:"
Being a devil is the same as being a human. We should be kind. If we are kind, we are not a devil, we are a hybrid.