這是從網路上抄下來的範例，我想把它改成用 include 的方式，讓程式短一點，但會發生錯誤，請問問題在哪
abc.asp
<!-- include file ="Calendar.vs" -->
<html>
<title>萬年曆月曆</title>
<head></head>
<body bgcolor=#ffffd2>
<%
if Request.QueryString("DATE")="" then
Request_date=now
else
Request_date=DateValue(Request.QueryString("DATE"))
end if
call draw_cal(Request_date)
%>
</html>
Calendar.vs
<%
sub draw_cal(starday)
inyear=year(starday)
inmonth=month(starday)
inday=day(starday)
t_year=year(date)
t_month=month(date)
t_day=day(date)
starday=DateSerial(year(starday),inmonth,1)
response.write "<TABLE border=1 cellspan=0 cellpadding=0> "
response.write "<caption><A HREf='abc.asp?date="&dateadd("m",-1,starday)&"'>上月</A> <font class=h3>"&year(starday)&"</font>年<font class=h3>"&inmonth&"</font>月份 <A HREf='abc.asp?date="&dateadd("m",1,starday)&"'>下月</A></caption>"
response.write "<TR><TD bgcolor=#ff4040 height=25><p align=center><font class=text>星期<B>日</B>"
response.write "<TD bgcolor=#8080ff ><p align=center>星期<B>一</B>"
response.write "<TD bgcolor=#8080ff ><p align=center>星期<B>二</B>"
response.write "<TD bgcolor=#8080ff ><p align=center>星期<B>三</B>"
response.write "<TD bgcolor=#8080ff ><p align=center>星期<B>四</B>"
response.write "<TD bgcolor=#8080ff ><p align=center>星期<B>五</B>"
response.write "<TD bgcolor=#80ff80 ><p align=center>星期<B>六</B></font></td></tr>"
inweek=weekday(starday)
if (inweek-1)=0 then
if inyear=t_year and inmonth=t_month and t_day=1 then
response.write "<tr><td valign=top bgcolor=#ff80ff><A HREF='edit.asp?date="&inyear&"/"&inmonth&"/"&day(calday)&"' target='stage'>"&day(starday)&"</A>"
else
response.write "<tr><td valign=top><A HREF='edit.asp?date="&inyear&"/"&inmonth&"/"&day(calday)&"' target='stage'>"&day(starday)&"</A>"
end if
else
if inyear=t_year and inmonth=t_month and t_day=1 then
response.write "<TR><TD colspan="&inweek-1&"><td valign=top bgcolor=#ff80ff><A HREF='edit.asp?date="&inyear&"/"&inmonth&"/"&day(calday)&"' target='stage'>"&day(starday)&"</A>"
else
response.write "<TR><TD colspan="&inweek-1&"><td valign=top><A HREF='edit.asp?date="&inyear&"/"&inmonth&"/"&day(starday)&"' target='stage'>"&day(starday)&"</A>"
end if
end if
if Weekday(starday)=7 then
row=1
response.write "<TR>"
else
row=0
end if
calday=dateadd("d",1,starday)
do
if day(calday)=t_day and inyear=t_year and inmonth=t_month then
response.write "<td valign=top bgcolor=#ff80ff ><B><A HREF='edit.asp?date="&inyear&"/"&inmonth&"/"&day(calday)&"' target='stage'>"&day(calday)&"</b></font></A>"
else
response.write "<td valign=top ><A HREF='edit.asp?date="&inyear&"/"&inmonth&"/"&day(calday)&"' target='stage'>"&day(calday)&"</A>"
end if
if Weekday(calday)=7 then
row=row+1
if row=2 or row=4 then
response.write "<font color=red>週休<TR>"
else
response.write "<TR>"
end if
end if
calday=dateadd("d",1,calday)
loop while inmonth=month(calday)
response.write "</table>"
end sub
%> |
發表於 2007-7-9 19:07
|