asp中时间差计算问题

asp中计算一个时间段的相差多少天，并且相差天数不包含周六日，如何计算？各位大虾是否有好的办法，帮忙解决，谢谢！

如何判断时间段间有几个周六几个周日？

例子：
2010年02月01号——2010年02月06号  相差5  但是减去一个周六  就相差4天
2010年02月01号——2010年02月08号  相差7  但是减去一个周六日 就相差4天

---

HTML code:
<%
Dim t1,t2,weekdays,wd,n
t1="2010-02-01"
t2="2010-02-08"
wd=Weekday(t1)-1 't1那天为星期几
weekdays=DateDiff("d",t1,t2) '计算时间间隔
n=weekdays Mod 7
weekdays=weekdays-2*(weekdays-(weekdays Mod 7))/7
For i=0 To n
wd=wd Mod 7
If wd=0 or wd=6 Then
weekdays=weekdays-1
End If
wd=wd+1
Next
response.write(weekdays & Chr(13)) '输出总的工作日
%>

---

VBScript code:

' 计算 a至b 共有几个工作日, 如果 a,b 是工作日的话,也算在内
' 比如 2010.2.1-2010.2.3 会被算为 3 天
Function Days(ByVal a, ByVal b)
Days = 7-((8-Weekday(a)) Mod 7)
b = Days + DateDiff("d", a, b)
b = (b \ 7) * 5 + (b Mod 7) - (b Mod 7) \ 6
Days = b - Days + 1 + Days \ 7
End Function


' 计算 a至b 共有几个工作日, a 不算在内
Function Days1(ByVal a, ByVal b)
Days1 = Days(DateAdd("d", 1, a),