纯asp打造的日历程序,可自行美化,这里仅提供最简单的css样式。。。
<style>
Body {font-size: 12px;
Tr, td {text-align: center;}
</tyle>
<%
'=============================
'Penjelasan: File Kalender
'=============================
'Keluarkan data log blog tahun dan bulan yang sesuai
'=======================
Ryear = cint (request.querystring ("tahun")
rmonth = cint (request.querystring ("bulan")
jika ryear = 0r ryear = null maka ryear = tahun (sekarang)
Jika rmonth = 0 atau rmonth = null maka rmonth = bulan (sekarang)
Sekarang waktu = ryear & "-" & rmonth & "-1" '' untuk mendapatkan hari pertama bulan ini
Nowyear = tahun (sekarang waktu) '
Nowmonth = bulan (sekarang waktu) 'Bulan
NowWeekDay = Weekday (Nowtime) -1 '
'Dapatkan jumlah hari Februari
Febdays = 28
Jika sekarangyear / 4 = 0 Theon Febdays = 29
'Dapatkan jumlah hari ini
Jika sekarang MOTONTH = 1 maka
Bulan Bulan = 31
elseif nowmonth = 2 kemudian
Bulan Bulan = Februari
elseif nowmonth = 3 lalu
Bulan Bulan = 31
elseif nowmonth = 4 kemudian
Bulan Bulan = 30
elseif nowmonth = 5 lalu
Bulan Bulan = 31
elseif nowmonth = 6 lalu
Bulan Bulan = 30
elseif nowmonth = 7 kemudian
Bulan Bulan = 31
elseif nowmonth = 8 lalu
Bulan Bulan = 31
elseif nowmonth = 9 lalu
Bulan Bulan = 30
elseif nowmonth = 10 lalu
Bulan Bulan = 31
elseif nowmonth = 11 lalu
Bulan Bulan = 30
kalau tidak
Bulan Bulan = 31
akhiri jika
Calendar = "<a href = 'calendar.asp? Year =" & nowyear - 1 & "& month =" & nowmonth & "'> & lt; </a> & nbsp;"
Willshowmonthmonth = Nowmonth
Jika Willshowmonthmonth -1 <= 0 itu Willshowmonthmonth = 2
Kalender = Kalender & "<a href = 'calendar.asp? Year =" & nowyear & "& month =" & willshowmonthmonth -1 & lt;
Jika willshowmonthmonth + 1> 12 itu Willshowmonthmonth = 11
Kalender = Kalender & "<a href = 'calendar.asp? Year =" & nowyear & "& month =" & willshowmonth + 1 & gt;
Kalender = Kalender & "<a href = 'calendar.asp? Tahun =" & nowyear + 1 & bulan = "& nowmonth &"'> & gt;
Kalender = Kalender & "<Table Bgcolor =#000000 CellSpacing = 1 Lebar = 200> <tr bgcolor =#ffffff> <td colspan = 7>" sekarang) & "</td> </tr>" & vbcrf
Kalender = Kalender & "<tr bgcolor =#ffffff>" & vbcrlf
Kalender = Kalender & "<td> hari </td>" & vbcrlf
Kalender = Kalender & "<td> satu </td>" & vbcrip
Kalender = Kalender & "<td> dua </td>" & vbcrlf
Kalender = Kalender & "<td> tiga </td>" & vbcrlf
Kalender = Kalender & "<td> empat </td>" & vbcrlf
Kalender = Kalender & "<td> lima </td>" & vbcrlf
Kalender = Kalender & "<td> enam </td>" & vbcrlf
Kalender = Kalender & "</tr>" & vbcrlf
Kalender = Kalender & Vbcrlf & "<tr bgcolor =#ffffff>" & vbcrlf
'Tambahkan kosong di depan
Nowmonthfirstiweekday = Weekday (Nowyear & "-" & Nowmonth & "-1")-2 'pada hari pertama bulan ini
untuk i = 0 hingga sekarang
Kalender = Kalender & "<td bgcolor =#efefef> & nbsp; </td>" & vbcrlf
Berikutnya
'Mulailah tanggal
t = 1
untuk i = 1 hingga bulan bulan
Jika bertahun-tahun (sekarang) = tahun (Nowyear & "-" & Newmonth & "-" & i) dan Day (Now) = Day (Nowear & "-" & Nowmonth & "-" & i) Lalu 'Sorotan acara hari ini
Kalender = Kalender & "<td bgcolor =#cccccc> <a href = '' '>" & i & "</a> </td>"
kalau tidak
Kalender = Kalender & "<td> & i &" </td> "& vbcrlf
akhiri jika
Jika hari kerja (Nowyear & "-" & Nowmonth & "-" & i) = 7 Lalu
t = t+1
Kalender = Kalender & "</tr> <tr bgcolor =#ffffff>" & vbcrlf
akhiri jika
Berikutnya
Untuk i = 1 hingga (7*t- (Nowmonthfirstiweekday+1+bulan bulan))
Kalender = Kalender & "<tdbgcolor =#ffffff> </td>" & vbcrlf
Berikutnya
Kalender = Kalender & Vbcrlf & "</tr>"
Kalender = Kalender & "</able>" & vbcrip
Response.write Calendar
%>