[br]<% [br]y=request.querystring("y") [br]m=request.querystring("m") [br]d=request.querystring("d") [br][br]if y="" then [br] y=year(date) [br] m=month(date) [br] d=day(date) [br]end if [br][br]call blogdate(y,m,d) [br][br]'=====================以年月日为参数的显示============================================== [br]sub blogdate(y,m,d) ' [br]str1=" 当前的日期是"&y&"年"&m&"月"&d&"日 " '得到当前日期的年月日 [br]nowdate=y&"-"&m&"-"&d [br]lastdate=dateadd("m",-1,nowdate) [br]lasty=year(lastdate) [br]lastm=month(lastdate) [br]nextdate=dateadd("m",1,nowdate) [br]nexty=year(nextdate) [br]nextm=month(nextdate) [br]str1=str1&"上一月 " [br]str1=str1&"下一月 " [br]str1=str1&"返回今日" [br]response.write str1 [br]thismonth=y&"-"&m&"-1" '当前月的第一天 [br]nextmonth=dateadd("m",1,thismonth) '下个月的第一天 [br]num=datediff("d",thismonth,nextmonth) '当前月的天数 [br]firstday=weekday(thismonth)-1 '得到当前月第一天的星期 [br]'call displaydate(firstday,num) [br]response.write "" & vbcrlf [br]response.write "" & vbcrlf [br]response.write "" & vbcrlf [br]response.write "" & vbcrlf [br]response.write "" & vbcrlf [br]response.write "" & vbcrlf [br]response.write "" & vbcrlf [br]response.write "" & vbcrlf [br]response.write "" & vbcrlf [br]response.write "" & vbcrlf [br]'需要参数：当前月第一天的星期firstday，当前月的天数num [br]for n=1 to 6 [br]response.write "" [br] for i=1 to 7 [br] thisday=0 [br] if i>firstday then thisday=i-firstday [br] if n>1 then thisday=7*(n-1)+i-firstday [br] if thisday>num then thisday=0 [br] if thisday=0 then [br] display=" " [br] else [br] display=""&thisday&"" [br] end if [br] response.write "" [br] next [br] if n=5 and (thisday=num or thisday=0) then n=n+1 [br]response.write "" [br]next [br]response.write "

星期日	星期一	星期二	星期三	星期四	星期五	星期六
"&display&"

" & vbcrlf [br]end sub [br]'=================================================================== [br]%> [code] <% y=request.querystring("y") m=request.querystring("m") d=request.querystring("d") if y="" then y=year(date) m=month(date) d=day(date) end if call blogdate(y,m,d) '=====================以年月日为参数的显示============================================== sub blogdate(y,m,d) ' str1=" 当前的日期是"&y&"年"&m&"月"&d&"日 " '得到当前日期的年月日 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) str1=str1&"上一月 " str1=str1&"下一月 " str1=str1&"返回今日" response.write str1 thismonth=y&"-"&m&"-1" '当前月的第一天 nextmonth=dateadd("m",1,thismonth) '下个月的第一天 num=datediff("d",thismonth,nextmonth) '当前月的天数 firstday=weekday(thismonth)-1 '得到当前月第一天的星期 'call displaydate(firstday,num) response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf '需要参数：当前月第一天的星期firstday，当前月的天数num for n=1 to 6 response.write "" for i=1 to 7 thisday=0 if i>firstday then thisday=i-firstday if n>1 then thisday=7*(n-1)+i-firstday if thisday>num then thisday=0 if thisday=0 then display=" " else display=""&thisday&"" end if response.write "" next if n=5 and (thisday=num or thisday=0) then n=n+1 response.write "" next response.write "

星期日	星期一	星期二	星期三	星期四	星期五	星期六
"&display&"

" & vbcrlf end sub '=================================================================== %> [/code]