%'----------------ASP ´Þ·Â ¸¸µé±â------------------------- '±Ý³â, À̹ø´Þ È®ÀÎ If Request("year") = "" Then intYear = Year(now) intMonth = Month(now) Else intYear = Request("year") intMonth = Request("month") End If 'Áö³ÇØ, Áö³´Þ È®ÀÎ If intMonth = 1 Then intLastYear = intYear - 1 intLastMonth = 12 Else intLastMonth = intMonth - 1 intLastYear = intYear End If '´ÙÀ½ÇØ, ´ÙÀ½´Þ È®ÀÎ If intMonth = 12 Then intNextYear = intYear + 1 intNextMonth = 1 Else intNextMonth = intMonth + 1 intNextYear = intYear End If 'À̹ø´Þ 1ÀÏÀÇ ¿äÀÏ Ã£±â intWeekdayOfFirstday = Weekday(intYear & "-" & intMonth & "-1") 'À̹ø´Þ ¸¶Áö¸·³¯ ã±â if intMonth = 12 then intLastDayOfThisMonth = Day(Dateadd("d", -1, intNextYear & "-" & intNextMonth & "-1")) else intLastDayOfThisMonth = Day(Dateadd("d", -1, intYear & "-" & intMonth+1 & "-1")) end if '¿äÀÏ º¯¼ö¸¦ ÀÏ¿äÀÏ·Î ¸ÂÃã(´Þ·ÂÀº ÀÏ¿äÀϺÎÅÍ ½ÃÀÛ) intToday = 1 %>
<< <%=intYear%>³â <%=intMonth%>¿ù >> | ||||||
ÀÏ | ¿ù | È | ¼ö | ¸ñ | ±Ý | Åä |
" & chr(13) Next '1ÀϺÎÅÍ ¸¶Áö¸·³¯±îÁö ´Þ·Â »ý¼º For i = 1 To intLastDayOfThisMonth If intToday > 7 Then Response.Write " | ||||||
" & i & " | " & chr(13) ElseIf intToday = 1 Then Response.Write "" & i & " | " & chr(13) Else Response.Write "" & i & " | " & chr(13) End If intToday = intToday + 1 Next '¸¶Áö¸·³¯ ÀÌÈÄ ´Þ·Â ³¡³¯ ¶§±îÁö ºóÄ »ý¼º For i = intToday To 7 Response.Write "" & chr(13) Next 'Å×ÀÌºí ´Ý±â Response.Write " |