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