<P><style>td {font-family: 宋体; 'ما يلي هو التعليمات البرمجية المحددة التي يتم تنفيذها بواسطة خوارزمية التقويم هذه في ASP</P><P> 'حدد أولاً ما إذا كان قد تم تحديد سنة وشهر، وإذا لم يكن الأمر كذلك، فاعرض إذا بناءً على السنة والشهر الحاليين Request(ReqDate)= ثم CurrentDate=Dateelse CurrentDate=Trim(Request(ReqDate))end ifpyear=year(CurrentDate)pmonth=month(CurrentDate)</P><P> 'يقوم الكود التالي بإنشاء محتوى رأس الجدول لعرض التقويم % > <tr align=LEFT bgcolor=#dddddd> <td width=14% height=19 align=center> <input type=button value=<< onclick=JavaScript:location.href='?ReqDate=<%=DateAdd(m,-1,CurrentDate) %>'></td> <td colspan=5 align=center> <%=pyear% >السنة<%=pmonth%>الشهر</td> <td width=14% align=center> <input type=button value=>> onclick=JavaScript:location.href='?ReqDate=<%=DateAdd(m,1,CurrentDate)%>'></td> </tr> <tr align=center bgcolor=#CCCCCC> <td width=14 % الارتفاع=19> يوم</td> <td width=14%> واحد</td> <td width=14%> اثنان</td> <td width=14%> ثلاثة</td> <td width=14%> أربعة</td> <td width=14%> خمسة</td> <td width=14%> ستة</td> </tr> <tr align=center bgcolor=ffffff الارتفاع=19> <% "نظرًا لعدم وجود وظيفة في ASP للحصول على عدد الأيام في شهر محدد، نحتاج إلى استخدام خوارزميات أخرى للحصول عليها. الخوارزمية في الواقع بسيطة للغاية، وهي حساب إجمالي عدد الأيام بين اليوم الأول من الشهر." الشهر الذي سيتم عرضه والأول من الشهر التالي fromDate = FormatDateTime(month(CurrentDate) & /1/ & year(CurrentDate))toDate = FormatDateTime(DateAdd(m,1,fromDate))'الحصول على اليوم من الأسبوع الذي يكون فيه اليوم الأول من الشهر المراد عرضه هو nunmonthstart=weekday(fromDate)-1'الحصول على إجمالي عدد الأيام بين اليوم الأول المراد عرضه يتم عرضه واليوم الأول من الشهر التالي ( كم عدد الأيام الموجودة في الشهر)nunmonthend=DateDiff(d,fromDate,toDate)' تحديد عدد صفوف الجداول التي يجب استخدامها لعرض التقويم (يعرض كل صف 7 أيام) ) لو nunmonthstart+nunmonthend<36 ثمmaxi=36elsemaxi=43end if'حلقة لإنشاء الجدول وعرض i=1do بينما i<maxi iv=i-nunmonthstart إذا i>nunmonthstart وi<=nunmonthend+nunmonthstart ثم 'إذا كان ما يتم عرضه هو اليوم ثم اعرضه بخلفية حمراء إذا كان iv=Day(now) وmonth(now)=pmonth وyear(now)=pyear ثم Response.write( <td) align=center bgcolor=ffaaaa><a href='#' target=_blank> & iv & </a></td>) else Response.write( <td align=center><a href='#' target= _blank> & iv & </a></td>) end if else Response.write( <td> </td>) end if</P><P> 'إذا كان قابلاً للقسمة على 7 (عرض 7 في كل سطر)، فأخرج سطرًا جديدًا إذا قمت بتعديل 7=0، ثم تنتهي الاستجابة إذا كانت i=i +1 حلقة%></جدول></جسم>