带权限管理的用户管理页面file:///D:\w\user.aspx

<%@ Page Title="" Language="VB" MasterPageFile="~/MasterPage.master" %>

<script runat="server">

    Protected Sub GridView1_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles GridView1.Init
        Me.GridView1.Caption = "用户表" '表标题
        Me.GridView1.EmptyDataText = "用户表数据为空" '数据表为空时显示的内容
        Me.GridView1.EmptyDataRowStyle.BackColor = Drawing.Color.IndianRed '空表背景颜色
        Me.GridView1.GridLines = GridLines.None '表格线（横，竖，两者都有，两者都无）
        Me.GridView1.AllowPaging = True '启用分页
        Me.GridView1.AutoGenerateDeleteButton = True '删除
        Me.GridView1.AutoGenerateEditButton = True '编辑
        Me.GridView1.AutoGenerateSelectButton = True '选择
        Me.GridView1.HeaderStyle.BackColor = Drawing.Color.DarkRed '表头背景色
        Me.GridView1.AlternatingRowStyle.BackColor = Drawing.Color.Red '迭代行背景色
        Me.GridView1.RowStyle.BackColor = Drawing.Color.White '普通行背景色
        Me.GridView1.SelectedRowStyle.BackColor = Drawing.Color.Green '被选择行的颜色
        Me.GridView1.DataKeyNames = New String() {"p_userid"} '设置数据键名字
    End Sub

    Protected Sub GridView1_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles GridView1.PreRender
        Me.GridView1.DataSource = New SqlDataSource("Data Source=.;Initial Catalog=mydata;User ID=sa;Password=Abcdefg1", "select * from t_user order by username asc") '表格控件数据源
        Me.GridView1.DataBind() '绑定
    End Sub

    Protected Sub GridView1_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles GridView1.PageIndexChanging
        Me.GridView1.PageIndex = e.NewPageIndex '分页
        Me.GridView1.EditIndex = -1 '取消编辑
    End Sub

    Protected Sub GridView1_RowEditing(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GridView1.RowEditing
        Me.GridView1.EditIndex = e.NewEditIndex '编辑状态
    End Sub

    Protected Sub GridView1_RowCancelingEdit(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GridView1.RowCancelingEdit
        Me.GridView1.EditIndex = -1 '取消编辑
    End Sub

    Protected Sub GridView1_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GridView1.RowDeleting
        Dim sds As SqlDataSource = New SqlDataSource("Data Source=.;Initial Catalog=mydata;User ID=sa;Password=Abcdefg1", "delete from t_user where p_userid = @p_userid") '数据源删除动作
        Dim p_userid As String = Me.GridView1.DataKeys(e.RowIndex).Values("p_userid").ToString() '取得数据键名字
        sds.SelectParameters.Add("p_userid", p_userid) '预处理
        sds.Select(DataSourceSelectArguments.Empty) '执行删除操作
        Me.GridView1.EditIndex = -1 '取消编辑
    End Sub

    Protected Sub GridView1_RowUpdating(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GridView1.RowUpdating
        Dim sds As SqlDataSource = New SqlDataSource("Data Source=.;Initial Catalog=mydata;User ID=sa;Password=Abcdefg1", "update t_user set username = @username, userpass = @userpass, a = @a, b = @b, c = @c, d = @d, e = @e, f = @f, g = @g, h = @h, i = @i, j = @j, k = @k, l = @l, m = @m, n = @n, o = @o, p = @p, q = @q, r = @r, s = @s, t = @t, u = @u, v = @v, w = @w, x = @x, y = @y, z = @z where p_userid = @p_userid")
        Dim username As String = CType(Me.GridView1.Rows(e.RowIndex).Cells(1).Controls(0), TextBox).Text '获得所在行的用户名
        Dim userpass As String = CType(Me.GridView1.Rows(e.RowIndex).Cells(2).Controls(0), TextBox).Text '获得所在行的密码
        Dim p_userid As String = Me.GridView1.DataKeys(e.RowIndex).Values("p_userid").ToString() '获取数据键名字
        sds.SelectParameters.Add("username", username) '预处理
        sds.SelectParameters.Add("userpass", userpass) '预处理
        sds.SelectParameters.Add("p_userid", p_userid) '预处理
        For i As Integer = 97 To 122
            sds.SelectParameters.Add(Convert.ToChar(i), CType(Me.GridView1.Rows(e.RowIndex).Cells(i - 94).Controls(0), CheckBox).Checked) '预处理
        Next
        sds.Select(DataSourceSelectArguments.Empty) '执行修改操作
        Me.GridView1.EditIndex = -1 '取消编辑
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim username As String = Session("username")
        Dim userpass As String = Session("userpass")
        If username = "" Or userpass = "" Then
            Response.Redirect("~/login.aspx")
            Return
        End If
        Dim sds As SqlDataSource = New SqlDataSource("Data Source=.;Initial Catalog=mydata;User ID=sa;Password=Abcdefg1", "select a from t_user where username = @username and userpass = @userpass")
        sds.SelectParameters.Add("username", username)
        sds.SelectParameters.Add("userpass", userpass)
        Dim dv As System.Data.DataView = sds.Select(DataSourceSelectArguments.Empty)
        Dim i As Integer = dv(0)(0)
        If i = 0 Then
            Response.Redirect("~/Default.aspx")
            Return
        End If
    End Sub
</script>

<asp:Content ID="Content1" ContentPlaceHolderID="head" Runat="Server">
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server">
    <asp:GridView ID="GridView1" runat="server">
    </asp:GridView>
</asp:Content>