<body> <% function week(d) if d=2 then '为星期一 m=6 n=0 elseif d=3 then '为星期二 m=5 n=1 elseif d=4 then '为星期三 m=4 n=2 elseif d=5 then '为星期四 m=3 n=3 elseif d=6 then '为星期五 m=2 n=4 elseif d=7 then '为星期六 m=1 n=5 elseif d=1 then '为星期日 m=0 n=6 end if response.Write(year(date()-n)&"."&month(date()-n)&"."&day(date()-n)&"---"&month(date()+m)&"."&day(date()+m)) end function %> 本周日期为:<%=week(weekday(date()))%> </body>