<%
''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
''관리자에게 메일로 통보
ufMailSend("Primary Server")
Err.Clear
DbConn. ConnectionString = "SERVER=(서버명); Database=(DB명); UID=(ID);
PWD=(비빌번호)"
DbConn.Open
End If
''Secondry DB의 연결도 실패할경우 에러 메시지를 출력한다.
''다른 서버가 더존재하면 Secondry 루틴을 다시 만든다.
If Err.Number <> 0 Then
''관리자에게 메일로 통보
ufMailSend("Secondry Server")
''에러 메시지 출력
Response.write "DB 서버 에러 발생"
Response.End
End If
''메일 보내기 Function
Function ufMailSend (Server_Name)
Dim objMail
SET objMail = Server.CreateObject("CDONTS.NewMail")
With objMail
.To = "ServerAdmin@Domain.com"
.From = "ServerAdmin@Domain.com"
.Subject = "DB 연결 에러발생"
.Body = "에러 발생 시간 : "& New &" <br> 에러 발생 서버 : "& Server_Name
.BodyFormat = 0 ''내용 형식(HTML : 0, Text : 1)
.MailFormat = 0 ''메일 형식(MIME : 0, Text : 1)
.Send
End With
Set objMail = Nothing
End Function
''On Error Goto 0 를 이용하여 에러 처리를 불가능하게 한다.
On Error Goto 0
%>
''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
''관리자에게 메일로 통보
ufMailSend("Primary Server")
Err.Clear
DbConn. ConnectionString = "SERVER=(서버명); Database=(DB명); UID=(ID);
PWD=(비빌번호)"
DbConn.Open
End If
''Secondry DB의 연결도 실패할경우 에러 메시지를 출력한다.
''다른 서버가 더존재하면 Secondry 루틴을 다시 만든다.
If Err.Number <> 0 Then
''관리자에게 메일로 통보
ufMailSend("Secondry Server")
''에러 메시지 출력
Response.write "DB 서버 에러 발생"
Response.End
End If
''메일 보내기 Function
Function ufMailSend (Server_Name)
Dim objMail
SET objMail = Server.CreateObject("CDONTS.NewMail")
With objMail
.To = "ServerAdmin@Domain.com"
.From = "ServerAdmin@Domain.com"
.Subject = "DB 연결 에러발생"
.Body = "에러 발생 시간 : "& New &" <br> 에러 발생 서버 : "& Server_Name
.BodyFormat = 0 ''내용 형식(HTML : 0, Text : 1)
.MailFormat = 0 ''메일 형식(MIME : 0, Text : 1)
.Send
End With
Set objMail = Nothing
End Function
''On Error Goto 0 를 이용하여 에러 처리를 불가능하게 한다.
On Error Goto 0
%>
[이 게시물은 관리자님에 의해 2011-10-31 16:46:12 기타에서 이동 됨]
게시판 목록
프로그램
| 번호 | 제목 | 글쓴이 | 날짜 | 조회 |
|---|---|---|---|---|
| 2830 | 15년 전 | 982 | ||
| 2829 | 15년 전 | 686 | ||
| 2828 | 15년 전 | 722 | ||
| 2827 | 15년 전 | 653 | ||
| 2826 | 15년 전 | 850 | ||
| 2825 |
|
15년 전 | 669 | |
| 2824 | 15년 전 | 799 | ||
| 2823 | 15년 전 | 738 | ||
| 2822 | 15년 전 | 1015 | ||
| 2821 | 15년 전 | 647 | ||
| 2820 | 15년 전 | 839 | ||
| 2819 | 15년 전 | 768 | ||
| 2818 | 15년 전 | 1096 | ||
| 2817 |
Lemios
|
15년 전 | 1320 | |
| 2816 | 15년 전 | 749 | ||
| 2815 | 15년 전 | 869 | ||
| 2814 | 15년 전 | 759 | ||
| 2813 |
|
15년 전 | 906 | |
| 2812 | 15년 전 | 762 | ||
| 2811 |
|
15년 전 | 933 | |
| 2810 | 15년 전 | 823 | ||
| 2809 | 15년 전 | 836 | ||
| 2808 |
|
15년 전 | 758 | |
| 2807 | 15년 전 | 3716 | ||
| 2806 | 15년 전 | 6806 | ||
| 2805 | 15년 전 | 940 | ||
| 2804 |
MKCstrong
|
15년 전 | 728 | |
| 2803 | 15년 전 | 1086 | ||
| 2802 | 15년 전 | 890 | ||
| 2801 | 15년 전 | 929 | ||
| 2800 | 15년 전 | 792 | ||
| 2799 | 15년 전 | 682 | ||
| 2798 | 15년 전 | 1116 | ||
| 2797 |
|
15년 전 | 759 | |
| 2796 | 15년 전 | 1317 | ||
| 2795 |
|
15년 전 | 1095 | |
| 2794 | 15년 전 | 914 | ||
| 2793 | 15년 전 | 869 | ||
| 2792 |
|
15년 전 | 735 | |
| 2791 | 15년 전 | 1060 | ||
| 2790 | 15년 전 | 762 | ||
| 2789 |
진정한승리
|
15년 전 | 2858 | |
| 2788 | 15년 전 | 1069 | ||
| 2787 | 15년 전 | 996 | ||
| 2786 | 15년 전 | 1135 | ||
| 2785 | 15년 전 | 736 | ||
| 2784 | 15년 전 | 1008 | ||
| 2783 | 15년 전 | 1203 | ||
| 2782 | 15년 전 | 879 | ||
| 2781 | 15년 전 | 1646 | ||
| 2780 | 15년 전 | 679 | ||
| 2779 |
|
15년 전 | 855 | |
| 2778 | 15년 전 | 1165 | ||
| 2777 |
|
15년 전 | 926 | |
| 2776 | 15년 전 | 662 | ||
| 2775 |
|
15년 전 | 2901 | |
| 2774 |
|
15년 전 | 1071 | |
| 2773 |
|
15년 전 | 2063 | |
| 2772 | 15년 전 | 1950 | ||
| 2771 | 15년 전 | 1009 | ||
| 2770 |
RedRiverFisher
|
15년 전 | 2249 | |
| 2769 | 15년 전 | 811 | ||
| 2768 | 15년 전 | 1339 | ||
| 2767 | 15년 전 | 2531 | ||
| 2766 |
용다섯마리
|
15년 전 | 796 | |
| 2765 | 15년 전 | 1325 | ||
| 2764 | 15년 전 | 1539 | ||
| 2763 | 15년 전 | 910 | ||
| 2762 | 15년 전 | 1223 | ||
| 2761 | 15년 전 | 765 | ||
| 2760 |
|
15년 전 | 1999 | |
| 2759 | 15년 전 | 1393 | ||
| 2758 | 15년 전 | 878 | ||
| 2757 | 15년 전 | 559 | ||
| 2756 | 15년 전 | 667 | ||
| 2755 |
|
15년 전 | 1105 | |
| 2754 | 15년 전 | 1178 | ||
| 2753 | 15년 전 | 598 | ||
| 2752 | 15년 전 | 491 | ||
| 2751 | 15년 전 | 746 | ||
| 2750 | 15년 전 | 695 | ||
| 2749 |
원시인교주
|
15년 전 | 1717 | |
| 2748 | 15년 전 | 567 | ||
| 2747 | 15년 전 | 635 | ||
| 2746 | 15년 전 | 604 | ||
| 2745 | 15년 전 | 864 | ||
| 2744 |
원시인교주
|
15년 전 | 1700 | |
| 2743 | 15년 전 | 1641 | ||
| 2742 |
원시인교주
|
15년 전 | 14073 | |
| 2741 |
원시인교주
|
15년 전 | 3174 | |
| 2740 |
|
15년 전 | 741 | |
| 2739 | 15년 전 | 662 | ||
| 2738 | 15년 전 | 793 | ||
| 2737 | 15년 전 | 687 | ||
| 2736 | 15년 전 | 698 | ||
| 2735 | 15년 전 | 11334 | ||
| 2734 | 15년 전 | 1187 | ||
| 2733 | 15년 전 | 1042 | ||
| 2732 | 15년 전 | 1383 | ||
| 2731 | 15년 전 | 1324 |
댓글 작성
댓글을 작성하시려면 로그인이 필요합니다.
로그인하기