< %@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-Language" content="zh-CN" />
<title>純ASP日曆</title>
<風格>
正文{字體大小：12px;邊距：20px 0 0 20px；填充：0}
tr,td{文字對齊:中心;}
</風格>
</頭>
<正文>
<%
'====================================
'說明：日曆文件
'====================================
' 擷取對應的年月日數據
'======================
Ryear = CInt(request.querystring("年份"))
Rmonth = CInt(request.querystring("月"))
如果 Ryear = 0 或 Ryear = NULL 則 Ryear = 年（現在）
如果 Rmonth = 0 或 Rmonth = NULL 則 Rmonth = 月（現在）
nowtime = Ryear&"-"&Rmonth&"-1" '得到本月第一天
nowyear = 年(nowtime) '年份
nowmonth = 月份(nowtime) '月份
nowweekday = weekday(nowtime) - 1 '當前禮拜
'取得2月天數
二月 = 28
若現在年 / 4 = 0 那麼二月 = 29
'取得本月天數
如果現在月份 = 1 那麼
月日 = 31
否則如果現在月份 = 2 那麼
月日=二月
否則如果現在月份 = 3 那麼
月日 = 31
否則如果現在月份 = 4 那麼
月日 = 30
否則如果現在月份 = 5 那麼
月日 = 31
否則如果現在月份 = 6 那麼
月日 = 30
否則如果現在月份 = 7 那麼
月日 = 31
否則如果現在月份 = 8 那麼
月日 = 31
否則如果現在月份 = 9 那麼
月日 = 30
否則如果現在月份 = 10 那麼
月日 = 31
否則如果現在月份 = 11 那麼
月日 = 30
別的
月日 = 31
結束如果
日曆 = "<a href='calendar.asp?year="&nowyear - 1&"&month="&nowmonth&"'> <<</a> "
將顯示月份月份 = 現在月份
如果 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 cellspacing=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>四</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 到現在月份第一個工作日
日曆 = 日曆 & "<td bgcolor=#efefef> </td>"&VBCRLF
下一個
'開始循環寫入日期
t=1
對於 i=1 至月日
如果年(現在) = 年(nowyear&"-"&nowmonth&"-"&i) and day(now) = day(nowyear&"-"&nowmonth&"-"&i) 那麼 '高亮顯示今日
calendar = calendar & "<td bgcolor =#cccccc><a href=''>"&i&"</a></td>"&VBCRLF
別的
日曆 = 日曆 & "<td>"&i&"</td>"&VBCRLF
結束如果
如果工作日(nowyear&"-"&nowmonth&"-"&i) = 7 那麼
t=t+1
日曆 = 日曆 & "</tr><tr bgcolor=#ffffff>"&VBCRLF
結束如果
下一個
對於 i=1 To (7*t-(現在月份第一個工作日+1+月份天))
日曆 = 日曆 & "<td bgcolor=#ffffff></td>"&VBCRLF
下一個
日曆 = 日曆 & VBCRLF&"</tr>"
日曆 = 日曆 & "</table>"&VBCRLF
響應.寫日曆
%>
</正文>
</html>