달력 소스 ASP

워낙 쉬운 코드라 ... 올리기도 참 민망하지만

요즘 머리가 점점... 기억을 잃어 버려 ㅋㅋ 이렇게 적어놓아본다.

ASP 달력소스

  <% Dim str, d(7), cnt, end_date, st_date, t_date str = Date() d(0) = "일" d(1) = "월" d(2) = "화" d(3) = "수" d(4) = "목" d(5) = "금" d(6) = "토" '이번달 1일의 요일 st_date = Weekday(DateSerial(Year(str), Month(str), 1))-1 '이번달 마지막일 end_date = Day(DateSerial(Year(str), Month(str)+1, 1-1)) Response.write "<h2>" & Year(str) & "년 " & Month(str) & "월 </h2><br />" %> <table border="1"> <tr> <% For i=0 To 6 Step 1 Response.write "<td>"&d(i)&"</td>" Next Response.write "</tr>" For i=0 To st_date-1 Response.write "<td></td>" Next For i=1 To end_date t_date = Weekday(DateSerial(Year(str), Month(str), i))-1 Response.write "<td>" & i & "</td>" If(t_date = 6) Then Response.write "</tr><tr>" End if Next Response.write "</tr>" %> </table>