< %@LANGUAGE="VBSCRIPT " CODEPAGE="65001"%>
<%
応答.charset = "UTF-8"
セッション.コードページ = 65001
セッション.タイムアウト = 1440
サーバー.スクリプトタイムアウト = 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="zh-CN" />
<title>纯ASP日历</title>
<スタイル>
本文{フォントサイズ:12px;マージン:20px 0 0 20px;パディング:0}
tr,td{text-align:center;}
</スタイル>
</head>
<本文>
<%
'=================================
'说明：日历文件
'=================================
'取出对应的年月日データ
'=======================
Ryear = CInt(request.querystring("年"))
Rmonth = CInt(request.querystring("月"))
Ryear = 0 または Ryear = NULL の場合、Ryear = year(now)
Rmonth = 0 または Rmonth = NULL の場合、Rmonth = month(now)
nowtime = Ryear&"-"&Rmonth&"-1" '今月第一天に到達
nowyear = year(nowtime) '年份
nowmonth = month(nowtime) '月份
nowweekday = 平日(現在時刻) - 1 '当前礼拜
'获取2月天数
2月 = 28
今の年 / 4 = 0 の場合、2 月 = 29
'获取本月天数
nowmonth = 1 の場合
月 = 31
ElseIf nowmonth = 2 then
月日 = 2月日
ElseIf nowmonth = 3 then
月 = 31
ElseIf nowmonth = 4 then
月日 = 30
ElseIf nowmonth = 5 then
月 = 31
ElseIf nowmonth = 6 then
月日 = 30
ElseIf nowmonth = 7 then
月 = 31
ElseIf nowmonth = 8 then
月 = 31
ElseIf nowmonth = 9 then
月日 = 30
ElseIf nowmonth = 10 then
月 = 31
ElseIf nowmonth = 11 then
月日 = 30
それ以外
月 = 31
終了の場合
カレンダー = "<a href='calendar.asp?year="&nowyear - 1&"&month="&nowmonth&"'> <<</a> "
willshowmonthmonth = 今月
willshowmonthmonth - 1 <= 0 の場合、willshowmonthmonth = 2
Calendar = カレンダー & "<a href='calendar.asp?year="&nowyear&"&month="&willshowmonthmonth - 1&"'> <</a> "
willshowmonthmonth + 1 > 12 の場合、willshowmonthmonth = 11
Calendar = カレンダー & "<a href='calendar.asp?year="&nowyear&"&month="&willshowmonthmonth + 1&""> ></a> "
Calendar = カレンダー & "<a href='calendar.asp?year="&nowyear + 1&"&month="&nowmonth&"'> >></a> "
Calendar = カレンダー & "<table bgcolor=#000000 cellpacing=1 width=200><tr bgcolor=#ffffff><td Colspan=7>"&nowyear&"-"&nowmonth&"-"&day(now)&"</td> </tr>"&VBCRLF
カレンダー = カレンダー & " <tr bgcolor=#ffffff>"&VBCRLF
Calendar = カレンダー & "<td>日</td>"&VBCRLF
カレンダー = カレンダー & "<td>一</td>"&VBCRLF
カレンダー = カレンダー & "<td>二</td>"&VBCRLF
カレンダー = カレンダー & "<td>三</td>"&VBCRLF
カレンダー = カレンダー & "<td>四</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 の場合 to nowmonthfirstiweekday
カレンダー = カレンダー & "<td bgcolor=#efefef> </td>"&VBCRLF
次
'开開始循環环写日期
t=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
t=t+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>