www.gusucode.com > CC校友录贴吧 CCBar源码程序asp编程 > inc/admin/inc_admin_action.asp

    <!-- #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

%>