?? inc_admin_action.asp
字號(hào):
<!-- #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 : 用戶請(qǐng)求校驗(yàn)與分揀
'===================================================================
Function ActionFilter(strPageName,Action)
End Function
'===================================================================
'= Function : ActionExecFilterAdmin
'= Time : Created At 2006-4-19
'= Description : 管理系統(tǒng)請(qǐng)求過(guò)濾(無(wú)顯示)
'===================================================================
Function ActionExecFilterAdmin(strPageName,Action)
'== 非法數(shù)據(jù)校驗(yàn)
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 : 管理系統(tǒng)請(qǐng)求過(guò)濾(有顯示)
'===================================================================
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 : 管理系統(tǒng)權(quán)限校驗(yàn)
'===================================================================
Function AdminAuthenCheck()
Dim authFlag : authFlag = True
Dim arrNoAuthPage,i
'== 不需要做權(quán)限校驗(yàn)的頁(yè)面
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
'== 校驗(yàn)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
%>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -