求教关于时间跳转的问题

if query="yes" then
y=request.Form("y")
m=request.Form("m")
else
y=request.querystring("y")
m=request.querystring("m")
d=request.querystring("d")
end if
if y="" then
y=year(date)
end if
if m="" then
m=month(date)
end if
if d="" then
d=day(date)
end if
call blogdate(y,m,d)
'=====================以年月日为参数的显示==============================================
sub blogdate(y,m,d) '
str1=" 当前:"&y&"年"&m&"月 " '得到当前日期的年月日
nowdate=y&"-"&m&"-"&d
lastdate=dateadd("m",+1,nowdate)
lasty=year(lastdate)
lastm=month(lastdate)
nextdate=dateadd("m",+1,nowdate)
nexty=year(nextdate)
nextm=month(nextdate)
thismonth=y&"-"&m&"-1" '当前月的第一天
nextmonth=dateadd("m",+1,thismonth) '下个月的第一天
num=datediff("d",thismonth,nextmonth) '当前月的天数
firstday=weekday(thismonth)-1 '得到当前月第一天的星期