< %@LANGUAGE="VBSCRIPT " CODEPAGE="65001"%>
<%
response.charset = "UTF-8"
session.codepage = 65001
세션.시간 초과 = 1440
server.scripttimeout = 9999
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" " http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd ">
<html xmlns=" http://www.w3.org/1999/xhtml ">
<머리>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta http-equiv="Content-Language" content="zh-CN" />
<title>纯ASP日历</title>
<스타일>
본문{글꼴 크기:12px; 여백:20px 0 0 20px; 패딩:0}
tr,td{텍스트 정렬:중심;}
</style>
</head>
<본문>
<%
'==================================
'说明 : 日历文件
'==================================
'取取对应的年月日数据'
'=======================
R연도 = CInt(request.querystring("연도"))
Rmonth = CInt(request.querystring("월"))
Ryear = 0 또는 Ryear = NULL이면 Ryear = 연도(현재)
Rmonth = 0 또는 Rmonth = NULL이면 Rmonth = 월(현재)
nowtime = Ryear&"-"&Rmonth&"-1" '得到本月第一天
nowyear = year(지금시각) '年份
지금월 = 월(지금시각) '월份
nowweekday = 평일(지금시각) - 1'当前礼拜
'获取2月천기'
2월 = 28
지금연도 / 4 = 0이면 2월 = 29
'获取本月天数'
지금월 = 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
종료 조건
Calendar = "<a href='calendar.asp?year="&nowyear - 1&"&month="&nowmonth&"'> <<</a> "
willshowmonth월 = 지금월
willshowmonthmonth - 1 <= 0이면 willshowmonthmonth = 2
달력 = 달력 & "<a href='calendar.asp?year="&nowyear&"&month="&willshowmonthmonth - 1&"'> <</a> "
willshowmonthmonth + 1 > 12이면 willshowmonthmonth = 11
달력 = 달력 & "<a href='calendar.asp?year="&nowyear&"&month="&willshowmonthmonth + 1&"''> ></a> "
달력 = 달력 & "<a href='calendar.asp?year="&nowyear + 1&"&month="&nowmonth&"'> >></a> "
달력 = 달력 & "<table bgcolor=#000000 cellpacing=1 width=200><tr bgcolor=#ffffff><td colspan=7>"&nowyear&"-"&nowmonth&"-"&day(now)&"</td> </tr>"&VBCRLF
달력 = 달력 & " <tr bgcolor=#ffffff>"&VBCRLF
달력 = 달력 & "<td>일</td>"&VBCRLF
달력 = 달력 & "<td>一</td>"&VBCRLF
달력 = 달력 & "<td>두</td>"&VBCRLF
달력 = 달력 & "<td>三</td>"&VBCRLF
달력 = 달력 & "<td>4</td>"&VBCRLF
달력 = 달력 & "<td>五</td>"&VBCRLF
달력 = 달력 & "<td>六</td>"&VBCRLF
달력 = 달력 & "</tr>"&VBCRLF
달력 = 달력 & VBCRLF&"<tr bgcolor=#ffffff>"&VBCRLF
'http://www.knowsky.com/ 把前면적 빈백백출출来
nowmonthfirstiweekday = weekday(nowyear&"-"&nowmonth&"-1") - 2 '본월第一하늘별별期
i=0인 경우 지금월첫번째i주일까지
달력 = 달력 & "<td bgcolor=#efefef> </td>"&VBCRLF
다음
'开始循环写日期'
티=1
i=1부터 월까지
year(now) = year(nowyear&"-"&nowmonth&"-"&i) 및 day(now) = day(nowyear&"-"&nowmonth&"-"&i) 그러면 '高亮显示今日
calendar = Calendar & "<td bgcolor =#cccccc><a href=''>"&i&"</a></td>"&VBCRLF
또 다른
달력 = 달력 & "<td>"&i&"</td>"&VBCRLF
End If
If weekday(nowyear&"-"&nowmonth&"-"&i) = 7 Then
티=티+1
달력 = 달력 & "</tr><tr bgcolor=#ffffff>"&VBCRLF
다음과 같은 경우 종료
다음
i=1 To (7*t-(nowmonthfirstiweekday+1+monthdays))
달력 = 달력 & "<td bgcolor=#ffffff></td>"&VBCRLF
다음
달력 = 달력 & VBCRLF&"</tr>"
달력 = 달력 & "</table>"&VBCRLF
응답.캘린더 작성
%>
</body>
</html>