หลักการค่อนข้างง่าย นั่นคือ การใช้ฟังก์ชัน date เพื่อรับวันที่ จากนั้นแทนที่ด้วยอาร์เรย์สตริงคงที่
คัดลอกโค้ดดังต่อไปนี้:td=date()
'คราวนี้เราตั้งวันที่ปัจจุบัน เพื่อความสะดวกในการแก้ไขจุดบกพร่องเป็นหลัก ในแอปพลิเคชันจริง คุณสามารถใช้วันที่ของวันปัจจุบันได้..
str=123456
' สร้างสตริงที่มีวันที่ระบุ ของสัปดาห์ เพียงแค่ยึดตามตำแหน่ง..
สำหรับ x=1 ถึง 7
'ลูปนี้ส่วนใหญ่เพื่อกำหนดว่าวันไหนเป็นวันจันทร์ที่ใกล้ที่สุด...
ถ้า td-weekday(td)+1+x=td แล้ว
'การตัดสินนี้คือการทำให้วันที่ปัจจุบันปรากฏเป็นสีแดง ไม่มีค่าพิเศษ..
response.write <font color=red>week&mid(str,x,1)&:&FormatDateTime(td-weekday(td)+1+ x, 1)&</font><br>
else
response.write week&mid(str,x,1)&:&FormatDateTime(td-weekday(td)+1+x,1)&<br>
สิ้นสุดถ้า
ถัดไป