纯asp打造的日历程序，可自行美化，这里仅提供最简单的css样式。。。
<style>
Body {font-size: 12px;
Tr, td {text-align: center;}
</style>
<%
'===========================
'Объяснение: файл календаря
'===========================
'Выберите соответствующие данные журнала блога года и месяц
'=====================
Ryear = cint (request.querystring ("Год")
rmonth = cint (request.querystring ("месяц")
Если ryear = 0r ryear = null, то ryear = год (сейчас)
Если rmonth = 0 или rmonth = null, то rmonth = месяц (сейчас)
Nowtime = ryear & "-" & rmonth & "-1" '' ', чтобы получить первый день этого месяца
Nowyear = год (сейчас время) '
Nowmonth = месяц (в настоящее время) месяц
Nowweekday = Weekday (сейчас время) -1 '
'Получите количество февральских дней
Февраль = 28
Если nowyear / 4 = 0 Теоны февраля = 29
'Получите количество дней в этом месяце
Если nowmonth = 1, то тогда
Месячные дни = 31
elseif nowmonth = 2 тогда
Месячные дни = февраль
elseif nowmonth = 3 тогда
Месячные дни = 31
elseif nowmonth = 4 тогда
Месячные дни = 30
elseif nowmonth = 5 тогда
Месячные дни = 31
elseif nowmonth = 6 тогда
Месячные дни = 30
elseif nowmonth = 7 тогда
Месячные дни = 31
elseif nowmonth = 8 тогда
Месячные дни = 31
elseif nowmonth = 9 тогда
Месячные дни = 30
elseif nowmonth = 10 тогда
Месячные дни = 31
elseif nowmonth = 11 тогда
Месячные дни = 30
еще
Месячные дни = 31
конец, если
Calendar = "<a href = 'calendar.asp? Год =" & nowyear - 1 & "& month =" & nowmonth & "> & lt; </a> & nbsp;"
Willshowmonthmonth = nowmonth
Если willshowmonthmonth -1 <= 0, что WillShowmonthmonth = 2
Calendar = Calendar & "<a href = 'calendar.asp? Год =" & nowyear & "& month =" & willshowmonthmonth -1 & lt;
Если WillShowmonthmonth + 1> 12, что WillShowmonthmonth = 11
Calendar = Calendar & "<a href = 'calendar.asp? Год =" & nowyear & "& month =" & willshowmonth + 1 & gt;
Calendar = Calendar & "<a href = 'calendar.asp?
Calendar = Calendar & "<table bgcolor =#000000 cell -spacing = 1 width = 200> <tr bgcolor =#ffffff> <td colspan = 7>" сейчас) & "</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> пять </td>" & vbcrlf
Calendar = Calendar & "<td> Six </td>" & vbcrlf
Calendar = Calendar & "</tr>" & vbcrlf
Calendar = Calendar & vbcrlf & "<tr bgcolor =#ffffff>" & vbcrlf
'Добавить пробел впереди
Nowmonthfirstiweekday = Weekday (Nowyear & "-" & nowmonth & "-1")-2 'в первый день месяца в этом месяце
для i = 0 до nowmonthfirstiweekday
Calendar = Calendar & "<td bgcolor =#efeff> & nbsp; </td>" & vbcrlf
следующий
'Начните устаревшие
t = 1
для i = 1- месяца дни
Если годы (сейчас) = год (nowyear & "-" & newmonth & "-" & i) и day (now) = day (nowear & "-" & nowmonth & "-" & i), то «Основные шоу сегодня
Calendar = Calendar & "<td bgcolor =#cccccc> <a href = '' '>" & i & "</a> </td>"
еще
Calendar = Calendar & "<Td> & I &" </td> "& vbcrlf
конец, если
Если в будний день (nowyear & "-" & ownlymonth & "-" & i) = 7 тогда
t = t+1
Calendar = Calendar & "</tr> <tr bgcolor =#ffffff>" & vbcrlf
конец, если
следующий
Для i = 1 до (7*t- (nowmonthfirstiweekday+1+monthdays))
Calendar = Calendar & "<tdbgcolor =#ffffff> </td>" & vbcrlf
следующий
Calendar = Calendar & vbcrlf & "</tr>"
Calendar = Calendar & "</table>" & vbcrip
Response.write Calendar
%>