<!-- #include file = "../inc_action.asp" -->
<%
'===================================================================
'= ASP FILENAME	: /inc/inc_action.asp
'= CREATED TIME : 2006-4-17 11:10
'= LAST MODIFIED: 2006-4-17 11:10
'= VERSION INFO : CCASP Framework Ver 2.0.1 ALL RIGHTS RESERVED BY www.cclinux.com
'= DESCRIPTION  : Action處理
'= Change Log:
'===================================================================
'====================================================================
'= Function    : ActionFilter
'= Time		   : Created At 2206/05/02
'= Input       : 
'= Description : 用戶請求校驗與分揀
'===================================================================
Function ActionFilter(strPageName,Action)

End Function

'===================================================================
'= Function    : ActionExecFilterAdmin
'= Time		   : Created At 2006-4-19
'= Description : 管理系統請求過濾(無顯示)
'===================================================================
Function ActionExecFilterAdmin(strPageName,Action)

	'== 非法數據校驗
	Call ForSqlForm()

	TAG_strPageName = CONST_PAGE_TITLE
	If Not AdminAuthenCheck() Then
		Exit Function
	End If
	Execute Action & "()"
	Call	ExceptionExecute()
End Function

'===================================================================
'= Function    : ActionViewFilterAdmin
'= Time		   : Created At 2006-4-19
'= Description : 管理系統請求過濾(有顯示)
'===================================================================
Function ActionViewFilterAdmin(strPageName,Action)
    TAG_strPageName = CONST_PAGE_TITLE
	If Not AdminAuthenCheck() Then
		Exit Function
	End If
	Call LoadPageTpl()
End Function

'===================================================================
'= Function    : AdminAuthenCheck
'= Time		   : Created At 2006-4-19
'= Description : 管理系統權限校驗
'===================================================================
Function AdminAuthenCheck()
	Dim authFlag : authFlag = True
	Dim arrNoAuthPage,i
	'== 不需要做權限校驗的頁面
	arrNoAuthPage = Split(GBL_strNoAuthPage,"|")
	For i = LBound(arrNoAuthPage) To UBound(arrNoAuthPage)
		If CONST_PAGE_FILE = arrNoAuthPage(i) Then
			authFlag = False
			AdminAuthenCheck = True
			Exit Function
		End If
	Next

	'== 校驗session
	If GBL_intAdminId = "" Or IsEmpty(GBL_intAdminId) Then
		Call ActionOver()
		Response.Redirect GBL_strHomeUrl & "admin/index.asp"
		Response.End
		AdminAuthenCheck = False
		Exit Function
	End If
	AdminAuthenCheck = True
End Function

%>