% '----------------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, intYear+1 & "-1-1")) Else intLastDayOfThisMonth = Day(Dateadd("d", -1, intYear & "-" & intMonth+1 & "-1")) End if %>
<< <%=intYear%>³â <%=intMonth%>¿ù >> | ||||||
ÀÏ | ¿ù | È | ¼ö | ¸ñ | ±Ý | Åä |
" & chr(13) inttoday = inttoday + 1 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 " |