< %@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>