纯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 = شهر (Now Time) '' الشهر
Now Weekday = Weekday (Now Time) -1 '
احصل على عدد أيام فبراير
فبراير = 28
إذا nowyear / 4 = 0 Theon Febday = 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؟ year =" & nowyear - 1 & "& month =" & nowmonth & "'> & lt ؛ </a> & nbsp ؛"
WillShowMonthMonth = Nowmonth
إذا WillShowMonthMonth -1 <= 0 thatn WillShowMonthMonth = 2
Calendar = Calendar & "<a href = 'calendar.asp؟ year =" & nowyear & "& month =" & willshowmonthth -1 & lt ؛
إذا كان WillShowMonthMonth + 1> 12 thatn WillShowMonthMonth = 11
Calendar = Calendar & "<a href = 'calendar.asp؟ year =" & nowyear & "& month =" & willshowmonth + 1 & gt ؛
Calendar = Calendar & "<a href = 'calendar.asp؟
Calendar = Calendar & "<table bgcolor =#000000 cellspacing = 1 width = 200> <tr bgcolor =#ffffff> <td colspan = 7>" الآن) و "</td> </r>" & vbcrf
Calendar = Calendar & "<tr bgcolor =#ffffff>" & vbcrlf
Calendar = Calendar & "<td> Day </td>" & vbcrlf
Calendar = Calendar & "<td> One </td>" & vbcrip
Calendar = Calendar & "<td> اثنان </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 & "</r>" & vbcrlf
Calendar = Calendar & VBCRLF & "<tr bgcolor =#ffffff>" & vbcrlf
أضف الفراغ في المقدمة
nowmonthfirstiweekday = weekday (Nowyear & "-" & Nowmonth & "-1")-2 'في اليوم الأول من الشهر هذا الشهر
لأني = 0 إلى يوم nowmonthfirstiweekday
Calendar = Calendar & "<td bgcolor =#efefef> & nbsp ؛ </td>" & vbcrlf
التالي
ابدأ مؤرخة
ر = 1
لأني = 1 إلى شهر
إذا كانت السنوات (الآن) = السنة (Nowyear & "-" & NewMonth & "-" & i) و Day (الآن) = Day (noear & "-" & nowmonth & "-" & i) ثم "عرض أبرز اليوم
Calendar = Calendar & "<td bgcolor =#cccccc> <a href = '' ''>" & i & "</a> </td>"
آخر
Calendar = Calendar & "<td> & i &" </td> "& vbcrlf
إنهاء إذا
إذا كان يوم الأسبوع (Nowyear & "-" & Nowmonth & "-" & i) = 7 ثم
t = t+1
Calendar = Calendar & "</r> <tr bgcolor =#ffffff>" & vbcrlf
إنهاء إذا
التالي
لـ i = 1 to (7*t- (nowmonthfirstiweoveday+1+monthdays)))
Calendar = Calendar & "<tdbgColor =#ffffff> </td>" & vbcrlf
التالي
Calendar = Calendar & VBCRLF & "</r>"
التقويم = التقويم و "</table>" & vbcrip
استجابة. التقويم
٪>