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
%>

Related Posts

• 아파치 jmeter 부하 테스트 하기
• 리눅스 LVM 구성
• centos7에서 최신 nginx, php, mariadb yum 설치
• 리눅스 서버 초기 셋팅2
• mongodb와 elasticsearch 연동
• 윈7에서 mongodb 설치하기
• 리눅스서버 초기 셋팅
• 개인 저장 공간 :: 리눅스 로케일언어 변경하기
• ncftp 설치 및 활용하기
• 갤럭시탭으로 네트워크 연결하여 영화보기