ASP gets a weekly list of week time

Td=date ()
' This is to set the current date, mainly for debugging convenience, the actual application can use the day date.
Str= "123456 Days"
' Generate a specific number of weeks, depending on the location of the string can be taken.
For X=1 to 7
' This cycle is mainly judged by what day of the last Monday is available ...
If Td-weekday (TD) +1+x=td Then
' The judgment is to make the current date appear red, with no special value.
Response.Write "<font color=red> Week" &mid (str,x,1) & ":" &formatdatetime (Td-weekday (TD) +1+x,1) & " </font><br> "
Else
Response.Write "Zhou" &mid (str,x,1) & ":" &formatdatetime (Td-weekday (TD) +1+x,1) & "<br>"
End If
Next