如何使用ASP计算得出2013年第43周的周一及周日的具体日期

[anndey]

ASP计算得出2013年第43周的周一及周日的日期
如输入 2013W45 得出周一及周日的具体日期，如2013-10-28 到 2013-11-03

[亿度互联网站开发]

然后再用正则表达来处理你需要的值。而这里演示的是直接取得他的标题.. '最后将值转换一下。然后输出到浏览器。。整个流程就如此了 dim reg,vUrl,pUrl,VBody,title vUrl="http://www.hywww.net" '更换网站地址 reg="\<meta.+ charset= {0,}([^\"" \>\/]*).+\/{0,1}\>" if vUrl<>"" then '取得网站标题 VBody=GetResStr(vUrl) title=GetCode(VBody,"\<title\>(.*)\<\/title\>") else vUrl="地址取不到" end if if err.number<>0 then response.write "标题出错" else if title<>"" then response.write title else response.write "标题为空" end if end if response.End()

[hookee]

s = "2013W45"
a = Split(s, "W")
y = a(0) & "-1-1"
n = 0
If UBound(a)>0 Then n = a(1)
If Not IsDate(y) Then y = Year(Date()) & "-1-1"
If Not IsNumeric(n) Then n = 1
d = DateAdd("ww", n-1, CDate(y))
wd = Weekday(d, 2)
d1 = DateAdd("d", 1-wd, d)
d7 = DateAdd("d", 7-wd, d)
Response.Write a(0) & "年第" & n & "周 周一 " & d1 & " 周日 " & d7