error.asp

1] 校友多种方式注册认证[直接注册,答问注册,认证注册] 2] 校友论坛 小巧而实用的论坛,支持UBB标签,快速回复,帖子搜索,灵活的将帖子置顶,设置精华 3] 校友相册 相片上传[方便上传

<%
'===================================================================
'= 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
%>