纯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 = " << "
willshowmonthmonth = nowmonth
If willshowmonthmonth - 1 <= 0 Then willshowmonthmonth = 2
calendar = calendar & " < "
If willshowmonthmonth + 1 > 12 Then willshowmonthmonth = 11
calendar = calendar & " > "
calendar = calendar & " >> "
calendar = calendar & "
"&VBCRLF
calendar = calendar & " "&VBCRLF
calendar = calendar & "
"&nowyear&"-"&nowmonth&"-"&day(now)&"
日&
中国足彩网信息请查看IT技术专栏
2025国考·省考课程试听报名