下面写法有误。
days=DatePart("w",date())
rounds=days-6
redim total2(7,4)
for i=rounds to days
select case i
case -5
wname="星期一"
k=2
case -4
wname="星期二"
k=3
case -3
wname="星期三"
k=4
case -2
wname="星期四"
k=5
case -1
wname="星期五"
k=6
case 0
wname="星期六"
k=7
case 1
wname="<font color=red>星期日</font>"
k=1
case 2
wname="星期一"
k=2
case 3
wname="星期二"
k=3
case 4
wname="星期三"
k=4
case 5
wname="星期四"
k=5
case 6
wname="星期五"
k=6
case 7
k=7
wname="星期六"
end select
response.Write wname & "<br>"
total2(k,0)=wname
next
Select Case speriod
Case 0 sql=Sql
Case 3 sql=Sql&" and dateadd(day,-3,getdate())"
Case 7 sql=Sql&" and dateadd(day,-7,getdate())"
Case 14 sql=Sql&" and dateadd(day,-14,getdate())"
Case 30 sql=Sql&" and dateadd(day,-30,getdate())"
Case 90 sql=Sql&" and dateadd(day,-90,getdate())"
Case 180 sql=Sql&" and dateadd(day,-180,getdate())"
Case else sql
End Select