博客给出一段ASP代码，该代码具有通用性，可输出今天所在周的全部日期，通过循环和日期计算函数实现，还会同时输出对应的星期名称。
输出今天所在的周的全部，是个ASP的代码，不过，具有通用性 
<%
Dim i, d
Dim interval
For i = 0 To 6
interval = i - WeekDay(Date) + 1
d = DateAdd("d", interval, Date)
Response.Write(d)
Response.Write("-----")
Response.Write(WeekDayName(Weekday(d)))
Response.Write("<br>")
Next
%>
<% Dim i, d Dim interval For i = 0 To 6 interval = i - WeekDay(Date) + 1 d = DateAdd("d", interval, Date) Response.Write(d) Response.Write("-----") Response.Write(WeekDayName(Weekday(d))) Response.Write("<br>") Next %>
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
