采集网址，防止跳转

'对于有跳转的文件 获取其真实的地址
Public Function getRealFileName(byval url) 
       Set xmlhttp=Server.CreateObject("WinHttp.WinHttpRequest.5.1") 
           xmlhttp.Option(6)=0        '禁止自动Redirect，最关键的  剩下的就简单读取数据都估计大家都会 
           xmlhttp.SetTimeouts 5000,5000,30000,5000  '设置超时～和ServerXMLHTTP组件一样 
           xmlhttp.Open "GET",url,False       '以同步模式打开URL 
           xmlhttp.setRequestHeader "referer",url
           xmlhttp.send
  On Error Resume Next
 If err.number<>0 Then
getRealFileName=False
 Else
            getRealFileName=xmlhttp.GetResponseHeader("location")
 End If
    End Function