一个星期之间的循环。解决方案

一个星期之间的循环。
比如今天是2007-1-4号，星期四。
我想让他从星期一开始一直到星期天循环一周。
即：
2007-1-1   星期一
。。。。。
2007-1-7   星期日。
如何做？？

------解决方案--------------------
<%
dim dateStart //申明当前星期初始日期变量
dateStart = date() - weekday(date(), 2) //确定当前星期的初始日期
//从初始日期循环7次
for i = 0 to 6
response.Write(dateStart+i& ", "&weekday(dateStart+i, 2)& " <br /> ")
next
%>