[ASP] On Error Resume Next 를 사용한 에러처리방법

ASP를 작성하다 보면 에러처리가 필요할때가 있습니다..

ASP는 자료가 많이 없기때문에....

그래서 정리를 해둡니다 ^^

<%

'On Error Resume Next를 사용하여 에러처리를 가능하게 한다.

On Error Resume Next

Dim Dbconn

Set DbConn = Server.CreateObject("ADODB.Connection") 

DbConn.Provider = "SQLOLEDB" 

DbConn.ConnectionString = "SERVER=(서버명); Database=(DB명); UID=(ID); PWD=(비빌번호)" 

DbConn.Open 

'에러가 나면 Secondry DB로 연결을 시도한다.

If Err.Number <> 0 Then

Err.Clear

DbConn. ConnectionString = "SERVER=(서버명); Database=(DB명); UID=(ID); PWD=(비빌번호)"

DbConn.Open

End If 

'Secondry DB의 연결도 실패할경우 에러 메시지를 출력한다.

'다른 서버가 더존재하면 Secondry 루틴을 다시 만든다. 

If Err.Number <> 0 Then

'에러 메시지 출력

Response.write "DB 서버 에러 발생"

Response.End

End If 

'On Error Goto 0 를 이용하여 에러 처리를 불가능하게 한다.

On Error Goto 0

%>