asp制作的日历程序

纯ASP打造的日历程序可自行美化这里仅提供最简单的CSS样式

<style>
body{fontsize:px; margin:px px; padding:}
trtd{textalign:center;}
</style>
<%
=================================
说明日历文件
=================================
取出对应的年月博客日志数据
=======================
Ryear = CInt(requestquerystring("year"))
Rmonth = CInt(requestquerystring("month"))
If Ryear = Or Ryear = NULL Then Ryear = year(now)
If Rmonth = Or Rmonth = NULL Then Rmonth = month(now)
nowtime = Ryear&""&Rmonth&"" 得到本月第一天
nowyear = year(nowtime) 年份
nowmonth = month(nowtime) 月份
nowweekday = weekday(nowtime) 当前礼拜
获取月天数
febdays =
If nowyear / = Then febdays =
获取本月天数
If nowmonth = then
monthdays =
ElseIf nowmonth = Then
monthdays = febdays
ElseIf nowmonth = Then
monthdays =
ElseIf nowmonth = Then
monthdays =
ElseIf nowmonth = Then
monthdays =
ElseIf nowmonth = Then
monthdays =
ElseIf nowmonth = Then
monthdays =
ElseIf nowmonth = Then
monthdays =
ElseIf nowmonth = Then
monthdays =
ElseIf nowmonth = Then
monthdays =
ElseIf nowmonth = Then
monthdays =
Else
monthdays =
End If
calendar = "<a calendarasp?year="&nowyear &"&month="&nowmonth&"> &lt;&lt;</a>&nbsp;"
willshowmonthmonth = nowmonth
If willshowmonthmonth <= Then willshowmonthmonth =
calendar = calendar & "<a calendarasp?year="&nowyear&"&month="&willshowmonthmonth &"> &lt;</a>&nbsp;"
If willshowmonthmonth + > Then willshowmonthmonth =
calendar = calendar & "<a calendarasp?year="&nowyear&"&month="&willshowmonthmonth + &"> &gt;</a>&nbsp;"
calendar = calendar & "<a calendarasp?year="&nowyear + &"&month="&nowmonth&"> &gt;&gt;</a>&nbsp;"
calendar = calendar & "<table bgcolor=# cellspacing= width=><tr bgcolor=#ffffff><td colspan=>"&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&"") 本月第一天的星期
For i= To nowmonthfirstiweekday
calendar = calendar & "<td bgcolor=#efefef>&nbsp;</td>"&VBCRLF
Next
开始循环写日期
t=
For i= To monthdays
If year(now) = year(nowyear&""&nowmonth&""&i) and day(now) = day(nowyear&""&nowmonth&""&i) Then 高亮显示今日

calendar = calendar & "<td bgcolor=#cccccc><a >"&i&"</a></td>"&VBCRLF
Else
calendar = calendar & "<td>"&i&"</td>"&VBCRLF
End If

If weekday(nowyear&""&nowmonth&""&i) = Then
t=t+
calendar = calendar & "</tr><tr bgcolor=#ffffff>"&VBCRLF
End if
Next
For i= To (*t(nowmonthfirstiweekday++monthdays))
calendar = calendar & "<td bgcolor=#ffffff></td>"&VBCRLF
Next
calendar = calendar & VBCRLF&"</tr>"
calendar = calendar & "</table>"&VBCRLF
ResponseWrite calendar
%>