< %@LANGUAGE="VBSCRIPT " CODEPAGE="65001"%>
<!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" />
<title>无标题文档</title>
<نمط النوع = "نص/CSS">
جسم{
حجم الخط: 12 بكسل؛
}
طاولة{
محاذاة النص:مركز؛
}
#عملة{
لون الخلفية: #CC99CC؛
}
</نمط>
</الرأس>
<الجسم>
<%
خطوط خافتة، كاري، كورد، تاريخ التنوب، أسبوع التنوب، الحد الأقصى، أيام
كال فرعي (dateStr)
إذا كان dateStr = "" إذن
dateStr=تاريخ()
نهاية إذا
currY=سنة(dateStr)
currM=شهر(dateStr)
currD = يوم (dateStr)
firDate=currY&"-"&currM&"-1"
firWeek=weekDay(تاريخ التنوب)
maxDay=day(dateSerial(y,m+1,0))
days=maxDay+firWeek-1
إذا كانت الأيام mod 7 = 0 إذن
خطوط = كثافة العمليات (أيام / 7)-1
آخر
الخطوط = الإصلاح (أيام / 7)
نهاية إذا
النهاية الفرعية
'الأسبوع الثامن من عام 2008
'دس = "2008-8-8"
'استدعاء كال (دس)
استدعاء كال("")
%>
<حدود الجدول = "0" تباعد الخلايا = "0" خلية الحشو = "0">
<تر>
<td width="25" height="25">العرض</td>
<td width="25" height="25">一</td>
<td width="25" height="25">二</td>
<td width="25" height="25">三</td>
<td width="25" height="25">四</td>
<td width="25" height="25">五</td>
<td width="25" height="25">六</td>
</tr>
<%for i=0 إلى الأسطر%>
<تر>
<%
ل ي = 1 إلى 7
Square=7*i+j-firWeek+1
إذا كان المربع <1 أو المربع> maxDay إذن
Response.Write("<td width='25' height='25'> </td>")
elseif Square=currD إذن
Response.Write("<td width='25' height='25' id='curr'>"&square&"</td>")
آخر
Response.Write("<td width='25' height='25'>"&square&"</td>")
نهاية إذا
التالي
%>
</tr>
<%التالي%>
</الجدول>
</الجسم>
</html>