달력 ...

<%
    Dim byear, bmonth, bfirst, bend, bweekday, bday

    byear = Trim(Request("byear"))

    bmonth = Trim(Request("bmonth"))

    If byear = "" Then
        byear = Year(now)
    End If

    If bmonth = "" Then
        bmonth = Month(now)
    End If

    ' 1(일) - 7 (토) 각 달의 시작 요일을 구한다
    bweekday = byear & "-" & bmonth & "-" & "01"
    bfirst = Weekday(bweekday, 1)

    ' 현재 달의 마지막 날을 구한다
    bend = DateAdd("m", "1", bweekday)
    bend = DateAdd("d", "-1", bend)
    bend = DatePart("d", bend)
%>

<table border="0" cellpadding="0" cellspacing="0" width="360">
    <tr>
        <td align="center">일</td>
        <td align="center">월</td>
        <td align="center">화</td>
        <td align="center">수</td>
        <td align="center">목</td>
        <td align="center">금</td>
        <td align="center">토</td>
    </tr>
    <tr>
        <td colspan="7" height="1" bgcolor="#000000"></td>
    </tr>
    <tr>
    <%
        For i=1 To (bfirst+bend-1)
            If i < bfirst Then
                bday = "&nbsp;"
            Else
                bday = i - bfirst + 1
            End If

            If i > 1 And i-1 Mod 7 = 0 Then
                Response.Write "<tr>"
            End If
    %>
        <td align="center"><%=bday%></td>
    <%
            If i > 1 And i Mod 7 = 0 Then
                Response.Write "</tr>"
            End If
        Next
    %>
    </tr>
</table>

10분 동안 만든 달력..