< %@LANGUAGE="VBSCRIPT " CODEPAGE="65001"%>
<%
resposta.charset = "UTF-8"
sessão.codepage = 65001
sessão.timeout = 1440
servidor.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 ">
<cabeça>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta http-equiv="Content-Language" content="zh-CN" />
<title>纯ASP日历</title>
<estilo>
corpo{tamanho da fonte:12px; margem:20px 0 0 20px; preenchimento:0}
tr,td{text-align:center;}
</estilo>
</head>
<corpo>
<%
'=================================
'说明:日历文件
'=================================
'取出对应的年月日数据
'=======================
Rano = CInt(request.querystring("ano"))
Rmês = CInt(request.querystring("mês"))
Se Ryear = 0 ou Ryear = NULL Então Ryear = ano (agora)
Se Rmês = 0 ou Rmês = NULL Então Rmês = mês (agora)
horaagora = Rano&"-"&Rmês&"-1" '得到本月第一天
anoagora = ano(horaagora) '年份
agoramês = mês(agorahora) '月份
hojediada semana = dia da semana(agorahora) - 1 '当前礼拜
'获取2月天数
dias de fevereiro = 28
Se ano agora / 4 = 0 Então dias de fevereiro = 29
'获取本月天数
Se agoramês = 1 então
dias do mês = 31
ElseIf agoramês = 2 Então
dias do mês = dias de fevereiro
ElseIf agoramês = 3 Então
dias do mês = 31
ElseIf agoramês = 4 Então
dias do mês = 30
ElseIf agoramês = 5 Então
dias do mês = 31
ElseIf agoramês = 6 Então
dias do mês = 30
ElseIf agoramês = 7 Então
dias do mês = 31
ElseIf agoramês = 8 Então
dias do mês = 31
ElseIf agoramês = 9 Então
dias do mês = 30
ElseIf agoramês = 10 Então
dias do mês = 31
ElseIf agoramês = 11 Então
dias do mês = 30
Outro
dias do mês = 31
Terminar se
calendário = "<a href='calendar.asp?year="&nowyear - 1&"&month="&nowmonth&"'> <<</a> "
willshowmonthmonth = agoramês
Se willshowmonthmonth - 1 <= 0 Então willshowmonthmonth = 2
calendário = calendário & "<a href='calendar.asp?year="&nowyear&"&month="&willshowmonthmonth - 1&"'> <</a> "
Se willshowmonthmonth + 1 > 12 Então willshowmonthmonth = 11
calendário = calendário & "<a href='calendar.asp?year="&nowyear&"&month="&willshowmonthmonth + 1&"''> </a> "
calendário = calendário & "<a href='calendar.asp?year="&nowyear + 1&"&month="&nowmonth&"'> >></a> "
calendário = calendário & "<table bgcolor=#000000 cellpacing=1 width=200><tr bgcolor=#ffffff><td colspan=7>"&nowyear&"-"&nowmonth&"-"&day(now)&"</td> </tr>"&VBCRLF
calendário = calendário & " <tr bgcolor=#ffffff>"&VBCRLF
calendário = calendário & "<td>日</td>"&VBCRLF
calendário = calendário & "<td>一</td>"&VBCRLF
calendário = calendário & "<td>二</td>"&VBCRLF
calendário = calendário & "<td>三</td>"&VBCRLF
calendário = calendário & "<td>四</td>"&VBCRLF
calendário = calendário & "<td>五</td>"&VBCRLF
calendário = calendário & "<td>六</td>"&VBCRLF
calendário = calendário & "</tr>"&VBCRLF
calendário = calendário & VBCRLF&"<tr bgcolor=#ffffff>"&VBCRLF
'http://www.knowsky.com/ 把前面的空白补充出来
agoramêsprimeiroiweekday = dia da semana(agoraano&"-"&agoramês&"-1") - 2 '本月第一天的星期
Para i=0 Até agoramêsprimeirodiada semana
calendário = calendário & "<td bgcolor=#efefef> </td>"&VBCRLF
Próximo
'开始循环写日期
t=1
Para i=1 para dias do mês
Se ano(agora) = ano(anoagora&"-"&mêsagora&"-"&i) e dia(agora) = dia(anoagora&"-"&mêsagora&"-"&i) Então '高亮显示今日
calendar = calendário & "<td bgcolor =#cccccc><a href=''>"&i&"</a></td>"&VBCRLF
Outro
calendário = calendário & "<td>"&i&"</td>"&VBCRLF
Fim If
If dia da semana(agoraano&"-"&agoramês&"-"&i) = 7 Então
t=t+1
calendário = calendário & "</tr><tr bgcolor=#ffffff>"&VBCRLF
Terminar se
Próximo
For i=1 To (7*t-(nowmonthfirstiweekday+1+monthdays))
calendário = calendário & "<td bgcolor=#ffffff></td>"&VBCRLF
Próximo
calendário = calendário & VBCRLF&"</tr>"
calendário = calendário & "</table>"&VBCRLF
Calendário Response.Write
%>
</body>
</html>