<%
''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 기타에서 이동 됨]
게시판 목록
프로그램
| 번호 | 제목 | 글쓴이 | 날짜 | 조회 |
|---|---|---|---|---|
| 2930 |
마케팅메지션
|
14년 전 | 960 | |
| 2929 |
마케팅메지션
|
14년 전 | 920 | |
| 2928 | 14년 전 | 1048 | ||
| 2927 | 14년 전 | 847 | ||
| 2926 | 14년 전 | 848 | ||
| 2925 | 14년 전 | 732 | ||
| 2924 | 14년 전 | 4484 | ||
| 2923 |
VBASP
|
14년 전 | 947 | |
| 2922 |
프리랜서개발자
|
14년 전 | 659 | |
| 2921 | 14년 전 | 1071 | ||
| 2920 | 14년 전 | 1040 | ||
| 2919 | 14년 전 | 1170 | ||
| 2918 | 14년 전 | 844 | ||
| 2917 | 14년 전 | 971 | ||
| 2916 |
마케팅메지션
|
14년 전 | 955 | |
| 2915 | 14년 전 | 910 | ||
| 2914 |
|
14년 전 | 800 | |
| 2913 | 14년 전 | 855 | ||
| 2912 | 14년 전 | 981 | ||
| 2911 |
|
14년 전 | 789 | |
| 2910 |
|
14년 전 | 793 | |
| 2909 |
|
14년 전 | 883 | |
| 2908 | 14년 전 | 803 | ||
| 2907 | 14년 전 | 779 | ||
| 2906 | 14년 전 | 798 | ||
| 2905 | 14년 전 | 788 | ||
| 2904 | 14년 전 | 805 | ||
| 2903 | 14년 전 | 751 | ||
| 2902 | 14년 전 | 764 | ||
| 2901 | 14년 전 | 736 | ||
| 2900 | 14년 전 | 956 | ||
| 2899 | 14년 전 | 894 | ||
| 2898 | 14년 전 | 754 | ||
| 2897 |
|
14년 전 | 771 | |
| 2896 | 14년 전 | 698 | ||
| 2895 |
|
14년 전 | 1873 | |
| 2894 | 14년 전 | 917 | ||
| 2893 | 14년 전 | 716 | ||
| 2892 | 14년 전 | 864 | ||
| 2891 | 14년 전 | 761 | ||
| 2890 |
|
14년 전 | 896 | |
| 2889 | 14년 전 | 760 | ||
| 2888 |
|
14년 전 | 857 | |
| 2887 | 14년 전 | 820 | ||
| 2886 | 14년 전 | 742 | ||
| 2885 | 14년 전 | 905 | ||
| 2884 | 14년 전 | 697 | ||
| 2883 |
마케팅메지션
|
14년 전 | 840 | |
| 2882 |
마케팅메지션
|
14년 전 | 896 | |
| 2881 | 14년 전 | 1185 | ||
| 2880 |
마케팅메지션
|
14년 전 | 774 | |
| 2879 | 14년 전 | 827 | ||
| 2878 | 14년 전 | 848 | ||
| 2877 |
라디오켓츠
|
14년 전 | 1429 | |
| 2876 |
|
14년 전 | 800 | |
| 2875 | 14년 전 | 951 | ||
| 2874 | 14년 전 | 1361 | ||
| 2873 | 14년 전 | 820 | ||
| 2872 |
|
14년 전 | 827 | |
| 2871 |
|
14년 전 | 713 | |
| 2870 | 14년 전 | 767 | ||
| 2869 |
마케팅메지션
|
14년 전 | 754 | |
| 2868 | 14년 전 | 1929 | ||
| 2867 |
|
14년 전 | 856 | |
| 2866 | 14년 전 | 898 | ||
| 2865 | 14년 전 | 816 | ||
| 2864 | 14년 전 | 1292 | ||
| 2863 | 14년 전 | 1205 | ||
| 2862 |
|
14년 전 | 841 | |
| 2861 | 14년 전 | 774 | ||
| 2860 | 14년 전 | 1063 | ||
| 2859 |
|
14년 전 | 648 | |
| 2858 |
|
14년 전 | 733 | |
| 2857 |
|
14년 전 | 791 | |
| 2856 |
마케팅메지션
|
14년 전 | 756 | |
| 2855 |
마케팅메지션
|
14년 전 | 708 | |
| 2854 | 14년 전 | 964 | ||
| 2853 | 14년 전 | 794 | ||
| 2852 |
|
14년 전 | 761 | |
| 2851 | 14년 전 | 709 | ||
| 2850 | 14년 전 | 799 | ||
| 2849 | 14년 전 | 2437 | ||
| 2848 |
Mentor
|
14년 전 | 787 | |
| 2847 |
마케팅메지션
|
14년 전 | 764 | |
| 2846 | 14년 전 | 770 | ||
| 2845 | 14년 전 | 752 | ||
| 2844 | 14년 전 | 966 | ||
| 2843 |
마케팅메지션
|
14년 전 | 697 | |
| 2842 | 14년 전 | 1032 | ||
| 2841 | 14년 전 | 823 | ||
| 2840 | 14년 전 | 831 | ||
| 2839 | 14년 전 | 1134 | ||
| 2838 | 14년 전 | 724 | ||
| 2837 | 14년 전 | 761 | ||
| 2836 | 14년 전 | 655 | ||
| 2835 |
마케팅메지션
|
14년 전 | 838 | |
| 2834 |
마케팅메지션
|
14년 전 | 657 | |
| 2833 |
|
14년 전 | 1112 | |
| 2832 |
|
14년 전 | 791 | |
| 2831 |
Mentor
|
14년 전 | 762 |
댓글 작성
댓글을 작성하시려면 로그인이 필요합니다.
로그인하기