asp制作的日历程序

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

<%

'=================================

'说明：日历文件

'=================================

'取出对应的年月博客日志数据

'=======================

Ryear = CInt(request.querystring("year"))

Rmonth = CInt(request.querystring("month"))

If Ryear = 0 Or 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 = " &lt;&lt;&nbsp;"

willshowmonthmonth = nowmonth

If willshowmonthmonth - 1 <= 0 Then willshowmonthmonth = 2

calendar = calendar & " &lt;&nbsp;"

If willshowmonthmonth + 1 > 12 Then willshowmonthmonth = 11

calendar = calendar & " &gt;&nbsp;"

calendar = calendar & " &gt;&gt;&nbsp;"

calendar = calendar & "

"&VBCRLF

calendar = calendar & " "&VBCRLF

calendar = calendar & "

"&nowyear&"-"&nowmonth&"-"&day(now)&"

日&

更多信息请查看IT技术专栏