ASP - On Error Resume Next (에러예외처리)

출처 : http://blog.naver.com/crabz/140028987702


ASP - on Error Resume Next (에러예외처리)

 

Dim sErrMsg

Dim nErrNum

Dim oRS

Dim oCon

Dim sSelectSQL

 

...

...

...

 

nErrNum = 0

Err.Number = 0

 

' 다음문장은 문법적으로 오류가 있어도 강제적으로 실행이 되기때문에

  모든 에러를 다 잡고 나서 사용해야 나중에 버그를 줄일수 있음

On Error Resume Next

 

  Set oRS = oCon.Execute(sSelectSQL)

 

  If Err.Number ＜> 0 then

     nErrNum = -1

     sErrMsg = Err.Description

  End If

 

' 여기까지 에러처리문을 반영

On Error Goto 0

 

IF 0 ＜> nErrNum Then

 ' 예외처리

 Response.Write  "＜script language='javascript'>"

 Response.Write "alert('" & sErrMsg & "');"

 Response.Write "＜/script>"

 Response.End

End If




err 개체 초기화는 err.clear