一个星期之间的循环
比如今天是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
%>

[解决办法]
'=======================================//
'SDay : 开始日期
'EDay : 结束日期
'W : 返回星期几
'=======================================//
Function GetWeekStr(SDay,EDay,W)
Dim NDay,Cady
NDay = DateDiff( "d ",SDay,EDay)
Cady = " "
If NDay> =0 Then
For i=0 To NDay
Dim TDay
TDay = DateAdd( "d ",i,SDay)
If Weekday(TDay,2) = W Then CDay = CDay & ", "&TDay
Next
End If
If CDay <> " " Then CDay = Right(CDay,Len(CDay)-1)
GetWeekStr = CDay
End Function
'=======================================//
Response.Write GetWeekStr( "2007-1-8 ", "2007-1-20 ",1)

时间仓促,没怎么测试,你多测几个日期,看有没有BUG
[解决办法]
改进了一下
'=======================================//
Function GetWeekStr(SDay,EDay,W)
Dim NDay,CDay
NDay = DateDiff( "d ",SDay,EDay)
CDay = " "
If NDay> =0 Then
For i=0 To NDay
Dim TDay
TDay = DateAdd( "d ",i,SDay)
If InStr(W,Weekday(TDay,2)) Then CDay = CDay & ", "&TDay
Next
End If
If CDay <> " " Then CDay = Right(CDay,Len(CDay)-1)
GetWeekStr = CDay
End Function
'=======================================//
beginTime = "2007-1-11 "
endTime = "2007-2-17 "
weekstr = "1, 7 "
Response.Write GetWeekStr(beginTime,endTime,weekstr)