连续显示两周的时间和星期

连续显示两周的时间和星期

连续显示两周的时间和星期 <% xztime=date

if weekday(xztime)=1 then xztime=DateAdd('d', -6, xztime)

if weekday(xztime)=2 then xztime=xztime

if weekday(xztime)=3 then xztime=DateAdd('d', -1, xztime)

if weekday(xztime)=4 then xztime=DateAdd('d', -2, xztime)

if weekday(xztime)=5 then xztime=DateAdd('d', -3, xztime)

if weekday(xztime)=6 then xztime=DateAdd('d', -4, xztime)

if weekday(xztime)=7 then xztime=DateAdd('d', -5, xztime)

for j=1 to 14

id= weekday(xztime)

select case id

case 2 dd='星期一'

case 3 dd='星期二'

case 4 dd='星期三'

case 5 dd='星期四'

case 6 dd='星期五'

case 7 dd='星期六'

case else dd='星期日'

end select

response.Write(year(xztime)&'年'&month(xztime)&'月'&day(xztime)&'日' &dd&'<br>')

xztime= DateAdd('d', 1, xztime)

next

%>