纯asp打造的日历程序，可自行美化，这里仅提供最简单的css样式。。。
<style>
Body {Font-Size: 12px;
tr, td {text-allign: center;}
</style>
-
-
'คำอธิบาย: ไฟล์ปฏิทิน
-
'นำข้อมูลบันทึกบล็อกปีและเดือนที่สอดคล้องกันออกมา
-
ryear = cint (request.querystring ("ปี")
rmonth = cint (request.querystring ("เดือน")
ถ้า ryear = 0r ryear = null แล้ว ryear = ปี (ตอนนี้)
ถ้า rmonth = 0 หรือ rmonth = null จากนั้น rmonth = เดือน (ตอนนี้)
NowTime = Ryear & "-" & rmonth & "-1" '' เพื่อรับวันแรกของเดือนนี้
Nowyear = ปี (ตอนนี้) '
NowMonth = เดือน (ตอนนี้) 'เดือน
วันนี้สัปดาห์ = วันธรรมดา (ตอนนี้) -1 '
'รับจำนวนวันกุมภาพันธ์
FEBDAYS = 28
ถ้า nowyear / 4 = 0 Theon Febdays = 29
'รับจำนวนวันในเดือนนี้
ถ้า nowmonth = 1 แล้ว
วันจันทร์ = 31
elseif nowmonth = 2 แล้ว
วันจันทร์ = Febdays
elseif nowmonth = 3 แล้ว
วันจันทร์ = 31
elseif nowmonth = 4 แล้ว
วันจันทร์ = 30
elseif nowmonth = 5 แล้ว
วันจันทร์ = 31
elseif nowmonth = 6 แล้ว
วันจันทร์ = 30
elseif nowmonth = 7 แล้ว
วันจันทร์ = 31
elseif nowmonth = 8 แล้ว
วันจันทร์ = 31
elseif nowmonth = 9 แล้ว
วันจันทร์ = 30
elseif nowmonth = 10 แล้ว
วันจันทร์ = 31
elseif nowmonth = 11 แล้ว
วันจันทร์ = 30
อื่น
วันจันทร์ = 31
สิ้นสุดถ้า
Calendar = "<a href = 'calendar.asp? ปี =" & nowyear - 1 & "& month =" & nowmonth & "'> & lt; </a> & nbsp;"
WillshowMonthMonth = NowMonth
ถ้า WillshowMonthmonth -1 <= 0 thatn willshowmonthmonth = 2
ปฏิทิน = ปฏิทิน & "<a href = 'calendar.asp? ปี =" & nowyear & "& month =" & willshowmonthmonth -1 & lt; </a> & nbsp;
ถ้า WillshowMonthMonth + 1> 12 Thatn WillshowMonthMonth = 11
ปฏิทิน = ปฏิทิน & "<a href = 'calendar.asp? ปี =" & nowyear & "& month =" & willshowmonth + 1 & gt; </a> & nbsp;
ปฏิทิน = ปฏิทิน & "a href = 'calendar.asp? ปี =" & nowyear + 1 & month = "& nowmonth &"'> & gt; </a> & nbsp;
ปฏิทิน = ปฏิทิน & "<table bgcolor =#000000 cellspacing = 1 width = 200> <tr bgcolor =#ffffff> <td colspan = 7>" ตอนนี้) & "</td> </tr>" & vbcrf
ปฏิทิน = ปฏิทิน & "<tr bgcolor =#ffffff>" & vbcrlf
ปฏิทิน = ปฏิทิน & "<td> วัน </td>" & vbcrlf
ปฏิทิน = ปฏิทิน & "<td> หนึ่ง </td>" & vbcrip
ปฏิทิน = ปฏิทิน & "<td> สอง </td>" & vbcrlf
ปฏิทิน = ปฏิทิน & "<td> สาม </td>" & vbcrlf
ปฏิทิน = ปฏิทิน & "<td> สี่ </td>" & vbcrlf
ปฏิทิน = ปฏิทิน & "<td> ห้า </td>" & vbcrlf
ปฏิทิน = ปฏิทิน & "<td> หก </td>" & vbcrlf
ปฏิทิน = ปฏิทิน & "</tr>" & vbcrlf
ปฏิทิน = ปฏิทิน & vbcrlf & "<tr bgcolor =#ffffff>" & vbcrlf
'เพิ่มช่องว่างด้านหน้า
Nowmonthfirstiweekday = วันธรรมดา (Nowyear & "-" & nowmonth & "-1")-2 'ในวันแรกของเดือนนี้
สำหรับ i = 0 ถึง nowmonthfirstiweekday
ปฏิทิน = ปฏิทิน & "<td bgcolor =#efefef> & nbsp; </td>" & vbcrlf
ต่อไป
'เริ่มลงวันที่
t = 1
สำหรับ i = 1 ถึงวันเดือน
ถ้าปี (ตอนนี้) = ปี (Nowyear & "-" & Newmonth & "-" & i) และวัน (ตอนนี้) = วัน (Nowear & "-" & NowMonth & "-" & i)
ปฏิทิน = ปฏิทิน & "<td bgcolor =#cccccc> <a href = '' '>" & i & "</a> </td>"
อื่น
ปฏิทิน = ปฏิทิน & "<td> & i &" </td> "& vbcrlf
สิ้นสุดถ้า
ถ้าวันธรรมดา (Nowyear & "-" & nowmonth & "-" & i) = 7 แล้ว
t = t+1
ปฏิทิน = ปฏิทิน & "</tr> <tr bgcolor =#ffffff>" & vbcrlf
สิ้นสุดถ้า
ต่อไป
สำหรับ i = 1 ถึง (7*t- (nowmonthfirstiweekday+1+วันจันทร์)))
ปฏิทิน = ปฏิทิน & "<tdbgcolor =#ffffff> </td>" & vbcrlf
ต่อไป
ปฏิทิน = ปฏิทิน & vbcrlf & "</tr>"
ปฏิทิน = ปฏิทิน & "</table>" & vbcrip
Response.write ปฏิทิน
-