<%'----------------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 %> <% '1ÀÏÀÌ ½ÃÀÛÇϱâ Àü ºóÄ­ »ý¼º For i = 1 To intWeekdayOfFirstday - 1 Response.Write " " & chr(13) Next '1ÀϺÎÅÍ ¸¶Áö¸·³¯±îÁö ´Þ·Â »ý¼º For i = 1 To intLastDayOfThisMonth If intToday > 7 Then Response.Write " " & chr(13) intToday = 1 End If If intToday = 7 Then Response.Write " " & chr(13) ElseIf intToday = 1 Then Response.Write " " & chr(13) Else Response.Write " " & chr(13) End If intToday = intToday + 1 Next '¸¶Áö¸·³¯ ÀÌÈÄ ´Þ·Â ³¡³¯ ¶§±îÁö ºóÄ­ »ý¼º For i = intToday To 7 Response.Write " " & chr(13) Next 'Å×ÀÌºí ´Ý±â Response.Write " " & chr(13) & "
<< <%=intYear%>³â <%=intMonth%>¿ù >>
ÀÏ ¿ù È­ ¼ö ¸ñ ±Ý Åä
 
" & i & "" & i & "" & i & " 
" %>