原理也相對簡單，就是利用date函數取得日期，然後透過固定的字串陣列來替換。
複製程式碼代碼如下:td=date()
'這次為設定當前日期,主要是為了調試方便,實際應用中可以使用當天日期..
str=一二三四五六日
'生成具體是周幾的串,根據位置來取就可以了..
for x=1 to 7
'這個循環主要是判斷是最近的周一是哪天就可以了...
if td-weekday(td)+1+x=td then
'這個判斷是要讓目前日期顯示紅色,沒什麼特別的價值..
response.write <font color=red>週&mid(str,x,1)&:&FormatDateTime(td-weekday(td)+1+x, 1)&</font><br>
else
response.write週&mid(str,x,1)&:&FormatDateTime(td-weekday(td)+1+x,1)&<br>
end if
next