Response.Write "<td bgcolor=#FFFFEE align=center valign=top><font face=굴림 size=2 color=white>.</font>"&vbCR
intFirstWeekDay=intFirstWeekDay-1
else '
if intPrintDay > intLastDay then '입력날짜가 월말보다 크다면
Response.Write "<td bgcolor=#FFFFEE align=center valign=top><font face=굴림 size=2 color=white>.</font>"&vbCR
else '입력날짜가 현재월에 해당되면 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++//
if intThisYear-NowThisYear=0 and intThisMonth-NowThisMonth=0 and intPrintDay-intThisDay=0 then
'//오늘 날짜일 경우 배경색을 다르게 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++//
Response.Write "<td align=center valign=top bgcolor=#EEEEEE><b><a href=diary.asp?d=d&F_Year="&intThisYear&"&F_Month="&intThisMonth&"&F_Day="&intPrintDay&" title=오늘일정보기><font face=굴림 size=2 color=black>"&intPrintDay&"</font></a></b><br>"&vbCR
elseif intLoopDay=1 then '일요일이면 빨간 색으로
Response.Write "<td bgcolor=#FFFFEE align=center valign=top><a href=diary.asp?d=d&F_Year="&intThisYear&"&F_Month="&intThisMonth&"&F_Day="&intPrintDay&" ><font face=굴림 size=2 color=red>"&intPrintDay&"</font></a><br>"&vbCR
elseif intLoopDay=7 then '토요일이면 #FF9999 색으로
Response.Write "<td bgcolor=#FFFFEE align=center valign=top><a href=diary.asp?d=d&F_Year="&intThisYear&"&F_Month="&intThisMonth&"&F_Day="&intPrintDay&" ><font face=굴림 size=2 color=#FF9999>"&intPrintDay&"</font></a><br>"&vbCR
else ' 그외의 경우 검정색으로 처리하였으나,스타일로 인해 코딩이 먹지 않는군....쩝^^
Response.Write "<td bgcolor=#FFFFEE align=center valign=top><font face=굴림 size=2 color=Black><a href=diary.asp?d=d&F_Year="&intThisYear&"&F_Month="&intThisMonth&"&F_Day="&intPrintDay&" >"&intPrintDay&"</a></font><br>"&vbCR
end if
end if
intPrintDay=intPrintDay+1 '날짜값을 1 증가
if intPrintDay > intLastDay then '만약 날짜값이 월말값보다 크면 루프문 탈출
Stop_Flag=1
end if
end if
Response.Write "</td>"
next
Response.Write "</tr>"
if Stop_Flag=1 then
exit for
end if
next
Set rslink=Nothing
%>
