ASP计算周开始和一年有多少周及某年第一周开始日期

<%
Temp_F=firstday(2006)
response.Write Temp_F&"<br>"
response.Write DateDiff("ww","2006-1-1","2006-12-31")&"<br>" '计算一年有多少天
Temp_N=getfst(2006,52)
response.Write Temp_N&"<br>"
%>

<%

'计算某年第一周开始日期
function firstday(inputyear)
 for i=cdate(inputyear&"-1-1") to cdate(inputyear&"-1-7")
  if weekday(i)=2 then
   firstday=i
   exit for
  end if
 next
end function

'计算输入日期是该年第几周的函数
Function CalcWeekNo(InputDate)
 toyear=year(inputdate)
 fday=firstday(toyear)
 if datediff("d",fday,inputdate)<0 then
  fday=firstday(toyear-1)
 end if
 'calcweekno=fday
 daynum=datediff("d",fday,inputdate)
 calcweekno=int(daynum/7) 1
end function

'根据周数和年份，计算该周第一天
function getfst(inputyear,weekno)
 fday=firstday(inputyear)
 getfst=dateadd("d",(weekno-1)*7,fday)
end function
%>