纯asp打造的日历程序，可自行美化，这里仅提供最简单的css样式。。。
<style>
body{font-size:12px; margin:20px 0 0 20px; padding:0}
tr,td{text-align:center;}
</style>
<%
'=================================
'說明：日曆文件
'=================================
'取出對應的年月博客日誌數據
'=======================
ryear = cint(request.querystring("year"))
rmonth = cint(request.querystring("month"))
if ryear = 0or ryear = null then ryear = year(now)
if rmonth = 0 or rmonth = null then rmonth = month(now)
nowtime = ryear&"-"&rmonth&"-1" '得到本月第一天
nowyear = year(nowtime) '年份
nowmonth = month(nowtime) '月份
nowweekday = weekday(nowtime) - 1 '當前禮拜
'獲取2月天數
febdays = 28
if nowyear / 4 = 0 then febdays = 29
'獲取本月天數
if nowmonth = 1 then
monthdays = 31
elseif nowmonth = 2 then
monthdays = febdays
elseif nowmonth = 3 then
monthdays = 31
elseif nowmonth = 4 then
monthdays = 30
elseif nowmonth = 5 then
monthdays = 31
elseif nowmonth = 6 then
monthdays = 30
elseif nowmonth = 7 then
monthdays = 31
elseif nowmonth = 8 then
monthdays = 31
elseif nowmonth = 9 then
monthdays = 30
elseif nowmonth = 10 then
monthdays = 31
elseif nowmonth = 11 then
monthdays = 30
else
monthdays = 31
end if
calendar ="<a href='calendar.asp?year="&nowyear - 1&"&month="&nowmonth&"'> <<</a> "
willshowmonthmonth = nowmonth
if willshowmonthmonth - 1 <= 0 then willshowmonthmonth = 2
calendar =calendar & "<a href='calendar.asp?year="&nowyear&"&month="&willshowmonthmonth - 1&"'> <</a> "
if willshowmonthmonth + 1 > 12 then 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 cellspacing=1 width=200><tr bgcolor=#ffffff><td colspan=7>"&nowyear&"-"&nowmonth&"-"&day(now)&"</td> </tr>"&vbcrlf
calendar =calendar & "<tr bgcolor=#ffffff>"&vbcrlf
calendar =calendar & "<td>日</td>"&vbcrlf
calendar =calendar & "<td>一</td>"&vbcrlf
calendar =calendar & "<td>二</td>"&vbcrlf
calendar =calendar & "<td>三</td>"&vbcrlf
calendar =calendar & "<td>四</td>"&vbcrlf
calendar =calendar & "<td>五</td>"&vbcrlf
calendar =calendar & "<td>六</td>"&vbcrlf
calendar =calendar & "</tr>"&vbcrlf
calendar =calendar &vbcrlf&"<tr bgcolor=#ffffff>"&vbcrlf
'把前面的空白補充出來
nowmonthfirstiweekday = weekday(nowyear&"-"&nowmonth&"-1") - 2 '本月第一天的星期
for i=0 to nowmonthfirstiweekday
calendar =calendar & "<td bgcolor=#efefef> </td>"&vbcrlf
next
'開始循環寫日期
t=1
for i=1 to monthdays
if year(now) = year(nowyear&"-"&nowmonth&"-"&i) and day(now) = day(nowyear&"-"&nowmonth&"-"&i) then '高亮顯示今日
calendar =calendar &"<td bgcolor=#cccccc><a href=''>"&i&"</a></td>"&vbcrlf
else
calendar =calendar &"<td>"&i&"</td>"&vbcrlf
end if
if weekday(nowyear&"-"&nowmonth&"-"&i) = 7 then
t=t+1
calendar =calendar &"</tr><tr bgcolor=#ffffff>"&vbcrlf
end if
next
for i=1 to (7*t-(nowmonthfirstiweekday+1+monthdays))
calendar =calendar &"<tdbgcolor=#ffffff></td>"&vbcrlf
next
calendar =calendar &vbcrlf&"</tr>"
calendar =calendar &"</table>"&vbcrlf
response.write calendar
%>