asp使用Weekday函数计算项目的结束时间

%
starttime=cdate("2013-09-08") '项目开始时间
endtime="" '项目结束时间
num=8 '项目需要的天数
response.write "开始时间："starttime"br>天数："num"br>结束时间："
starttime=starttime-1
i=1
while i = num
	starttime=starttime+1
	w=weekday(starttime) 
	if w>1 and w7 then '非周末
		endtime=starttime
		i=i+1	
	else '周末休息
	end if
wend
response.write endtime
%>