28,390
社区成员
发帖
与我相关
我的任务
分享
url="http://indexed.linkhelepr.cn"
Dim http
Set Http=server.createobject("WinHttp.WinHttpRequest.5.1")
Http.Option(6)=0 '不让跳转
Http.open "HEAD",url,False
Http.Send()
Response.write http.Status &Http.Option(1)&http.getAllResponseHeaders()