ASP,vbscript 인 코딩 템 플 릿

================================================================================================================================================================================================================================================================= Copyright (C) 2003 Asiagame.Com. All rights reserved. ' Web: http://www.advancededu.com ' Need help? Contact: [email protected]'======================================================================================MSG NDEBUG_MSG=FALSE IF NDEBUG_MSG=TRUE THEN'오류 필터 ON ERROR RESUME NEXT END IF'변수 성명 및 정의 구역'Boolean error variant Dim Bln Founderr,sErrmsg Bln Founderr=FALSE'가 오류 메 시 지 를 촉발 합 니 다'Errmsg=sErrmsg+'+'
  • 필요 한 정 보 를 찾 지 못 했 습 니 다.사용 을 환영 합 니 다.'BlnFounderr=TRUE Dim oConn,oRs,sSQL'ADO objects'Set oConn=Server.CreateObject("ADODB.Connection")'oConn.Open Application("connStr")'사무 정의 영역'출력 오류 BlnFounderr=TRUE Then mError()End If'Func,Proc 정의 영역 Function DealInput(exp1)dim exp 2'잘못된 문자 에 대한 필터 입력 exp2=Replace(exp1,"<",")"<") exp2=Replace(exp2,">",">") exp2=Replace(exp2,"'","''") exp2=Replace(exp2,"&","&")DealInput=exp 2 End Function Function CloseDatabase'CloseDatabase oConn.close Set oConn=Nothing End Function sub mError()'Response.Write sErrmsg&"please contact system administrator."response.write"&vbCrLf response.write"&vbCrLf response.write"&vbCrLf response.write"xxx 사이트--WEB 백그라운드 관리"&vbCrLf response.write"&vbCrf response.write" & vbCrLf response.write " " & vbCrLf response.write " " & vbCrLf response.write "" & vbCrLf response.write " " & vbCrLf response.write "" & vbCrLf response.write " " & vbCrLf response.write " " & vbCrLf response.write " " & vbCrLf response.write " " & vbCrLf response.write " " & vbCrLf response.write " " & vbCrLf response.write " " & vbCrLf response.write"&vbCrLf response.write"&vbCrLf response.write"&vbCrLf response.write"&vbCrLf response.write"&vbCrLf response.write"&vbCrLf response.write"&vbCrLf response.write"&vbCrLf response.write"그 에 상응하는 도움 을 받다."&vbCrLf response.write sErrmsg & vbCrLf response.write " " & vbCrLf response.write " <<이전 페이지 로 돌아 가기 " & vbCrLf response.write " " & vbCrLf response.write " " & vbCrLf response.write " " end sub %>
    -->
  • 좋은 웹페이지 즐겨찾기