显示某日期所在星期的所有日期asp代码

<％
dim week_ymd(8)

'测出可以手动设定日期,比如this_ymd=#2008-04-12#
this_ymd=date()

'设置周显示模式为：周一开始，周日结束。
i=weekday(this_ymd,vbMonday)

'计算出该周周一的日期
if i=1 then 
  monday_sign=0
else
  monday_sign=1-i
end if
monday_ymd=dateadd("d",monday_sign,this_ymd)

'循环得出该周的所有日期。
j=1
do while (7-j)>=0
  week_ymd(j)=dateadd("d",j-1,monday_ymd)
  j=j+1 
loop 
％>

显示该周的所有日期:<br>
<％ for j=1 to 7％>
周<％=j％>:<％=week_ymd(j)％><br>
<％ next ％>

也许您看了题目不是很清楚这代码做什么用，为此本站测试了一下（2008年6月1号）

屏幕显示：

显示该周的所有日期:
周1:2008-5-26
周2:2008-5-27
周3:2008-5-28
周4:2008-5-29
周5:2008-5-30
周6:2008-5-31
周7:2008-6-1