< %@LANGUAGE="VBSCRIPT " CODEPAGE="65001"%>
<%
Response.charset = "UTF-8"
جلسة كود الصفحة = 65001
مهلة الجلسة = 1440
server.scripttimeout = 9999
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" " http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd ">
<html xmlns=" http://www.w3.org/1999/xhtml ">
<الرأس>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta http-equiv="Content-Language" content="zh-CN" />
<title>تطبيق ASP</title>
<نمط>
الجسم {حجم الخط: 12 بكسل؛ الهامش: 20 بكسل 0 0 20 بكسل؛ الحشو:0}
آر، تد {محاذاة النص: مركز؛}
</نمط>
</الرأس>
<الجسم>
<%
'===================================================================================
'说明:日历文件
'===================================================================================
'الحصول على أفضل النتائج
'========================
Ryear = CInt(request.querystring("year"))
Rmonth = CInt(request.querystring("الشهر"))
إذا كان Ryear = 0 أو Ryear = NULL ثم Ryear = year(now)
إذا كان Rmonth = 0 أو Rmonth = NULL ثم Rmonth = الشهر (الآن)
nowtime = Ryear&"-"&Rmonth&"-1" 'الوقت الحالي = Ryear&"-"&Rmonth&"-1" 'الوقت الحالي = Ryear&"-"&Rmonth&"-1" '
nowyear = year(nowtime) '年份
nowmonth = شهر(nowtime) '月份
nowweekday =weekday(nowtime) - 1 'الوقت الحالي
'2月天数
أيام فبراير = 28
إذا كانت السنة الحالية / 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
نهاية إذا
التقويم = "<a href='calendar.asp?year="&nowyear - 1&"&month="&nowmonth&"'> <<</a> "
willshowmonthmonth = nowmonth
إذا كان willshowmonthmonth - 1 <= 0، فإن willshowmonthmonth = 2
التقويم = التقويم & "<a href='calendar.asp?year="&nowyear&"&month="&willshowmonthmonth - 1&"'> <</a> "
إذا willshowmonthmonth + 1 > 12 فإن willshowmonthmonth = 11
التقويم = التقويم & "<a href='calendar.asp?year="&nowyear&"&month="&willshowmonth+ 1&"''> ></a> "
التقويم = التقويم & "<a href='calendar.asp?year="&nowyear + 1&"&month="&nowmonth&"'> >></a> "
التقويم = التقويم & "<table bgcolor=#000000 cellpacing=1 width=200><tr bgcolor=#ffffff><td colspan=7>"&nowyear&"-"&nowmonth&"-"&day(now)&"</td> </tr>"&VBCRLF
التقويم = التقويم & "<tr bgcolor=#ffffff>"&VBCRLF
التقويم = التقويم & "<td>日</td>"&VBCRLF
التقويم = التقويم & "<td>一</td>"&VBCRLF
التقويم = التقويم & "<td>二</td>"&VBCRLF
التقويم = التقويم & "<td>三</td>"&VBCRLF
التقويم = التقويم & "<td>四</td>"&VBCRLF
التقويم = التقويم & "<td>五</td>"&VBCRLF
التقويم = التقويم & "<td>六</td>"&VBCRLF
التقويم = التقويم & "</tr>"&VBCRLF
التقويم = التقويم & VBCRLF&"<tr bgcolor=#ffffff>"&VBCRLF
http://www.knowsky.com/ 把前面的空白补充出来
nowmonthfirstiweekday =weekday(nowyear&"-"&nowmonth&"-1") - 2 'الإجابة على الأسئلة
لـ i=0 إلى nowmonthfirstiweekday
التقويم = التقويم & "<td bgcolor=#efefef> </td>"&VBCRLF
التالي
'مرحبا بكم في المستقبل
ر = 1
لـ i=1 إلى أيام الشهر
إذا كان year(now) = year(nowyear&"-"&nowmonth&"-"&i) وday(now) = day(nowyear&"-"&nowmonth&"-"&i) ثم '高亮显示今日
calendar = تقويم & "<td bgcolor =#cccccc><a href=''>"&i&"</a></td>"&VBCRLF
آخر
التقويم = التقويم & "<td>"&i&"</td>"&VBCRLF
End If
If Weekday(nowyear&"-"&nowmonth&"-"&i) = 7 إذن
ر=ر+1
التقويم = التقويم & "</tr><tr bgcolor=#ffffff>"&VBCRLF
انتهي إذا
التالي
بالنسبة إلى i=1 إلى (7*t-(nowmonthfirstiweekday+1+monthdays))
التقويم = التقويم & "<td bgcolor=#ffffff></td>"&VBCRLF
التالي
التقويم = التقويم وVBCRLF&"</tr>"
التقويم = التقويم & "</table>"&VBCRLF
الرد.اكتب التقويم
%>
</الجسم>
</html>