< %@LANGUAGE="VBSCRIPT " CODEPAGE="65001"%>
<%
ответ.charset = "UTF-8"
сеанс.кодовая страница = 65001
сеанс.таймаут = 1440
server.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 ">
<голова>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta http-equiv="Content-Language" content="zh-CN" />
<title>纯ASP日历</title>
<стиль>
тело {размер шрифта: 12 пикселей; поле:20 пикселей 0 0 20 пикселей; отступ: 0}
tr,td{text-align:center;}
</стиль>
</голова>
<тело>
<%
'================================
'说明:日历文件
'================================
'取出对应的年月日数据
'======================
Ryear = CInt(request.querystring("год"))
Rмесяц = CInt(request.querystring("месяц"))
Если Ryear = 0 или Ryear = NULL, тогда Ryear = год (сейчас)
Если Rмесяц = 0 или Rмесяц = NULL, тогда Rмесяц = месяц (сейчас)
nowtime = Rгод&"-"&Rмесяц&"-1" '得到本月第一天
nowyear = год (сейчас время) '年份
nowmonth = месяц(сейчас) '月份
nowweekday = будний день(сейчас-время) - 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
Конец, если
Calendar = "<a href='calendar.asp?year="&nowyear - 1&"&month="&nowmonth&"'> <<</a> "
willshowmonthмесяц = сейчасмесяц
Если willshowmonthmonth - 1 <= 0 Тогда willshowmonthmonth = 2
Calendar = Calendar & "<a href='calendar.asp?year="&nowyear&"&month="&willshowmonthmonth - 1&"'> <</a> "
Если willshowmonthmonth + 1 > 12 Тогда willshowmonthmonth = 11
Calendar = Calendar & "<a href='calendar.asp?year="&nowyear&"&month="&willshowmonthmonth + 1&"''> ></a> "
Calendar = Calendar & "<a href='calendar.asp?year="&nowyear + 1&"&month="&nowmonth&"'> >></a> "
Calendar = Calendar & "<table bgcolor=#000000 cellpacing=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 = день недели(nowyear&"-"&nowmonth&"-1") - 2 '本月第一天的星期
Для i=0 До настоящего моментамесяцпервыйнедельный день
календарь = календарь & "<td bgcolor=#efefef> </td>"&VBCRLF
Следующий
'开始循环写日期
т=1
Для i=1 по дням месяца
Если год(сейчас) = год(сейчасгод&"-"&сейчасмесяц&"-"&i) и день(сейчас) = день(сейчасгод&"-"&сейчасмесяц&"-"&i) Тогда '高亮显示今日
calendar = Calendar & "<td bgcolor =#cccccc><a href=''>"&i&"</a></td>"&VBCRLF
Еще
календарь = календарь & "<td>"&i&"</td>"&VBCRLF
Конец Если
Если день недели(сейчасгод&"-"&сейчасмесяц&"-"&i) = 7 Тогда
т=т+1
календарь = календарь & "</tr><tr bgcolor=#ffffff>"&VBCRLF
Конец, если
Следующий
Для i=1 To (7*t-(nowmonthfirstiweekday+1+monthdays))
календарь = календарь & "<td bgcolor=#ffffff></td>"&VBCRLF
Следующий
календарь = календарь & VBCRLF&"</tr>"
календарь = календарь & "</table>"&VBCRLF
Ответ.Написать календарь
%>
</тело>
</html>