asp實(shí)現(xiàn)本周的一周時(shí)間列表的代碼

td=date()
'此次為設(shè)置當(dāng)前日期,主要是為了調(diào)試方便,實(shí)際應(yīng)用中可以使用當(dāng)天日期..
str="一二三四五六日"
'生成具體是周幾的串,根據(jù)位置來取就可以了..
for x=1 to 7
'這個(gè)循環(huán)主要是判斷是最近的周一是哪天就可以了...
if td-weekday(td)+1+x=td then
'這個(gè)判斷是要讓當(dāng)前日期顯示紅色,沒什么特別的價(jià)值..
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