XMLHTTP Error Control
XMLHTTP Object를 불러서 ASP내에서 파일 값을 가져와야 할 경우에
혹시라도 서버의 응답이 없거나 URL이 틀려서 에러가 나는 경우가 있다.
그럴 경우가 발생했을 때 에러 처리는
On Error Resume Next를 선언한뒤에
ReadyState값과 Staus값을 비교해서 에러처리를 하는것이 좋다.
Tags:
Function GetStr(url)
dim objXMLHTTP
Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")objXMLHTTP.Open "GET", url, False
'에러 처리
On Error Resume Next
objXMLHTTP.Send'응답이 늦을 경우를 생각해서 3초간 기다려준다.
If objXMLHTTP.readyState <> 4 then objXMLHTTP.waitForResponse 3 End If If Err.Number <> 0 then '응답이 없을 경우 이전 페이지로 redirect
If (objXMLHTTP.readyState <> 4) Or (xml.Status <> 200) Then 'Abort the XMLHttp request objXMLHTTP.Abort
response.redirect("sample3.asp")
response.end()
End If End IfGetStr= objXMLHTTP.responsetext
Set objXMLHTTP = Nothing
End Function
