时间上的周期有关问题

时间上的周期问题。
现在想做一个按钮或者是一个链接，点击当前时间所在的页面“上一周”，就显示当前时间上一个星期从星期一到星期天，点击“下一周”显示当前时间的从下一个星期一到星期天。就像分页程序样。

------解决方案--------------------
For i=1 To 7
DayStr = DateAdd( "d ",i-(7-Weekday(date,2)),date)
Response.Write DayStr & " "& WeekDayName(WeekDay(DayStr,2)) & " <br> "
Next
------解决方案--------------------
date 换成参数,前一周就当前日期-7,后一周就当前日期加7

------解决方案--------------------
楼上的是正确的方式

不过我建议使用连接，直接使用get方式传递
------解决方案--------------------
<%
if request( "zhou ") <> " " then
zhou=cdate(request( "zhou "))
else
zhou=date()
end if


for i=1 to 7
DayStr = DateAdd( "d ",i-(7-Weekday(zhou,2)),zhou)
response.write DayStr & " <br> "
next

%>

<a href= "?zhou= <%=zhou-7%> "> 上周 </a> <a href= "?zhou= <%=zhou+7%> "> 下周 </a>