关于权限的问题

Question

1.大概意思:
  做一个权限控制的页面,可以分为"浏览","编辑"....,把指定的用户付上相应的"编辑"或"浏览"权限;
2.可以在页面中控制按钮或其他的3.可以用.net 自带的函数,写到log表中 例如:
不过自己编写一个类:Option Strict Off
Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Data
Imports System.Data.SqlClient
Imports Microsoft.VisualBasic
Namespace log
    Public Class log
        Private StrOperate As String   '所进行的操作名称
        Private StrTablename As String  ' 所要操作的表名
        Private strConn As String    '连接字符串
        Private strUser As String       '用户名
        Private strIP As String         '用户机器IP
        Public Property operate() As String
            Get
                Return StrOperate
            End Get
            Set(ByVal Value As String)
                StrOperate = Value
            End Set
        End Property        Public Property tablename() As String
            Get
                Return StrTablename
            End Get
            Set(ByVal Value As String)
                StrTablename = Value
            End Set
        End Property
        Public Property ConnStr() As String
            Get
                Return strConn
            End Get
            Set(ByVal Value As String)
                strConn = Value
            End Set
        End Property
        Public Property user() As String
            Get
                Return strUser
            End Get
            Set(ByVal Value As String)
                strUser = Value
            End Set
        End Property        Public Property IP() As String
            Get
                Return strIP
            End Get
            Set(ByVal Value As String)
                strIP = Value
            End Set
        End Property
        Sub New(ByVal strconn, ByVal struser, ByVal strIP, ByVal stroperate, ByVal strtablename)
            Dim myConnection As System.Data.SqlClient.SqlConnection
            Dim strsql As String
            myConnection = New SqlClient.SqlConnection(strconn)
            Dim myadap As SqlClient.SqlDataAdapter
            Dim myds As DataSet
            strsql = "insert into sys_logwz(usr_id,log_date,log_ip,log_operate,log_table) " & _
                     "values(@usr_id,@log_date,@log_ip,@log_operate,@log_table)"
            Dim mycm As SqlClient.SqlCommand
            mycm = New SqlClient.SqlCommand(strsql, myConnection)
            mycm.Parameters.Add(New SqlClient.SqlParameter("@usr_id", SqlDbType.VarChar)).Value = struser '用户ID
            mycm.Parameters.Add(New SqlClient.SqlParameter("@log_date", SqlDbType.DateTime)).Value = Microsoft.VisualBasic.Now  '时间
            mycm.Parameters.Add(New SqlClient.SqlParameter("@log_ip", SqlDbType.VarChar)).Value = strIP  'IP地址
            mycm.Parameters.Add(New SqlClient.SqlParameter("@log_operate", SqlDbType.VarChar)).Value = stroperate '所做操作
            mycm.Parameters.Add(New SqlClient.SqlParameter("@log_table", SqlDbType.VarChar)).Value = strtablename '操作的表名
            myConnection.Open()
            mycm.ExecuteNonQuery()
            myConnection.Close()
        End Sub
    End Class'页面中使用这个类
            log = New log.log(ConfigurationSettings.AppSettings("dsn"), Session("username"), Request.UserHostAddress, "update", "storedetail")

Answer 1

用Session保存你的用户名，判断用户名，如果是a,b时就把更新、删除、增加的按钮的Visible属性设置为true，不是这样的用户就设置Visible属性设置为false.

Answer 2

感谢 liuchangsheng(lcs)　， wggwan(明天会更好) 
如果我现在不是按钮，是页面的连接呢？
如下：
      1.查询
　　　2.编辑成绩表当判断了适当的权限后，如权限是b,那么当他单击“查询”后，弹出一对话框，提示“权限不够”怎么做呢？