asp calendar 모듈

<%'----------------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")

  '이번달 마지막날 찾기
      intLastDayOfThisMonth = Day(Dateadd("d", -1, intNextYear-1 & "-" &
intNextMonth & "-1"))

  '요일 변수를 일요일로 맞춤(달력은 일요일부터 시작)
  intToday = intWeekdayOfFirstday
  %>

  <table width="100%" cellpadding="0" cellspacing="1" border="0"
bgcolor="black">
    <tr bgcolor="#0066cc">
      <td colspan="7" align="center">

          <!--지난달 버튼 출력-->
          <a
href="Calendar.asp?year=<%=intLastYear%>&month=<%=intLastMonth%>"><font
color="yellow"><b>&lt;&lt;</font></a>

          <!--이번달 문자열 출력-->
          <font color="yellow"><b><%=intYear%>년 <%=intMonth%>월</b></font>

          <!--다음달 버튼 출력-->
          <a
href="Calendar.asp?year=<%=intNextYear%>&month=<%=intNextMonth%>"><font
color="yellow"><b>&gt;&gt;</font></a>
      </td>
    </tr>
    <tr bgcolor="#eaeaea" align="center">
      <td width="14%">일</td>
      <td width="14%">월</td>
      <td width="14%">화</td>
      <td width="14%">수</td>
      <td width="14%">목</td>
      <td width="14%">금</td>
      <td width="14%">토</td>
    </tr>
    <tr bgcolor="#FFFFFF" align="center">
  <%
  '1일이 시작하기 전 빈칸 생성
  For i = 1 To intWeekdayOfFirstday - 1
      Response.Write "    <td>&nbsp;</td>" & chr(13)

  Next

  '1일부터 마지막날까지 달력 생성
  For i = 1 To intLastDayOfThisMonth
      If intToday > 7 Then
          Response.Write "  </tr><tr bgcolor='#FFFFFF' align='center'>" &
chr(13)
          intToday = 1
      End If

      If intToday = 7 Then
          Response.Write "    <td><font color='blue'>" & i & "</font></td>" &
chr(13)
      elseIf intToday = 1 Then
     Response.Write "    <td><font color='red'>" & i & "</font></td>" & chr(13)
      Else
          Response.Write "    <td>" & i & "</td>" & chr(13)
      End If
      intToday = intToday + 1
Next

  '마지막날 이후 달력 끝날 때까지 빈칸 생성
  For i = intToday To 7
      Response.Write "    <td>&nbsp;</td>" & chr(13)
  Next

  '테이블 닫기
  Response.Write "  </tr>"& chr(13) & "</table>"
  %>