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