< %@LANGUAGE="VBSCRIPT " CODEPAGE="65001"%>
<%
réponse.charset = "UTF-8"
session.page de code = 65001
session.timeout = 1440
serveur.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 ">
<tête>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<méta http-equiv="Content-Language" content="zh-CN" />
<title>ASP日历</title>
<style>
corps{font-size:12px; marge:20px 0 0 20px; rembourrage :0}
tr,td{text-align:center;}
</style>
</tête>
<corps>
<%
'=================================
'说明：日历文件
'=================================
'取出对应的年月日数据
'========================
Rannée = CInt(request.querystring("année"))
Rmois = CInt(request.querystring("mois"))
Si Ryear = 0 ou Ryear = NULL Alors Ryear = année (maintenant)
Si Rmois = 0 ou Rmois = NULL Alors Rmois = mois (maintenant)
nowtime = Rannée&"-"&Rmois&"-1" '得到本月第一天
nowyear = année (maintenant) '年份
nowmonth = mois(heure actuelle) '月份
nowweekday = weekday(nowtime) - 1 '当前礼拜
'获取2月天数
jours de février = 28
Si maintenantannée / 4 = 0 Alors février = 29
'获取本月天数
Si maintenantmois = 1 alors
jours du mois = 31
SinonSi maintenantmois = 2 Alors
jours du mois = jours de février
SinonSi maintenantmois = 3 Alors
jours du mois = 31
SinonSi maintenantmois = 4 Alors
jours du mois = 30
SinonSi maintenantmois = 5 Alors
jours du mois = 31
SinonSi maintenantmois = 6 Alors
jours du mois = 30
SinonSi maintenantmois = 7 Alors
jours du mois = 31
SinonSi maintenantmois = 8 Alors
jours du mois = 31
SinonSi maintenantmois = 9 Alors
jours du mois = 30
SinonSi maintenantmois = 10 Alors
jours du mois = 31
SinonSi maintenantmois = 11 Alors
jours du mois = 30
Autre
jours du mois = 31
Fin si
calendrier = "<a href='calendar.asp?year="&nowyear - 1&"&month="&nowmonth&"'> <<</a> "
willshowmonthmonth = maintenantmois
Si willshowmonthmonth - 1 <= 0 Alors willshowmonthmonth = 2
calendrier = calendrier & "<a href='calendar.asp?year="&nowyear&"&month="&willshowmonthmonth - 1&"'> <</a> "
Si willshowmonthmonth + 1 > 12 Alors willshowmonthmonth = 11
calendrier = calendrier & "<a href='calendar.asp?year="&nowyear&"&month="&willshowmonthmonth + 1&"''> ></a> "
calendrier = calendrier & "<a href='calendar.asp?year="&nowyear + 1&"&month="&nowmonth&"'> >></a> "
calendrier = calendrier & "<table bgcolor=#000000 cellpacing=1 width=200><tr bgcolor=#ffffff><td colspan=7>"&nowyear&"-"&nowmonth&"-"&day(maintenant)&"</td> </tr>"&VBCRLF
calendrier = calendrier & " <tr bgcolor=#ffffff>"&VBCRLF
calendrier = calendrier & "<td>日</td>"&VBCRLF
calendrier = calendrier & "<td>一</td>"&VBCRLF
calendrier = calendrier & "<td>二</td>"&VBCRLF
calendrier = calendrier & "<td>三</td>"&VBCRLF
calendrier = calendrier & "<td>四</td>"&VBCRLF
calendrier = calendrier & "<td>五</td>"&VBCRLF
calendrier = calendrier & "<td>六</td>"&VBCRLF
calendrier = calendrier & "</tr>"&VBCRLF
calendrier = calendrier & VBCRLF&"<tr bgcolor=#ffffff>"&VBCRLF
'http://www.knowsky.com/ 把前面的空白补充出来
nowmonthfirstiweekday = weekday(nowyear&"-"&nowmonth&"-1") - 2 '本月第一天的星期
Pour i=0 À maintenantmoispremierjejourdelasemaine
calendrier = calendrier & "<td bgcolor=#efefef> </td>"&VBCRLF
Suivant
'开始循环写日期
t=1
Pour i=1 en jours du mois
Si année(maintenant) = année(maintenantannée&"-"&maintenantmois&"-"&i) et jour(maintenant) = jour(maintenantannée&"-"&maintenantmois&"-"&i) Alors '高亮显示今日
calendar = calendrier & "<td bgcolor =#cccccc><a href=''>"&i&"</a></td>"&VBCRLF
Autre
calendrier = calendrier & "<td>"&i&"</td>"&VBCRLF
Fin Si
Si jour de la semaine(maintenantannée&"-"&maintenantmois&"-"&i) = 7 Alors
t=t+1
calendrier = calendrier & "</tr><tr bgcolor=#ffffff>"&VBCRLF
Terminer si
Suivant
Pour i=1 To (7*t-(maintenantmoispremierjoursemaine+1+moisjours))
calendrier = calendrier & "<td bgcolor=#ffffff></td>"&VBCRLF
Suivant
calendrier = calendrier & VBCRLF&"</tr>"
calendrier = calendrier & "</table>"&VBCRLF
Réponse.Écrire le calendrier
%>
</corps>
</html>