xxx站点--WEB后台管理

ASP、vbscript编码模板 <%@ Language=VBScript %> <%Option Explicit%> <% '加入的文件 %> <% '代码版权说明: '========================================================= ' File: 文件名.asp ' Version:1.0 ' Date: ' Script Written by Tommy xiao ' Description: ' ' Revision: ' Date: ' Author: ' Description: '========================================================= ' Copyright (C) 2003 Asiagame.Com. All rights reserved. ' Web: http://www.advancededu.com ' Need help? Contact: xds2000@msn.com '========================================================= %> <% '容错机制代码 '-------------------------------- DIM NDEBUG_MSG NDEBUG_MSG=FALSE IF NDEBUG_MSG = TRUE THEN '出错过滤 ON ERROR RESUME NEXT END IF '变量声明及定义区 'Boolean error variant Dim BlnFounderr,sErrmsg BlnFounderr = FALSE '触发错误信息 'sErrmsg=sErrmsg+"
"+"

没有找到您需要的信息，欢迎使用。" 'BlnFounderr = TRUE Dim oConn,oRs,sSQL 'ADO objects 'Set oConn = Server.CreateObject ("ADODB.Connection") ' oConn.Open Application("connStr") '事务定义区 '输出错误 If BlnFounderr = TRUE Then mError() End If 'Func,Proc定义区 Function DealInput(exp1) dim exp2 'Filter input for invalid characters exp2=Replace(exp1,"<","<") exp2=Replace(exp2,">",">") exp2=Replace(exp2,"'","''") exp2=Replace(exp2,"&","&") DealInput=exp2 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 " xxx站点--WEB后台管理" & 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 "

内部管理操作错误信息

产生错误的可能原因：

" & vbCrLf response.write "

请您尽快与管理员联系，获得相应地的帮助。" & vbCrLf response.write sErrmsg & vbCrLf response.write "

" & vbCrLf response.write " << 返回上一页" & vbCrLf response.write "

" & vbCrLf response.write " " & vbCrLf response.write " " end sub %>