www.gusucode.com > CC校友录贴吧 CCBar源码程序asp编程 > result/admin_error.asp
<%
'===================================================================
'= ASP FILENAME : /result/admin_error.asp
'= CREATED TIME : MAY,4,2003
'= LAST MODIFIED: AUG,10,2003
'= VERSION INFO : CCASP Framework Ver 2.0.1 ALL RIGHTS RESERVED BY www.cclinux.com
'= DESCRIPTION : 后台系统错误信息提示页面和相应函数
'===================================================================
%>
<!-- #include file = "../inc/admin/include_admin_action_view.asp" -->
<!-- #include file = "../main_func.asp" -->
<%
'========================================================
'== Action参数设置
'========================================================
'== 页面名
Const CONST_PAGE_FILE = "result/admin_error.asp"
'== 页面标题/功能
Const CONST_PAGE_TITLE = "异常提示"
'== 功能函数名字空间
Const CONST_ACTION_FUNC = "ShowErr"
'== 相对根目录路径
GBL_strHomeURL = "../"
'页面应用构造
Call ActionBuild()
'== 在模板中引用的标签变量
Dim TAG_strErrStr
'== 请求校验与过滤
Call ActionFilter(CONST_PAGE_FILE,CONST_ACTION_FUNC)
'html页面包含
%>
<!-- #include file = "../template_a/page_admin_error.html.asp" -->
<%
'页面应用析构
Call ActionOver()
%>
<%
'=============== FUNCTION BODY BEGIN ===============================
'===================================================================
'= Function : ShowErr()
'= Time : Created At May,4,2003
'= Input : 错误号(intErrId),附加信息(strAddInfo)
'= Description : 错误分类(错误号和错误的中文信息)
'===================================================================
Function ShowErr()
Dim strErrStr
Dim intErrId
Dim strAddInfo
'== Get error id
intErrId = Trim(Request("intErrId"))
If intErrId = "" Then
intErrId = 1
End If
'== Check error whether or not is integer
If Not IsNumeric(intErrId) Then
intErrId = 13
End If
intErrId = CLng(intErrId)
'== Get error's add-ons information
strAddInfo = Trim(Request("strAddInfo"))
Select Case intErrId
'== ErrId 1--50 for system and user
Case 1 strErrStr = "本错误类型尚未登记"
Case 2 strErrStr = "对不起，找不到该用户"
Case 3 strErrStr = "对不起，您的密码不正确"
Case 4 strErrStr = "对不起，该用户名已被注册"
Case 5 strErrStr = "对不起，该中文姓名已被使用<br>请重新填写"
Case 6 strErrStr = "对不起，该邮件地址已被人使用"
Case 7 strErrStr = "错误的" & strAddInfo & "记录ID参数"
Case 8 strErrStr = "错误的页面请求,该页面不存在：<br>" & strAddInfo
Case 9 strErrStr = "错误的页面数据请求,该处理异常"
Case 10 strErrStr = "错误的页面栏目请求:<br>" & strAddInfo
Case 11 strErrStr = "系统错误,找不到该用户ID"
Case 12 strErrStr = "系统错误,该显示栏目未被建立：<br>" & strAddInfo
Case 13 strErrStr = "系统错误,取错误号错误：<br>" & Trim(Request("intErrId"))
Case 14 strErrStr = "系统错误,错误成功格式化处理模式错：<br>" & strAddInfo
Case 15 : strErrStr = "您的原密码输入不正确<br>请重新输入"& strAddInfo & "的密码"
Case 16 : strErrStr = "对不起,该项功能尚未开放：<br>" & strAddInfo
Case 17 : strErrStr = "系统错误,管理员不存在<br>" & strAddInfo
Case 18 : strErrStr = "对不起,您没有<br>" & strAddInfo
Case 19 : strErrStr = "系统错误,表单建立错误<br>" & strAddInfo
Case 20 : strErrStr = "系统错误,表单校验错误<br>" & strAddInfo
Case 21 : strErrStr = "系统错误,该交易的SHOW_SET未指定<br>" & strAddInfo
Case 22 : strErrStr = "系统错误,该交易的数据库更新类型不正确<br>" & strAddInfo
'== Errid 1000--1100 is for database error
Case 1001 strErrStr = "数据库错误：不能打开数据库表!<br>" & strAddInfo
Case 1002 strErrStr = "数据库错误,该数据记录请求不存在"
Case 1003 strErrStr = strAddInfo & "： 该数据记录不存在"
Case 1100 strErrStr = "数据库错误!"
Case 1101 strErrStr = "您的提交包含禁止的词语"
Case -2147217887 strErrStr = "数据库错误：不能打开数据库表!<br>" & strAddInfo
Case -2147217913 : strErrStr = "数据库错误：插入记录数据有误!<br>" & strAddInfo
Case -2147217900 : strErrStr = "数据库错误：SQL语句错误!<br>" & strAddInfo
Case -2147467259 : strErrStr = "数据库错误：没有足够权限进行写操作<br>" & strAddInfo
Case -2147217904 : strErrStr = "数据库错误：<br>" & strAddInfo
Case -2147217865 : strErrStr = "数据库错误：<br>" & strAddInfo
'== Errid 51--100 is for board error
Case 51 strErrStr = "对不起，计发留言张数错误"
Case 52 strErrStr = "对不起，修改留言参数错误"
Case 53 strErrStr = "对不起，该留言不存在或已被删除"
Case 54 strErrStr = "对不起，该留言ID参数错误"
Case 55 strErrStr = "对不起，该留言页码参数错误"
Case 56 strErrStr = "对不起，删除请求类型提交错误"
'== Errid 101--150 is for personal error
Case 101 strErrStr = "对不起，您未处于登陆状态或已超时，请重新登陆"
Case 102 strErrStr = "对不起，您的用户数据不存在"
Case 103 strErrStr = "对不起，您的老密码不正确"
'== Errid 151--200 is for online error
Case 151 strErrStr = "对不起，您的用户数据不存在"
Case 152 strErrStr = "对不起，您的用户数据不存在"
Case 153 strErrStr = "对不起，您的用户数据不存在"
Case 154 strErrStr = "对不起，您的用户数据不存在"
'== Errid 201--250 is for admin error
Case 201 strErrStr = "对不起,网站Logo地址不能为空"
Case 202 strErrStr = "对不起,网站首页路径不能为空"
Case 203 strErrStr = "对不起,网站地址不能为空"
Case 204 strErrStr = "网站地址前必须加上http://"
Case 205 strErrStr = "网站首页路径前必须加上http://"
'== Errid 251--350 is for data check error
Case 251 strErrStr = "对不起," & strAddInfo & "应全为数字!<br>请重新输入"
Case 252 strErrStr = "对不起," & strAddInfo & "<br>长度不合要求!请重新输入"
Case 253 strErrStr = "对不起," & strAddInfo & "含有非法字符!<br>请重新输入"
Case 254 strErrStr = "对不起," & strAddInfo & "邮件地址不正确!<br>请重新输入"
Case 255 strErrStr = "对不起," & strAddInfo & "应全为中文字符!<br>请重新输入"
Case 256 strErrStr = "对不起," & strAddInfo & "您两次输入的密码不一致!<br>请重新输入"
Case 257 : strErrStr = "对不起," & strAddInfo & "的提交值<br>不在允许的范围之内"
Case 258 : strErrStr = "对不起," & strAddInfo & "ID参数错误"
Case 259 : strErrStr = "对不起," & strAddInfo & "数值不在允许的范围"
Case 260 : strErrStr = "对不起," & strAddInfo
Case 346 strErrStr = "数据项：" & strAddInfo & "长度校验参数3(固定长度2)设置不正确"
Case 347 strErrStr = "数据项：" & strAddInfo & "长度校验参数2(校验方式)设置不正确"
Case 348 strErrStr = "数据项：" & strAddInfo & "长度校验参数1(固定长度1)设置不正确"
Case 349 strErrStr = "数据项：" & strAddInfo & "长度校验参数不正确"
Case 350 strErrStr = "系统错误：数据格式校验未登记：<br>" & strAddInfo
'== Errid 351--400 is for SMS
Case 351 strErrStr = "对不起," & "新短信目前暂无可发送对象"
Case 352 : strErrStr = "对不起, 请您选择要删除的短信!"
Case 353 : strErrStr = "对不起,站内短信提交方式错：<br>" & strAddInfo
'== ErrId 401--450 is for admin
Case 401 : strErrStr = "系统错误,有关网站设置数据库错误!"
Case 452 : strErrStr = "系统错误,删除留言时更新用户表失败<br>该用户不存在<br>" & strAddInfo
Case 453 : strErrStr = "系统错误,所留言留言不存在或已被删除<br>" & strAddInfo
Case 454 : strErrStr = "系统错误,你不能删除管理员<br>" & strAddInfo
Case 455 : strErrStr = "系统错误,你不能更改管理员密码<br>" & strAddInfo
Case 456 : strErrStr = "系统错误,该相片记录不存在或已被删除<br>" & strAddInfo
Case 457 : strErrStr = "系统错误,你不能对管理员做此操作"
Case 458 : strErrStr = "系统错误,你不能对该用户做此操作<br>" & strAddInfo
Case 459 : strErrStr = strAddInfo
'== intErrId 501--550 is for album
Case 501 : strErrStr = "对不起,上传相片失败<br>" & strAddInfo
'== intErrId 600--1000 is for plusin
'== 601--650 for poll
Case 601 : strErrStr = "对不起,该投票主题已存在<br>" & strAddInfo
Case 602 : strErrStr = "对不起,该投票已结束<br>" & strAddInfo
Case 603 : strErrStr = "对不起,该投票为首选项,<br>请先指定或添加新的投票调查首选项,<br>再关闭本投票调查"
Case 604 : strErrStr = "对不起,该投票为首选项,<br>请先指定或添加新的投票调查首选项,<br>再删除本投票调查<br>" & strAddInfo
'== intErrId 1000 is for all public user's error
Case E_USER_PUB : strErrStr = "对不起," & strAddInfo
'== intErrId 1001 is for all public admin's error
Case E_ADMIN_PUB : strErrStr = "管理员错误," & strAddInfo
'== intErrId 1002 is for all public system error
Case E_SYS_PUB : strErrStr = "系统错误," & strAddInfo
'== intErrId 1003 is for all public db error
Case E_DB_PUB : strErrStr = "数据库错误," & strAddInfo
Case E_DATA_PUB : strErrStr = "数据校验错误," & strAddInfo
Case Else strErrStr = "本错误类型尚未登记：<br>" & intErrId & "<br>"
End Select
TAG_strErrStr = strErrStr
End Function
'=============== End of Function ShowErr() ===========================
'=============== FUNCTION BODY END ====================================
%>