利用BasePage实现WEB窗体权限控制

拼吾爱程序人生.Net编程 Asp.Net 利用BasePage实现WEB窗体权限控制

1 / 1 页

跳转页

查看:594

striver

个人空间 相册
性别:
来自:拼吾爱
积分:7104
帖子:7016
注册: 2007-04-09

2008-06-11 19:18 | 只看楼主

树型| 收藏| 小中大复制帖子链接到剪贴板1F

利用BasePage实现WEB窗体权限控制

文/jeff377 出处/博客园

摘要
若窗体(页面)具有「执行、新增、修改、删除」等操作权限控管，可以使用列举来描述使用者在该窗体的权限，详细的作法可以参考下面的「Enum 的设计与应用 - 简易权限设计」这篇文章。在此我们将利用这种列举的方式来描述窗体权限，并由 BasePage 来处理窗体权限的控管。

程序说明及实作
首先定义 EFormActions 列举，来描述窗体操作权限。

Code

新增一个 TBActionPage 类别，继承至 System.Web.UI.Page 或自订的底层 BaseForm，做为权限控管的 BaseForm。首先新增一个 UserActions 属性，来描述使用者的窗体操作权限，在 OnInitComplete 方法中，第一次加载此窗体时取得使用者的窗体权限，即设定 UserActions 属性，此属性会储存至 ViewState 中，使下次页面 PostBack 时无需再重新取得窗体权限。另外新增 CheckUserActions 方法，供检查使用者是否具有指定的窗体操作权限。

Code

[copy to clipboard]

CODE:

Public Class TBActionPageClass TBActionPage
Inherits System.Web.UI.Page
/**/''' <summary>
''' 使用者权限。
''' </summary>
Private FUserActions As EFormActions = EFormActions.None

ViewState 状态管理#Region " ViewState 状态管理　"

/**/''' <summary>
''' 由 ViewState 还原控件的状态。
''' </summary>
''' <param name="savedState">要还原的控件状态。</param>
Protected Overrides Sub LoadViewState()Sub LoadViewState(ByVal savedState As Object)
If Not (savedState Is Nothing) Then
' Load State from the array of objects that was saved at ;
' SavedViewState.
Dim myState As Object() = CType(savedState, Object())

If Not (myState(0) Is Nothing) Then
MyBase.LoadViewState(myState(0))
End If

If Not (myState(1) Is Nothing) Then
FUserActions = CType(myState(1), EFormActions)
End If
End If
End Sub

/**/''' <summary>
''' 控件的状态储存至 ViewState。
''' </summary>
''' <returns>含有控件之目前检视状态的对象。</returns>
Protected Overrides Function SaveViewState()Function SaveViewState() As Object
Dim baseState As Object = MyBase.SaveViewState()
Dim myState(1) As Object
myState(0) = baseState
myState(1) = FUserActions
Return myState
End Function

#End Region

/**/''' <summary>
''' 覆写。引发 InitComplete 事件。
''' </summary>
Protected Overrides Sub OnInitComplete()Sub OnInitComplete(ByVal e As System.EventArgs)
If Not Me.IsPostBack Then
'取得使用者的窗体权限
'测试用：设定使用者具「执行/新增/修改」权限，实际应呼叫中间层取得使用者的此窗体权限
Me.UserActions = EFormActions.Execute Or EFormActions.Add Or EFormActions.Update

'第一次加载页面时检查执行权限
If Me.UserActions = EFormActions.None Then
Throw New Exception("没有此窗体执行权限")
End If
End If

MyBase.OnInitComplete(e)
End Sub

/**/''' <summary>
''' 使用者的窗体操作权限。
''' </summary>
Public Property UserActions()Property UserActions() As EFormActions
Get
Return FUserActions
End Get
Set(ByVal value As EFormActions)
FUserActions = value
End Set
End Property

/**/''' <summary>
''' 检查使用者是否具有指定的窗体操作权限。
''' </summary>
''' <param name="Actions">窗体操作权限</param>
Public Function CheckUserActions()Function CheckUserActions(ByVal Actions As EFormActions) As Boolean
If (Me.UserActions And Actions) = Actions Then
Return True
Else
Return False
End If
End Function

End Class

测试程序
为测试使用，在上述的 TBActionPage 的 OnInitComplete 方法，直接设定具有「执行/新增/修改」权限；正确的作法应该是呼叫中间层传入该窗体的识别码来取得使用者在该窗体具有那些权限，并在此设定 UserActions 属性值。

Me.UserActions = EFormActions.Execute Or EFormActions.Add Or EFormActions.Update
新增一个测试页面，继承至 TBActionPage，当按下按钮时利用 CheckUserActions 使用者具那些权限并输出。

Code