用XMLHTTP取一个会重定向的页面，GetAllResponseHeaders为什么为空？

[jackxp]

代码如下：

  Function openurl(targeturl,method)
    Server.ScriptTimeOut=50000
    on error resume next 
    Dim http 
    Set http=Server.createobject("Microsoft.XMLHTTP") 
    Http.open method,targeturl,false
    Http.send()
    If Http.readystate<>4 then
      exit function 
    End if 
    'openurl=bytesToBSTR(Http.responseBody,"UTF-8")
    openurl = Http.GetAllResponseHeaders '<----这句
    Set http=nothing
    if err.number<>0 then err.Clear  
  End function

返回的是空。不能抓取重定向之后的ResponseHeader吗？

[fxs_2008]

原则上不能
主要是不能跨域访问

可以将你的ie的安全里允许跨域游览打开试试,但这没有通用性

[一把编程的菜刀]

重定向的一般捉取不到

[jackxp]

有个奇怪的现象。上面是http的数据截图。
302那个Login.do页面是有ResponseHeaders返回的，起码cookies都有，但用Http.GetAllResponseHeaders就是输出不了。

[jackxp]

用Server.CreateObject("MSXML2.ServerXMLHTTP")可以获得重定向之后的那个页面的ResponseHeaders，但无法获得重定向前的那个页面的ResponseHeaders，真是郁闷……

[mamy]

怎么看不到答案啊？