抓取遠端網頁錯誤代碼404，檢查遠端檔案是否存在

<% Function postFormData(url, data)     Dim xhr : Set xhr = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0")     xhr.open "POST", url, false     xhr.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"     xhr.send Data     postFormData=xhr.Status '錯誤代碼 '自訂錯誤內容 '    If (xhr.Status = 200) then '       postFormData = xhr.ResponseText '    ElseIf (xhr.Status = 404) then '       postFormData = xhr.ResponseText '    Else '        Err.Raise 1001, "postFormData", "Post to " & url & " failed with " & xhr.Status '    End If set xhr = Nothing End Function %> <% '如果A電腦沒有檔案，抓取B電腦的 url="http://100.100.100.111/big5/gencaa/upload/" & Rs("FilePath") if postFormData(url,"") = 404 then mail.AddAttachment "http://100.100.100.222/big5/gencaa/upload/" & Rs("FilePath") else mail.AddAttachment "http://100.100.100.111/big5/gencaa/upload/" & Rs("FilePath") end if %>

本站其他相關資料:

• 抓取"檢視原始檔"內容。如何使用C#抓取網頁"真正"的本文http://gdlion.blogspot.tw/2013/10/c.html
  
• asp下載遠端檔案的程式碼
  http://gdlion.blogspot.tw/2015/02/asp_24.html

其他:
httpwebrequest在 asp 的運用