<form action="index.asp" method="post">
    请输入要查询的日期：<input type="text" name="d" /> 如：2012-2-15
    <input type="submit" value="查询该日期是今年的第几周" />
</form>
<%
dim d : d=request.form("d")
if d="" then response.end
dim m : m=0
for i=#2012-1-1# to formatdatetime(d) 'date()
    if weekday(i)=2 then m=m+1
next
response.write "查询结果："&d&"是今年的第"&m&"周"
%>