纯asp打造的日历程序,可自行美化,这里仅提供最简单的css样式。。。
<style>
Body {font-size: 12px; margin: 20px 0 0 20px; padding: 0}
TR, TD {text-align: center;}
</style>
<%
'============================
'Explanation: Calendar File
'============================
'Take out the corresponding year and month blog log data
'======================
Ryear = cint (request.querystring ("year")
rmonth = cint (request.querystring ("Month")
if Ryear = 0R Ryear = NULL then Ryear = year (now)
if rmonth = 0 or rmonth = null then rmonth = month (now)
Nowtime = Ryear & "-" & rmonth & "-1" '' to get the first day of this month
Nowyear = year (nowtime) '
NowMONTH = MONTH (nowtime) 'month
Nowweekday = Weekday (Nowtime) -1 '
'Get the number of February days
Febdays = 28
if Nowyear / 4 = 0 theon Febdays = 29
'Get the number of days this month
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 & "'> & LT; </a> & nbsp;"
Willshowmonthmonth = Nowmonth
if willshowmonthmonth -1 <= 0 thatn willshowmonthmonth = 2
Calendar = Calendar & "<A href = 'Calendar.asp? Year =" & NOWYEAR & "& Month =" & WillShowMonthMonth -1 & LT; </a> & nbsp;
if willshowmonthmonth + 1> 12 thatn willshowmonthmonth = 11
Calendar = Calendar & "<A href = 'Calendar.asp? Year =" & NOWYEAR & "& Month =" & Willshowmonth + 1 & GT; </a> & nbsp;
Calendar = Calendar & "<A href = 'Calendar.asp? Year =" & NOWYEAR + 1 & Month = "& Nowmonth &"'> & GT; </a> & nbsp; "
Calendar = Calendar & "<TABLE BGCOLOR =#000000 Cellspacing = 1 Width = 200> <TR BGCOLOR =#FFFFFF> <TD COLSPAN = 7>" now) & "</td> </tr> "& vbcrf
Calendar = Calendar & "<TR BGCOLOR =#FFFFFF>" & VBCRLF
Calendar = Calendar & "<TD> Day </td>" & VBCRLF
Calendar = Calendar & "<TD> One </td>" & vbcrip
Calendar = Calendar & "<TD> Two </td>" & VBCRLF
Calendar = Calendar & "<TD> Three </td>" & VBCRLF
Calendar = Calendar & "<TD> Four </td>" & VBCRLF
Calendar = Calendar & "<TD> Five </td>" & VBCRLF
Calendar = Calendar & "<TD> Six </td>" & VBCRLF
Calendar = Calendar & "</tr>" & VBCRLF
Calendar = Calendar & VBCRLF & "<TR BGCOLOR =#FFFFFF>" & VBCRLF
'Add the blank in front
Nowmonthfirstiweekday = Weekday (Nowyear & "-" & NOWMONTH & "-1")-2 'On the first day of the month this month
for i = 0 to nowmonthfirstiweekday
Calendar = Calendar & "<td BGCOLOR =#EFEFEF> & Nbsp; </td>" & VBCRLF
next
'Start the dated
t = 1
for i = 1 to MonthDays
if years (now) = year (nowyear & "-" & newMonth & "-" & i) and day (now) = day (nowear & "-" & nowmonth & "-" & i) then 'highlight shows today
Calendar = Calendar & "<TD BGCOLOR =#CCCCCC> <A href = '' '>" & i & "</a> </td>"
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>" & vbcrip
Response.write Calendar
%>