asp判断输出日期函数

我想要的日期函数格式是从星期日开始到星期六，比如：

2011-10-2（星期日）

2011-10-3（星期一）

2011-10-4（星期二）

2011-10-5（星期三）

2011-10-6（星期四）

2011-10-7（星期五）

2011-10-8（星期六）

我想要的是这种格式，星期的格式是直接定死在那，表格就以星期日开头，日期随着时间变化，但是星期还是那种顺序，哪位高手知道这个怎么写呢？急啊~~~！！！！

VBScript code

<%
d = "2011-10-10" ' 指定任意日期

a = Split(getWeek(d), ",")
For i = 0 To UBound(a)
    Response.Write a(i)
Next

Function getWeek(dt)
    Dim wd, fd, s, i, t
    dt = CDate(dt)
    wd = Weekday(dt)
    fd = DateAdd("d", 1-wd, dt)
    For i = 0 To 6
        t = DateAdd("d", fd, i)
        s = s & fmtDate(t) & " (" & getWeekDay(Weekday(t)) & "),"
    Next
    getWeek = Left(s, Len(s)-1)
End Function

Function fmtDate(dt)
    dt = CDate(dt)
    fmtDate = Year(dt) & "-" & Month(dt) & "-" & Day(dt)
End Function

Function getWeekDay(wd)
    Dim a
    a = Array("", "星期日", "星期一", "星期二", "星期三", "星期四", "星期五", "星期六")
    getWeekDay = a(wd)
End Function

%>

楼上的那个好像要指定日期呢，我说的那个效果是比如今天是2011-10-2（星期日），那么第一行就是2011-10-9（星期日）了，这个星期和排列的顺学不变，只是日期随着时间的变化而变化

我想要的日期函数格式是从这个开始到星期日，比如：

2011-10-9（星期日）

2011-10-3（星期一）

2011-10-4（星期二）

2011-10-5（星期三）

2011-10-6（星期四）

2011-10-7（星期五）

2011-10-8（星期六） 

到了下个星期的格式
2011-10-16（星期日）

2011-10-10（星期一）

2011-10-11（星期二）

2011-10-12（星期三）

2011-10-13（星期四）

2011-10-14（星期五）

2011-10-15（星期六）
只是日期变化而星期不变，格式还是那种格式

d = Now() 就可以了