纯asp打造的日历程序，可自行美化，这里仅提供最简单的css样式。。。
<style>
Body {Schriftgröße: 12px;
Tr, td {text-align: center;}
</style>
<%
'================================
'Erläuterung: Kalenderdatei
'================================
»Nehmen Sie die entsprechenden Blog- und Monat -Blog -Protokolldaten aus
'=======================
Ryear = cint (Request.queryString ("Jahr")
RMonth = Cint (Request.queryString ("Monat")
Wenn ryear = 0r ryear = null ist, dann ryear = Jahr (jetzt)
Wenn rmonth = 0 oder rmonth = null ist, dann rmonth = Monat (jetzt)
Now time = ryear & "-" & rmonth & "-1" '', um den ersten Tag dieses Monats zu bekommen
Nowyear = Jahr (jetzt) '
Jetztmonth = Monat (jetzt) 'Monat
NOWEEK Day = Wochentag (jetzt) -1 '
'Holen Sie sich die Anzahl der Tage im Februar
Feb Tags = 28
Wenn jetzt nowyear / 4 = 0 Theon Febdays = 29
'Holen Sie sich die Anzahl der Tage in diesem Monat
wenn nowmonth = 1 dann
Monat Tage = 31
elseif nowmonth = 2 dann
Monat Tage = Febetz Tage
elseif nowmonth = 3 dann
Monat Tage = 31
elseif nowmonth = 4 dann
Monat Tage = 30
elseif nowmonth = 5 dann
Monat Tage = 31
elseif nowmonth = 6 dann
Monat Tage = 30
elseif nowmonth = 7 dann
Monat Tage = 31
elseif nowmonth = 8 dann
Monat Tage = 31
elseif nowmonth = 9 dann
Monat Tage = 30
elseif nowmonth = 10 dann
Monat Tage = 31
elseif nowmonth = 11 dann
Monat Tage = 30
anders
Monat Tage = 31
Ende wenn
Calendar = "<a href = 'Calendar.asp? Year =" & nowyear - 1 & "& monat =" & nowmonth & "'> & lt; </a> & nbsp;"
Willshowmonthmonth = Nowmonth
Wenn Willshowmonthmonth -1 <= 0 ist, wird Willshowmonthmonth = 2
Calendar = calendar & "<a href = 'Calendar.asp? Year =" & nowyear & "& monat =" & Willshowmonthonth -1 & lt; </a> & nbsp;
Wenn Willshowmonthmonth + 1> 12 wird, wird Willshowmonthmonth = 11
Calendar = Calendar & "<a href = 'calendar.asp? Year =" & nowyear & "& monat =" & Willshowmonth + 1 & gt; </a> & nbsp;
CALENDAR = CALENDAR & "<A HREF = 'CALENDAR.asp? Year =" & nowyear + 1 & monat = "& nowmonth &"'> & gt;
Calendar = Calendar & "<Tabelle bgcolor =#000000 Cellspacing = 1 Breite = 200> <tr bgcolor =#ffffff> <td colspan = 7>" jetzt) & "</td> </tr>" & vbcrf
Calendar = Kalender & "<tr bgcolor =#ffffff>" & vbcrlf
Kalender = Kalender & "<Td> Tag </td>" & vbcrlf
Calendar = Kalender & "<Td> Ein </td>" & vbcrip
Kalender = Kalender & "<Td> zwei </td>" & vbcrlf
Kalender = Kalender & "<Td> drei </td>" & vbcrlf
Kalender = Kalender & "<Td> Four </td>" & vbcrlf
Kalender = Kalender & "<Td> Five </td>" & vbcrlf
Kalender = Kalender & "<Td> Six </td>" & vbcrlf
Kalender = Kalender & "</tr>" & vbcrlf
Calendar = Kalender & VBCRLF & "<tr bgcolor =#ffffff>" & vbcrlf
'Fügen Sie den Blank vorne hinzu
NowmonthfirstiWeekday = Wochentag (Nowyear & "-" & Nowmonth & "-1")-2 'am ersten Tag des Monats in diesem Monat
für i = 0 bis nowmonthfirstiWeekday
Calendar = Calendar & "<td bgcolor =#efefef> & nbsp; </td>" & vbcrlf
nächste
'Beginnen Sie mit dem datierten
t = 1
für i = 1 bis monatentage
Wenn Jahre (jetzt) = Jahr (Nowyear & "-" & Newmonth & "-" & i) und Day (jetzt) = Tag (Nowear & "-" & Nowmonth & "-" & i), dann zeigt 'Highlight heute Shows Heute Shows
Calendar = calendar & "<td bgcolor =#cccccc> <a href = '' '>" & i & "</a> </td>"
anders
Calendar = Kalender & "<Td> & i &" </td> "& vbcrlf
Ende wenn
Wenn Wochentag (Nowyear & "-" & Nowmonth & "-" & i) = 7 Dann
t = t+1
Calendar = Kalender & "</tr> <tr bgcolor =#ffffff>" & vbcrlf
Ende wenn
nächste
Für i = 1 bis (7*T- (NOWMONTHFIRSTIWEEPTAGETAGE+1+MONATAGETAGE))
Calendar = Calendar & "<tdbgcolor =#ffffff> </td>" & vbcrlf
nächste
CALENDAR = CALENDAR & VBCRLF & "</Tr>"
Calendar = Kalender & "</table>" & vbcrip
Antwort.Write -Kalender
%>