日期:2014-05-17 浏览次数:20838 次
<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&"周" %>