<!-- 메타데이터
유형=typelib
파일=C:/프로그램 파일/공통 파일/시스템/ADO/msado20.tlb
-->
<%@ 언어=VBScript %>
<%옵션 명시적%>
<%
'추가된 파일
%>
<!-- #include virtual|file=포함할 파일-->
<%
'코드 저작권 설명:
'================================================ = ========
'파일: 파일 이름.asp
' 버전:1.0
'날짜:
' Tommy xiao가 쓴 스크립트
' 설명:
'
'개정:
'날짜:
' 작가:
' 설명:
'================================================ = ========
' 저작권(C) 2003 Asiagame.Com. 모든 권리 보유.
' 웹사이트: http://www.advancededu.com
' 도움이 필요하신가요? 연락처: [email protected]
'================================================ = ========
%>
<%
'내결함성 메커니즘 코드
'--------------------------------
DIMNDEBUG_MSG
NDEBUG_MSG=거짓
NDEBUG_MSG = TRUE이면
'필터링 오류
오류 발생 시 다음 재개
종료 IF
'변수 선언 및 정의 영역
'부울 오류 변형
Dim BlnFounderr,sErrmsg
BlnFounderr = 거짓
'트리거 오류 메시지
'sErrmsg=sErrmsg+<br>+<li>필요한 정보를 찾을 수 없습니다. 사용을 환영합니다.
'BlnFounderr = 참
Dim oConn,oRs,sSQL 'ADO 개체
'oConn = Server.CreateObject(ADODB.Connection) 설정
'oConn.응용 프로그램 열기(connStr)
'트랜잭션 정의 영역
'출력 오류
BlnFounderr = TRUE인 경우
m오류()
종료 조건
'Func,Proc 정의 영역
함수 DealInput(exp1)
Dim exp2 '잘못된 문자에 대한 입력을 필터링합니다.
exp2=바꾸기(exp1,<,<)
exp2=바꾸기(exp2,>,>)
exp2=바꾸기(exp2,','')
exp2=바꾸기(exp2,&,&)
DealInput=exp2
기능 종료
함수 CloseDatabase ' CloseDatabase
oConn.close
oConn = 없음 설정
기능 종료
하위 mError()
'응답.Errmsg를 작성하고 시스템 관리자에게 문의하십시오.
response.write <html> 및 vbCrLf
response.write <헤드> & vbCrLf
response.write <title>xxx 사이트--웹 배경 관리</title> & vbCrLf
response.write <meta NAME=GENERATOR Content=Microsoft Visual Studio 6.0> & vbCrLf
response.write <link rel=stylesheet type=text/css href=css/index.css> & vbCrLf
response.write <script type=text/javascript src=js/fx.js></script> & vbCrLf
response.write <script type=text/javascript src=js/cooltool.js></script> & vbCrLf
response.write 및 vbCrLf
response.write </head> & vbCrLf
response.write 및 vbCrLf
response.write <본문> 및 vbCrLf
response.write <테이블 cellpadding=0 셀 간격=0 테두리=0 너비=95% bgcolor=#777777 align=center> & vbCrLf
response.write <tr> 및 vbCrLf
response.write <td> 및 vbCrLf
response.write <테이블 셀 패딩=3 셀 간격=1 테두리=0 너비=100%> & vbCrLf
response.write <tr align=center> & vbCrLf
response.write <td width=100% bgcolor=#EEEEEE>내부 관리 작업 오류 메시지</td> & vbCrLf
response.write </tr> & vbCrLf
response.write <tr> 및 vbCrLf
response.write <td width=100% bgcolor=#FFFFFF><b>오류의 가능한 원인:</b><br><br> & vbCrLf
response.write <li>적절한 도움을 받으려면 최대한 빨리 관리자에게 문의하세요. </a> 및 vbCrLf
response.write sErrmsg & vbCrLf
response.write </td> & vbCrLf
response.write </tr> & vbCrLf
response.write <tr align=center> & vbCrLf
response.write <td 너비=100% bgcolor=#EEEEEE> & vbCrLf
response.write <a href=javascript:history.go(-1)> << 이전 페이지로 돌아가기</a> & vbCrLf
response.write </td> & vbCrLf
response.write </tr> & vbCrLf
response.write </table> </td></tr></table> & vbCrLf
response.write </body> & vbCrLf
응답.쓰기 </html>
서브 끝
%>