Response.Write Weeklist(Date())Function Weeklist(TheDay)
Dim WeekNum
WeekNum=WeekDay(TheDay,2)
For i=1 To 7
If i1 Then Weeklist=Weeklist & "|"
Weeklist=Weeklist& ConDate(Date()-Weeknum+i)
NextEnd FunctionFunction ConDate(TheDate)
ConDate=month(TheDate)& "月" & day(TheDate)& "日" End ...