asp實現本周的一周時間列表的代碼

複製代碼 代碼如下: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