纯asp打造的日历程序，可自行美化，这里仅提供最简单的css样式。。。
<style>
Cuerpo {Font-Size: 12px;
TR, TD {Text-Align: Center;}
</style>
<%
'=============================
'Explicación: archivo calendario
'=============================
'Tome los datos de registro de blog de año y mes correspondientes
'=======================
Ryear = cint (request.querystring ("año")
RMONTH = Cint (request.querystring ("mes")
Si ryear = 0r ryear = null entonces ryear = año (ahora)
si rmonth = 0 o rmonth = null entonces rmonth = mes (ahora)
Nowtime = ryear & "-" & rmonth & "-1" '' para obtener el primer día de este mes
Nowyear = año (ahora tiempo) '
Nowmonth = mes (ahora tiempo) 'mes
Nowweekday = Weekday (ahora tiempo) -1 '
'Obtenga el número de días de febrero
FeBdays = 28
Si de ahora / 4 = 0 theon FeBdays = 29
'Obtenga la cantidad de días este mes
Si ahora Month = 1 entonces
Días mensuales = 31
elseif nowmonth = 2 entonces
Día de los mensajes = FeBdays
elseif nowmonth = 3 entonces
Días mensuales = 31
elseif nowmonth = 4 entonces
Días mensuales = 30
elseif nowmonth = 5 entonces
Días mensuales = 31
elseif nowmonth = 6 entonces
Días mensuales = 30
elseif nowmonth = 7 entonces
Días mensuales = 31
elseif nowmonth = 8 entonces
Días mensuales = 31
elseif nowmonth = 9 entonces
Días mensuales = 30
elseif nowmonth = 10 entonces
Días mensuales = 31
elseif nowmonth = 11 entonces
Días mensuales = 30
demás
Días mensuales = 31
final si
Calendar = "<a href = 'calendar.asp? Year =" & Nowear - 1 & "& mes =" & Nowmonth & "'> & lt; </a> & nbsp;"
Willshowmonthmonth = ahora Month
Si WillshowMonthmonth -1 <= 0 thatn Willshowmonthmonth
Calendario = calendario & "<a href = 'calendar.asp? Year =" & Nowear & "& mes =" & Willshowmonthmonth -1 & lt;
Si Willshowmonthmonth + 1> 12 thatn Willshowmonthmonth = 11
Calendario = calendario & "<a href = 'calendar.asp? Year =" & Nowear & "& mes =" & Willshowmonth + 1 & gt;
Calendario = calendario & "<a href = 'calendario.asp?
Calendario = calendario & "<table bgcolor =#000000 cellspacing = 1 width = 200> <tr bgcolor =#fffffff> <td colspan = 7>" ahora) & "</td> </tr>" & vbcrf
Calendario = calendario & "<tr bgcolor =#ffffff>" & vbcrlf
Calendario = calendario y "<td> día </td>" y vbcrlf
Calendario = calendario y "<td> one </td>" & vbcrip
Calendario = calendario y "<td> two </td>" & vbcrlf
Calendario = calendario y "<td> tres </td>" y vbcrlf
Calendario = calendario y "<td> cuatro </td>" y vbcrlf
Calendario = calendario y "<td> cinco </td>" y vbcrlf
Calendario = calendario y "<td> Six </td>" y vbcrlf
Calendario = calendario & "</tr>" y vbcrlf
Calendario = calendario & vbcrlf & "<tr bgcolor =#ffffff>" & vbcrlf
'Agregue el blanco en el frente
Nowmonthfirstiweekday = Weekday (Nowyear & "-" & Nowmonth & "-1")-2 'el primer día del mes de este mes
para i = 0 a Nowmonthfirstiweekday
Calendario = calendario & "<td bgcolor =#efefef> & nbsp; </td>" & vbcrlf
próximo
'Comience la fecha
t = 1
para i = 1 a los días mensuales
si años (ahora) = año (nowyear & "-" & newmonth & "-" & i) y día (ahora) = day (nowear & "-" & Nowmonth & "-" & i) entonces 'shows hoy
Calendar = calendar & "<td bgcolor =#cccccc> <a href = '' ''>" & i & "</a> </td>"
demás
Calendario = calendario y "<td> & i &" </td> "& vbcrlf
final si
Si entre semana (nowyear & "-" & nowmonth & "-" & i) = 7 entonces
t = t+1
Calendario = calendario & "</tr> <tr bgcolor =#ffffff>" & vbcrlf
final si
próximo
Para i = 1 a (7*T- (ahora Monthfirstiweekday+1+mes de mes)))
Calendario = calendario & "<tdbgcolor =#ffffff> </td>" & vbcrlf
próximo
Calendario = calendario y vbcrlf & "</tr>"
Calendario = calendario y "</table>" y vbcrip
Respuesta. Escribe calendario
%>