纯asp打造的日历程序，可自行美化，这里仅提供最简单的css样式。。。
<style>
바디 {font-size : 12px; 20px 0 20px;
tr, td {text-align : center;}
</스타일>
<%
'===========================
'설명 : 캘린더 파일
'===========================
'해당 연도 및 월 블로그 로그 데이터를 꺼내십시오.
'======================
ryear = cint (request.querystring ( "Year")
rmonth = cint (request.querystring ( "Month")
ryear = 0r ryear = null이면 ryear = year (지금)
rmonth = 0 또는 rmonth = null이면 rmonth = month (지금)
nowtime = ryear & "-"& rmonth & "-1" ''이달 첫날을 얻으려면
nowyear = Year (nowtime) ''
nowmonth = Month (Nowtime) '달
nowweekday = 주중 (Nowtime) -1 '
'2 월 수를 얻으십시오
2 월 = 28
Nowyear / 4 = 0 Theon Febdays = 29 인 경우
'이번 달 일수를 받으십시오
Nowmonth = 1이면 그렇다면
월요일 = 31
elseif nowmonth = 2 그때
월요일 = 2 월
elseif nowmonth = 3 그때
월요일 = 31
elseif nowmonth = 4 그때
월간 = 30
elseif nowmonth = 5 그때
월요일 = 31
elseif nowmonth = 6 그때
월간 = 30
elseif nowmonth = 7
월요일 = 31
elseif nowmonth = 8
월요일 = 31
elseif nowmonth = 9
월간 = 30
elseif nowmonth = 10 그때
월요일 = 31
elseif nowmonth = 11
월간 = 30
또 다른
월요일 = 31
끝 If
calendar = "<a href = 'calendar.asp? year ="& nowyear -1 & month = "& nowmonth &"'> & lt; </a> & nbsp; "
Willshowmonthmonth = Nowmonth
WillShowmonthmonth -1 <= 0이면 Willshowmonthmonth = 2 인 경우
Calendar = 캘린더 & "<a href = 'calendar.asp? year ="& month = "& Willshowmonthmonth -1 & lt;
Willshowmonth + 1> 12 인 경우 Willshowmonthmonth = 11
Calendar = 캘린더 & "<a href = 'calendar.asp? year ="& month = "& Willshowmonth + 1 & gt;
캘린더 = <a href = 'calendar.asp?
캘린더 = 캘린더 & "<테이블 bgcolor =#000000 Cellspacing = 1 width = 200> <tr bgcolor =#ffffff> <td colspan = 7>"now) & "</td> </tr>"& vbcrf
캘린더 = 캘린더 & "<tr bgcolor =#ffffff>"& vbcrlf
Calendar = Calendar & "<Td> Day </td>"& vbcrlf
Calendar = Calendar & "<td> one </td>"& vbcrip
Calendar = Calendar & "<Td> Two </td>"& vbcrlf
Calendar = Calendar & "<Td> Three </td>"& vbcrlf
Calendar = Calendar & "<td> Four </td>"& vbcrlf
Calendar = Calendar & "<Td> 5 </td>"& vbcrlf
Calendar = Calendar & "<Td> Six </td>"& vbcrlf
캘린더 = 캘린더 & "</tr>"& vbcrlf
캘린더 = 캘린더 & vbcrlf & "<tr bgcolor =#ffffff>"& vbcrlf
'블랭크를 앞쪽에 추가하십시오
nowmonthfirstiweekday = 주간 (nowyear & "-"& nowmonth & "-1") -2 '이달 첫날에 2'
i = 0에서 지금은 monthfirstiweekday입니다
캘린더 = 캘린더 & "<td bgcolor =#efefef> & nbsp; </td>"& vbcrlf
다음
'날짜를 시작하십시오
t = 1
i = 1에서 월 일까지
if e-ye (now) = year (nowyear & "-"& newmonth & "-"& i) 및 day (now) = day (nowear & "-"-nowmonth & "-"& i).
캘린더 = 캘린더 & "<td bgcolor =#cccccc> <a href = '' '>"& i & "</a> </td>"
또 다른
캘린더 = 캘린더 & "<td> & i &"</td> "& vbcrlf
끝 If
평일 (nowyear & "-"& nowmonth & "-"& i) = 7이면
t = t+1
캘린더 = 캘린더 & "</tr> <tr bgcolor =#ffffff>"& vbcrlf
끝 If
다음
i = 1 ~ 7*t- (nowmonthfirstiweekday+1+Monthdays))
Calendar = Calendar & "<tdbgcolor =#ffffff> </td>"& vbcrlf
다음
캘린더 = 캘린더 & vbcrlf & "</tr>"
캘린더 = 캘린더 & "</table>"& vbcrip
응답. 캘린더를 작성합니다
%>