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 w<7 then '非周末
		endtime=starttime
		i=i+1	
	else '周末休息
	end if
wend
response.write endtime
%>