asp判断日期

我想要的日期格式是，比如今天是星期六开始：

2011-9-24（星期六）

2011-9-25（星期日）

2011-9-26 （星期一）

2011-9-27 （星期二）

2011-9-28 （星期三）

2011-9-29 （星期四）

2011-9-30 （星期五）

以7天为限循环，到下个星期六就是“2011-10-1（星期六）”，哪位会啊，我是新手！~~

<%for i=0 to 7%>
<%=date+i%>&nbsp;<%=weekdayname(datepart( "w",date+i))%><br />
<%next%>

用这个运行的试下，日期累计+1

送你个函数
VBScript code

Function GetWeekDay(s_Time)
   Dim k
   Dim y, m, d
   GetWeekDay = ""
   If IsDate(s_Time) = False Then Exit Function
   y = cstr(year(s_Time))
   m = cstr(month(s_Time))
   If len(m) = 1 Then m = "0" & m
   d = cstr(day(s_Time))
   If len(d) = 1 Then d = "0" & d
   k = weekday(s_Time)
   select case k
   case 1
      GetWeekDay = y & "-" & m & "-" & d & " (星期日)"
   case 2
      GetWeekDay = y & "-" & m & "-" & d & " (星期一)"
   case 3
      GetWeekDay = y & "-" & m & "-" & d & " (星期二)"
   case 4
      GetWeekDay = y & "-" & m & "-" & d & " (星期三)"
   case 5
      GetWeekDay = y & "-" & m & "-" & d & " (星期四)"
   case 6
      GetWeekDay = y & "-" & m & "-" & d & " (星期五)"
   case 7
      GetWeekDay = y & "-" & m & "-" & d & " (星期六)"
   end select
End Function

调用： GetWeekDay("2011-1-1")