纯asp打造的日历程序，可自行美化，这里仅提供最简单的css样式。。。
<style>
Corpo {font-size: 12px;
Tr, td {text-align: Center;}
</style>
<%
'=============================
'Explicação: arquivo de calendário
'=============================
'Retire os dados de log do blog do ano e mês correspondentes
'=======================
Ryear = cint (request.QueryString ("ano")
rmonth = cint (request.QueryString ("mês")
Se RIear = 0r ryear = nulo, então riear = ano (agora)
Se rMONTH = 0 ou rMONTH = nulo, então rmOnth = mês (agora)
NowTime = Ryear & "-" & Rmonth & "-1" '' para obter o primeiro dia deste mês
NowYear = ano (NowTime) '
Nowmonth = mês (nowtime) 'mês
Atualmente, dia de semana = dia da semana (nowtime) -1 '
'Obtenha o número de dias de fevereiro
Fevereiro = 28
Se agora ano / 4 = 0 de fevereiro = 29
'Obtenha o número de dias deste mês
Se agora ainda) = 1 então
Dados do mês = 31
elseif nowmonth = 2 então
Dados do mês = fevereiro
elseif nowmonth = 3 então
Dados do mês = 31
elseif nowmonth = 4 então
Dados do mês = 30
elseif nowmonth = 5 então
Dados do mês = 31
elseif nowmonth = 6 então
Dados do mês = 30
elseif nowmonth = 7 então
Dados do mês = 31
elseif nowmonth = 8 então
Dados do mês = 31
elseif nowmonth = 9 então
Dados do mês = 30
elseif nowmonth = 10 então
Dados do mês = 31
elseif nowmonth = 11 então
Dados do mês = 30
outro
Dados do mês = 31
final se
Calendário = "<a href = 'calendar.asp? Ano =" & NowYear - 1 & "Month =" & Nowmonth & "'> & lt; </a> & nbsp;"
WillshowMonthmonth = agoraMonth
Se WillshowMonthmonth -1 <= 0, que não será visto
Calendário = calendário & "<a href = 'calendar.asp? Ano =" & agorayear & "e mês" & willshowmonthmonth -1 & lt;
Se WillshowMonthmonth + 1> 12, isso não será o Monthmonth = 11
Calendário = calendário & "<a href = 'calendar.asp? Ano =" & agorayear & "e mês =" & willshowmonth + 1 & gt;
Calendário = calendário & "<a href = 'calendar.asp? Ano =" & agorayear + 1 & mês = "& agora
Calendário = calendário & "<tabela bgcolor =#000000 cellspacing = 1 width = 200> <tr bgcolor =#ffffff> <td colspan = 7>" agora) & "</td> </tr>" & vbcrf
Calendário = calendário & "<tr bgcolor =#fffffff>" & vbcrlf
Calendário = calendário e "<td> dia </td>" & vbcrlf
Calendário = calendário & "<td> um </td>" & vbcript
Calendário = calendário & "<td> dois </td>" & vbcrlf
Calendário = calendário & "<td> três </td>" & vbcrlf
Calendário = calendário e "<td> quatro </td>" & vbcrlf
Calendário = calendário & "<td> cinco </td>" & vbcrlf
Calendário = calendário & "<td> seis </td>" & vbcrlf
Calendário = calendário & "</tr>" & vbcrlf
Calendário = calendário e vbcrlf & "<tr bgcolor =#ffffff>" & vbcrlf
'Adicione o espaço em branco na frente
NowmonthfirstiWeekday = Weekday (NowYear & "-" & NowMonth & "-1")-2 'no primeiro dia do mês deste mês
para i = 0 a agoraMonthfirstiWeekday
Calendário = calendário & "<td bgcolor =#efefef> & nbsp; </td>" & vbcrlf
próximo
'Comece o datado
t = 1
para i = 1 a um mês
Se anos (agora) = ano (NowYear & "-" & Newmonth & "-" & i) e dia (agora) = dia (Nowear & "-" & nowmonth & "-" & i), então 'o destaque mostra hoje
Calendário = calendário & "<td bgcolor =#cccccc> <a href = '' ''" & i & "</a> </td>"
outro
Calendário = calendário & "<td> & i &" </td> "& vbcrlf
final se
Se o dia da semana (NowYear & "-" & Nowmonth & "-" e i) = 7 então
t = t+1
Calendário = calendário & "</tr> <tr bgcolor =#ffffff>" & vbcrlf
final se
próximo
Para i = 1 a (7*t
Calendário = calendário & "<tdbgcolor =#ffffff> </td>" & vbcrlf
próximo
Calendário = calendário e vbcrlf & "</tr>"
Calendário = calendário & "</ table>" & vbcript
Calendário da resposta.Write
%>