web rbac 細粒控制請教。。

Question

     各位大俠，我想這樣設計WEB 權限的檢查部份（初次搞這個），在網頁提交時取得當前網頁（模組）的編號，同時取得相應模組的功能編號，給出能否訪問模組或模組相應功能的提示.
     部份設計如下,但是如何知道用戶提交的模組編號和點擊的是那個button ？
那如果是winform,又該如何檢測？
1: 定義public 屬性：
   Code(strFunctionCode as string )
   Code(strModuleCode as string ,strFunctionCode as string )
   說明：strModuleCode 模組編號，strFunctionCode 功能編號2: webfrom1.aspx.vb
<Code("Module1")> _
        Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            
        End Sub<Code("delete")> _
Private Sub cmdDelete_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdDelete.Click
            If Not WebRBAC.ACSFunction("F003") Then 
                Exit Sub
            End If
            DeleteData()
        End Sub
<Code("add")> _
 Private Sub cmdNew_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdNew.Click
            If Not WebRBAC.ACSFunction("F001") Then 
                Exit Sub
            End If
            AddNewData()
        End Sub
                  其他功能類似
3:  webfrom2.aspx.vb<Code("Module2")> _
        Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            
        End Sub<Code("delete")> _
Private Sub cmdDelete_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdDelete.Click
            If Not WebRBAC.ACSFunction("F003") Then 
                Exit Sub
            End If
            DeleteData()
        End Sub
<Code("add")> _
 Private Sub cmdNew_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdNew.Click
            If Not WebRBAC.ACSFunction("F001") Then 
                Exit Sub
            End If
            AddNewData()
        End Sub
                  其他功能類似

Answer 1

特別說明，不想在每個要控制的button，page 中寫， if... then .... end if 之類的判斷。