如题所述
<%
Dim FirstDay
Dim curWeek
FirstDay = CDate(Year(Date) & "-" & Month(Date) & "-1")
curWeek = DateDiff("ww",FirstDay,Date) + 1
Response.Write "å½åæ¯æ¬æ第" & curWeek & "å¨"
%>
Dim FirstDay
Dim curWeek
FirstDay = CDate(Year(Date) & "-" & Month(Date) & "-1")
curWeek = DateDiff("ww",FirstDay,Date) + 1
Response.Write "å½åæ¯æ¬æ第" & curWeek & "å¨"
%>
温馨提示:答案为网友推荐,仅供参考