korea.internet.com  에  나오는  팁입니다.

프로그램적으로  fail  over를  구현할수  있져..  유용하게  쓰시길..





<%

'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

%>  

날짜: 2003-11-11 13:34:32, 조회수: 2702