< %@LANGUAGE="VBSCRIPT " CODEPAGE="65001"%>
-
response.charset = "UTF-8"
session.codepage = 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="zh-CN" />
<title>纯ASP日历</title>
<สไตล์>
เนื้อความ{ขนาดตัวอักษร:12px; ระยะขอบ:20px 0 0 20px; ช่องว่างภายใน:0}
tr,td{ข้อความ-align:center;}
</สไตล์>
</หัว>
<ร่างกาย>
-
-
'说明：日历文件
-
取出对应的年月日数据
-
Ryear = CInt(request.querystring("ปี"))
Rmonth = CInt(request.querystring("เดือน"))
ถ้า Ryear = 0 หรือ Ryear = NULL ดังนั้น Ryear = ปี (ตอนนี้)
ถ้า Rmonth = 0 หรือ Rmonth = NULL ดังนั้น Rmonth = เดือน (ตอนนี้)
ตอนนี้ = ปี&"-"&Rเดือน&"-1" '得到本月第一天
nowyear = ปี (ขณะนี้) '年份
nowmonth = เดือน (ขณะนี้) '月份
nowweekday = วันทำงาน(เวลานี้) - 1 '当前礼拜
'获取2月天数
เดือนกุมภาพันธ์ = 28
ถ้า nowyear / 4 = 0 แล้ว febdays = 29
获取本月天数
ถ้าตอนนี้เดือน = 1 แล้ว
วันเดือน = 31
ElseIf ตอนนี้เดือน = 2 จากนั้น
monthdays = เดือนกุมภาพันธ์
ElseIf ตอนนี้เดือน = 3 จากนั้น
วันเดือน = 31
ElseIf ตอนนี้เดือน = 4 จากนั้น
วันเดือน = 30
ElseIf ตอนนี้เดือน = 5 จากนั้น
วันเดือน = 31
ElseIf ตอนนี้เดือน = 6 จากนั้น
วันเดือน = 30
ElseIf ตอนนี้เดือน = 7 จากนั้น
วันเดือน = 31
อย่างอื่นถ้าตอนนี้เดือน = 8 จากนั้น
วันเดือน = 31
อย่างอื่นถ้าตอนนี้เดือน = 9 จากนั้น
วันเดือน = 30
ElseIf เดือนนี้ = 10 จากนั้น
วันเดือน = 31
ElseIf เดือนนี้ = 11 แล้ว
วันเดือน = 30
อื่น
วันเดือน = 31
สิ้นสุดถ้า
ปฏิทิน = "<a href='calendar.asp?year="&nowyear - 1&"&month="&nowmonth&"'> <<</a> "
willshowmonthmonth = เดือนนี้
ถ้า 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 = วันทำงาน(nowyear&"-"&nowmonth&"-1") - 2 '本月第一天的星期
สำหรับ i=0 ถึงตอนนี้เดือนแรกวันธรรมดา
ปฏิทิน = ปฏิทิน & "<td bgcolor=#efefef> </td>"&VBCRLF
ต่อไป
'เริ่มต้น始循环写日期
เสื้อ=1
สำหรับ i=1 ถึงเดือน
ถ้า ปี(ตอนนี้) = ปี(ตอนนี้ปี&"-"&ตอนนี้เดือน&"-"&i) และวัน(ตอนนี้) = วัน(ตอนนี้ปี&"-"&ตอนนี้เดือน&"-"&i) จากนั้น '高亮显示今日
calendar = ปฏิทิน & "<td bgcolor =#cccccc><a href=''>"&i&"</a></td>"&VBCRLF
อื่น
ปฏิทิน = ปฏิทิน & "<td>"&i&"</td>"&VBCRLF
สิ้นสุด ถ้า
วันทำงาน(ตอนนี้ปี&"-"&เดือนนี้&"-"&i) = 7 จากนั้น
เสื้อ=t+1
ปฏิทิน = ปฏิทิน & "</tr><tr bgcolor=#ffffff>"&VBCRLF
จบถ้า
ต่อไป
สำหรับ i=1 ถึง (7*t-(ตอนนี้เดือนแรกวันธรรมดา+1+วันเดือน))
ปฏิทิน = ปฏิทิน & "<td bgcolor=#ffffff></td>"&VBCRLF
ต่อไป
ปฏิทิน = ปฏิทิน & VBCRLF&"</tr>"
ปฏิทิน = ปฏิทิน & "</ table>"&VBCRLF
ตอบกลับเขียนปฏิทิน
-
</ร่างกาย>
</html>