asp 判断两天是否为同一星期

dim ds
ds = datediff("d",date1,date2)
if (ds mod 7)=0 then
response.write "为同一星期"
else
response.write "不为同一星期"
end if

注意:date1与date2最好为短日期格式,不要包含小时\分\秒, 你可以对date1和date2作一下日期处理,处理为短日期样式:
date1 = formatdatetime(date1,vbshortdate)
date2 = formatdatetime(date2,vbshortdate)

对问题补充的回答:
不好意思,我以为你是说两个日期是否为同一个星期几,如都是星期一.改下吧:date1与date2的值可以自己写

<%
date1 = date()
date2 = #2006-5-17#

date1num = DateDiff("d",Year(Now)&"-01-01",Date1)\7+1
date2num = DateDiff("d",Year(Now)&"-01-01",Date2)\7+1

if date1num=date2num then
response.write "是同一周"
else
response.write "不是同一周"
end if
%>

第二个问题的答案在上段程序中有出现过哦:第几周 = DateDiff("d",Year(Now)&"-01-01",Date())\7+1