< %@LANGUAGE="VBSCRIPT " CODEPAGE="65001"%>
<%
respuesta.charset = "UTF-8"
sesión.página de códigos = 65001
sesión.tiempo de espera = 1440
servidor.scripttimeout = 9999
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transicional//EN" " http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd ">
<html xmlns=" http://www.w3.org/1999/xhtml ">
<cabeza>
<meta http-equiv="Tipo de contenido" content="text/html; charset=utf-8" />
<meta http-equiv="Contenido-Idioma" contenido="zh-CN" />
<title>ASP日历</title>
<estilo>
cuerpo {tamaño de fuente: 12px; margen:20px 0 0 20px; relleno: 0}
tr,td{text-align:centro;}
</estilo>
</cabeza>
<cuerpo>
<%
'===================================
'说明：日历文件
'===================================
'取出对应的年月日数据
'========================
Raño = CInt(solicitud.querystring("año"))
Rmes = CInt(solicitud.querystring("mes"))
Si Ryear = 0 o Ryear = NULL Entonces Ryear = año (ahora)
Si Rmes = 0 o Rmes = NULL Entonces Rmes = mes (ahora)
ahoratime = Raño&"-"&Rmes&"-1" '得到本月第一天
ahoraaño = año(ahorahora) '年份
ahorames = mes(ahora) '月份
ahoradía de la semana = día de la semana(ahora) - 1 '当前礼拜
'获取2月天数
días de febrero = 28
Si ahoraaño / 4 = 0 Entonces febdays = 29
'获取本月天数
Si ahorames = 1 entonces
días del mes = 31
De lo contrario, si ahora es el mes = 2, entonces
días de mes = días de febrero
De lo contrario, si ahora es el mes = 3, entonces
días del mes = 31
De lo contrario, si ahora es el mes = 4, entonces
días del mes = 30
De lo contrario, si ahora es el mes = 5, entonces
días del mes = 31
De lo contrario, si ahora es el mes = 6, entonces
días del mes = 30
De lo contrario, si ahora es el mes = 7, entonces
días del mes = 31
De lo contrario, si ahora es el mes = 8, entonces
días del mes = 31
De lo contrario, si ahora es el mes = 9, entonces
días del mes = 30
De lo contrario, si ahora es el mes = 10, entonces
días del mes = 31
De lo contrario, si ahora es el mes = 11, entonces
días del mes = 30
Demás
días del mes = 31
Terminar si
calendario = "<a href='calendar.asp?year="&nowyear - 1&"&month="&nowmonth&"'> <<</a> "
willshowmonthmonth = ahorames
Si willshowmonthmonth - 1 <= 0 Entonces willshowmonthmonth = 2
calendario = calendario & "<a href='calendar.asp?year="&nowyear&"&month="&willshowmonthmonth - 1&"'> <</a> "
Si willshowmonthmonth + 1 > 12 Entonces willshowmonthmonth = 11
calendario = calendario & "<a href='calendar.asp?year="&nowyear&"&month="&willshowmonthmonth + 1&"''> >>a> "
calendario = calendario & "<a href='calendar.asp?year="&nowyear + 1&"&month="&nowmonth&"'> >></a> "
calendario = calendario & "<table bgcolor=#000000 cellpacing=1 width=200><tr bgcolor=#ffffff><td colspan=7>"&nowyear&"-"&nowmonth&"-"&day(now)&"</td> </tr>"&VBCRLF
calendario = calendario & " <tr bgcolor=#ffffff>"&VBCRLF
calendario = calendario & "<td>日</td>"&VBCRLF
calendario = calendario & "<td>一</td>"&VBCRLF
calendario = calendario & "<td>二</td>"&VBCRLF
calendario = calendario & "<td>三</td>"&VBCRLF
calendario = calendario & "<td>四</td>"&VBCRLF
calendario = calendario & "<td>五</td>"&VBCRLF
calendario = calendario & "<td>六</td>"&VBCRLF
calendario = calendario & "</tr>"&VBCRLF
calendario = calendario & VBCRLF&"<tr bgcolor=#ffffff>"&VBCRLF
'http://www.knowsky.com/ 把前面的空白补充出来
ahoramesprimerdisemana = día de la semana(ahoraaño&"-"&ahorames&"-1") - 2 '本月第一天的星期
Para i=0 Hasta ahoramesprimerodíasemana
calendario = calendario & "<td bgcolor=#efefef> </td>"&VBCRLF
Próximo
'开始循环写日期
t=1
Para i=1 a días del mes
Si año(ahora) = año(ahoraaño&"-"&ahorames&"-"&i) y día(ahora) = día(ahoraaño&"-"&ahorames&"-"&i) Entonces '高亮显示今日
calendar = calendario & "<td bgcolor =#cccccc><a href=''>"&i&"</a></td>"&VBCRLF
Demás
calendario = calendario & "<td>"&i&"</td>"&VBCRLF
Fin si
si día laborable (año actual&"-"&mes actual&"-"&i) = 7 Entonces
t=t+1
calendario = calendario & "</tr><tr bgcolor=#ffffff>"&VBCRLF
terminar si
Próximo
Para i=1 To (7*t-(nowmonthfirstiweekday+1+monthdays))
calendario = calendario & "<td bgcolor=#ffffff></td>"&VBCRLF
Próximo
calendario = calendario & VBCRLF&"</tr>"
calendario = calendario & "</table>"&VBCRLF
Respuesta.Escribir calendario
%>
</cuerpo>
</html>