<P><style>td { ตระกูลแบบอักษร: 宋体; font-size:9pt}</style><body bgcolor=eeeeee><table width=180 cellpadding=0 cellspacing=1 bgcolor=dddddd align=center><% 'ต่อไปนี้เป็นโค้ดเฉพาะที่นำมาใช้โดยอัลกอริธึมปฏิทินนี้ใน ASP</P><P> 'ขั้นแรกให้พิจารณาว่ามีการระบุปีและเดือนหรือไม่ ถ้าไม่ ให้แสดงค่า If ตามปีและเดือนปัจจุบัน Request(ReqDate)= then 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> <ประเภทอินพุต=ปุ่ม 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 ที่จะรับจำนวนวันในเดือนที่ระบุ เราจึงจำเป็นต้องใช้อัลกอริทึมอื่นเพื่อให้ได้มา จริงๆ แล้วอัลกอริทึมนั้นง่ายมาก ซึ่งก็คือการคำนวณจำนวนวันทั้งหมดระหว่างวันที่ 1 ของเดือน เดือนที่จะแสดง และวันที่ 1 ของเดือนถัดไป fromDate = FormatDateTime(month(CurrentDate) & /1/ & year(CurrentDate))toDate = FormatDateTime(DateAdd(m,1,fromDate))'รับวันในสัปดาห์ที่วันแรกของเดือนที่จะแสดงคือ nunmonthstart=weekday(fromDate)-1'รับจำนวนวันทั้งหมดระหว่างวันที่ 1 ที่จะถึง แสดงและวันที่ 1 ของเดือนถัดไป ( เดือนนี้มีกี่วัน)nunmonthend=DateDiff(d,fromDate,toDate)' กำหนดว่าต้องใช้ตารางกี่แถวในการแสดงปฏิทิน (แต่ละแถวแสดง 7 วัน ) ถ้า nunmonthstart+nunmonthend<36 แล้ว maxi=36else maxi=43end if'Loop เพื่อสร้างตารางและแสดง i=1do ในขณะที่ i<maxi iv=i-nunmonthstart if 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>) สิ้นสุดหากเป็นอย่างอื่น response.write( <td> </td>) สิ้นสุดหาก</P><P> 'หากหารด้วย 7 ลงตัว (แสดง 7 ต่อบรรทัด) ให้ขึ้นบรรทัดใหม่หาก i mod 7=0 แล้ว response.write( </tr><tr align=center bgcolor=ffffff height=19>) สิ้นสุดหาก i=i +1ลูป%></ตาราง></ตัว>