<%
'===================================================================
'= ASP FILENAME	: /result/error.asp
'= CREATED TIME :2006-5-4
'= LAST MODIFIED: 2006-5-4
'= VERSION INFO : CCASP Framework Ver 2.0.1 ALL RIGHTS RESERVED BY www.cclinux.com
'= DESCRIPTION  : 異常提示
'===================================================================
%>
<!-- #include file = "../inc/customer/include_customer_action_view.asp" -->
<!-- #include file = "../main_func.asp" -->

<%
'========================================================
'==   Action參數設置
'========================================================
'== 頁面名
Const CONST_PAGE_FILE	= "result/error.asp"

'== 頁面標題/功能
Const CONST_PAGE_TITLE	= "異常提示"

'== 功能函數名字空間
Const CONST_ACTION_FUNC	= "ShowErrCtl"

'== 相對根目錄路徑 
GBL_strHomeURL			= "../"

'頁面應用構造
Call ActionBuild()

'== 請求校驗與過濾
Call ActionFilter(CONST_PAGE_FILE,CONST_ACTION_FUNC)


'== 頁面應用析構
Call ActionOver()

%>

<%
'===================================================================
'= Function    : LoadPageTpl()
'= Time		   : Created At 2006-5-4
'= Description : 加載頁面模塊
'===================================================================
Function LoadPageTpl()
%>
	<!-- #include file = "../template_c/sub_page.html.asp" -->
<%
End Function

'===================================================================
'= Function    : ShowErrCtl()
'= Time	    : 2006-5-4
'= Input       : 
'= Description : 異常提示
'===================================================================
Function ShowErrCtl()

	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"))

	Response.Write "<table width=100% >"
	Response.Write "	<tr align=center >"
	Response.Write "		<td width=40% align=right>"
	Response.Write MakeImg(GBL_strImgDir & "home_error.gif","ERR_ID：" &intErrId &" <br>" & Trim(Request.QueryString("pstNowPost"))) 
	Response.Write "		</td>"
	Response.Write "		<td align=center width=60% >"

	Select Case intErrId
	'== ErrId 1--50 for system and user
		Case	1		strErrStr = "本錯誤類型尚未登記"

	'== 用戶邏輯錯誤
		Case	E_USER_PUB :	strErrStr = "對不起," & strAddInfo
	'== 管理員邏輯錯誤
		Case	E_ADMIN_PUB :	strErrStr = "管理員錯誤," & strAddInfo
	'== 系統錯誤
		Case	E_SYS_PUB :	strErrStr = "系統錯誤," & strAddInfo
	'== 數據庫錯誤
		Case	E_DB_PUB :	strErrStr = "數據庫錯誤," & strAddInfo
	'== 數據校驗錯誤
		Case	E_DATA_PUB :	strErrStr = "數據校驗錯誤," & strAddInfo
		Case	Else    strErrStr = "本錯誤類型尚未登記：<br>" & intErrId & "<br>" 

	 End Select

	 Response.Write strErrStr
	 Response.Write "<br><p align=center><a href=javascript:history.go(-1) title='返回剛才頁面'>◇ 返回</a>&nbsp;&nbsp;&nbsp;"
	 Response.Write "		</td>"
	 Response.Write "	</tr>"
	 Response.Write "</table>"

End Function
%>