< %@LANGUAGE="VBSCRIPT " CODEPAGE="65001"%>
<%
respon.charset = "UTF-8"
sesi.halaman kode = 65001
sesi.batas waktu = 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 ">
<kepala>
<meta http-equiv="Jenis Konten" content="teks/html; charset=utf-8" />
<meta http-equiv="Isi-Bahasa" content="zh-CN" />
<title>纯ASP日历</title>
<gaya>
badan{ukuran font:12px; margin:20 piksel 0 0 20 piksel; bantalan:0}
tr,td{perataan teks:tengah;}
</gaya>
</kepala>
<tubuh>
<%
' ===
'说明：日历文件
' ===
'取出对应的年月日数据
'========
Ryear = CInt(request.querystring("tahun"))
Rbulan = CInt(permintaan.querystring("bulan"))
Jika Ryear = 0 atau Ryear = NULL Maka Ryear = tahun(sekarang)
Jika Rbulan = 0 atau Rbulan = NULL Maka Rbulan = bulan(sekarang)
sekarang waktu = Tahun&"-"&Rbulan&"-1" '得到本月第一天
sekarangtahun = tahun(waktu sekarang) '年份
sekarangbulan = bulan(saat ini) '月份
sekaranghari kerja = hari kerja(waktu sekarang) - 1 '当前礼拜
'获取2月天数
hari Februari = 28
Jika sekarangtahun / 4 = 0 Maka hari Februari = 29
'获取本月天数
Jika sekarangbulan = 1 maka
hari bulan = 31
ElseIf sekarangbulan = 2 Lalu
hari bulan = hari Februari
ElseIf sekarangbulan = 3 Lalu
hari bulan = 31
ElseIf sekarangbulan = 4 Lalu
hari bulan = 30
ElseIf sekarangbulan = 5 Lalu
hari bulan = 31
ElseIf sekarangbulan = 6 Lalu
hari bulan = 30
ElseIf sekarangbulan = 7 Lalu
hari bulan = 31
ElseIf sekarangbulan = 8 Lalu
hari bulan = 31
ElseIf sekarangbulan = 9 Lalu
hari bulan = 30
ElseIf sekarangbulan = 10 Lalu
hari bulan = 31
ElseIf sekarangbulan = 11 Lalu
hari bulan = 30
Kalau tidak
hari bulan = 31
Akhiri Jika
kalender = "<a href='calendar.asp?year="&sekarangtahun - 1&"&bulan="&sekarangbulan&"'> <<</a> "
willshowmonthmonth = sekarangbulan
Jika akan tampilkan bulan bulan - 1 <= 0 Maka akan tampilkan bulan bulan = 2
kalender = kalender & "<a href='calendar.asp?year="&nowyear&"&month="&willshowmonthmonth - 1&"'> <</a> "
Jika akan tampilkan bulan bulan + 1 > 12 Maka akan tampilkan bulan bulan = 11
kalender = kalender & "<a href='calendar.asp?year="&nowyear&"&month="&willshowmonthmonth + 1&"''> ></a> "
kalender = kalender & "<a href='calendar.asp?year="&nowyear + 1&"&month="&nowmonth&"'> >></a> "
kalender = kalender & "<tabel bgcolor=#000000 spasi sel=1 lebar=200><tr bgcolor=#ffffff><td colspan=7>"&tahun sekarang&"-"&bulan sekarang&"-"&hari(sekarang)&"</td> </tr>"&VBCRLF
kalender = kalender & " <tr bgcolor=#ffffff>"&VBCRLF
kalender = kalender & "<td>日</td>"&VBCRLF
kalender = kalender & "<td>一</td>"&VBCRLF
kalender = kalender & "<td>二</td>"&VBCRLF
kalender = kalender & "<td>三</td>"&VBCRLF
kalender = kalender & "<td>四</td>"&VBCRLF
kalender = kalender & "<td>五</td>"&VBCRLF
kalender = kalender & "<td>六</td>"&VBCRLF
kalender = kalender & "</tr>"&VBCRLF
kalender = kalender & VBCRLF&"<tr bgcolor=#ffffff>"&VBCRLF
'http://www.knowsky.com/ 把前面的空白补充出来
sekarangbulanpertamahariminggu = hari kerja(sekarangtahun&"-"&sekarangbulan&"-1") - 2 '本月第一天的星期
Untuk i=0 Sampai saat inibulan pertamaihari kerja
kalender = kalender & "<td bgcolor=#efefef> </td>"&VBCRLF
Berikutnya
'开始循环写日期
t=1
Untuk i=1 Sampai hari bulan
Jika tahun(sekarang) = tahun(tahun sekarang&"-"&bulan sekarang&"-"&i) dan hari(sekarang) = hari(tahun sekarang&"-"&bulan sekarang&"-"&i) Maka '高亮显示今日
kalender = kalender & "<td bgcolor =#cccccc><a href=''>"&i&"</a></td>"&VBCRLF
Kalau tidak
kalender = kalender & "<td>"&i&"</td>"&VBCRLF
Akhir Jika
Jika hari kerja(sekarangtahun&"-"&sekarangbulan&"-"&i) = 7 Lalu
t=t+1
kalender = kalender & "</tr><tr bgcolor=#ffffff>"&VBCRLF
Berakhir jika
Berikutnya
Untuk i=1 Sampai (7*t-(sekarangbulan pertamaihari kerja+1+hari bulan))
kalender = kalender & "<td bgcolor=#ffffff></td>"&VBCRLF
Berikutnya
kalender = kalender & VBCRLF&"</tr>"
kalender = kalender & "</table>"&VBCRLF
Respon. Tulis kalender
%>
</tubuh>
</html>