?? 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 ====================================
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -