http://localhost:49548/WebSite/User.aspx.vb

Partial Class User
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Request.Cookies("username") IsNot Nothing And Request.Cookies("userpass") IsNot Nothing Then
            Dao.sds.SelectCommand = "select count(*) from t_user where username = ? and userpass = ? and a = 1"
            Dao.sds.SelectParameters.Clear()
            Dao.sds.SelectParameters.Add(1, Request.Cookies("username").Value)
            Dao.sds.SelectParameters.Add(2, Request.Cookies("userpass").Value)
            If Dao.sds.Select(DataSourceSelectArguments.Empty)(0)(0) Then
                If Not IsPostBack Then
                    Me.bangding()
                End If
            Else
                Response.Redirect("~/Index.aspx")
            End If
        Else
            Response.Redirect("~/Default.aspx")
        End If
    End Sub

    Private Sub bangding()
        Me.GridView1.AllowPaging = True
        Me.GridView1.AutoGenerateDeleteButton = True
        Me.GridView1.AutoGenerateEditButton = True
        Me.GridView1.AutoGenerateSelectButton = True
        Me.GridView1.Caption = "用户管理"
        Me.GridView1.DataKeyNames = New String() {"username", "p_user_id"}
        Dao.sds.SelectCommand = "select * from t_user order by username asc"
        Me.GridView1.DataSource = Dao.sds
        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
        Me.bangding()
    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
        Me.bangding()
    End Sub

    Protected Sub GridView1_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GridView1.RowDeleting
        Dao.sds.DeleteCommand = "delete from t_user where p_user_id = ?"
        Dao.sds.DeleteParameters.Clear()
        Dao.sds.DeleteParameters.Add(1, Me.GridView1.DataKeys(e.RowIndex).Values("p_user_id").ToString())
        Dao.sds.Delete()
        Me.GridView1.EditIndex = -1
        Me.bangding()
    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
        Me.bangding()
    End Sub

    Protected Sub GridView1_RowUpdating(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GridView1.RowUpdating
        Dim userpass As String = DirectCast(Me.GridView1.Rows(e.RowIndex).Cells(2).Controls(0), TextBox).Text
        If userpass.Length > 10 Then '长度不能超过10
            Return
        End If
        Dao.sds.UpdateCommand = "update t_user set userpass = ?, a = ?, b = ?, c = ?, d = ?, e = ?, f = ?, g = ?, h = ?, i = ?, j = ?, k = ?, l = ?, m = ?, n = ?, o = ?, p = ?, q = ?, r = ?, s = ?, t = ?, u = ?, v = ?, w = ?, x = ?, y = ?, z = ? where p_user_id = ?"
        Dao.sds.UpdateParameters.Clear()
        Dao.sds.UpdateParameters.Add(1, userpass)
        For i As Integer = 2 To 27
            Dao.sds.UpdateParameters.Add(i, DirectCast(Me.GridView1.Rows(e.RowIndex).Cells(i + 1).Controls(0), CheckBox).Checked)
        Next
        Dao.sds.UpdateParameters.Add(28, Me.GridView1.DataKeys(e.RowIndex).Values("p_user_id").ToString())
        Dao.sds.Update()
        Me.GridView1.EditIndex = -1
        Me.bangding()
    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim username As String = Me.tb_username.Text
        Dim userpass As String = Me.tb_userpass.Text

        If username.Length = 0 Or username.Length > 10 Or userpass.Length = 0 Or userpass.Length > 10 Then
            Me.Label1.Text = "用户名或密码太长或太短"
            Return
        End If
        Dao.sds.SelectCommand = "select count(*) from t_user where username = ?"
        Dao.sds.SelectParameters.Clear()
        Dao.sds.SelectParameters.Add(1, username)
        If Dao.sds.Select(DataSourceSelectArguments.Empty)(0)(0) Then
            Me.Label1.Text = "用户名已存在"
        Else
            Dao.sds.InsertCommand = "insert into t_user (username, userpass, a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z) values (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)"
            Dao.sds.InsertParameters.Clear()
            Dao.sds.InsertParameters.Add(1, username)
            Dao.sds.InsertParameters.Add(2, userpass)
            For i As Integer = 0 To Me.CheckBoxList1.Items.Count - 1
                Dao.sds.InsertParameters.Add(i + 3, Me.CheckBoxList1.Items(i).Selected)
            Next
            If Dao.sds.Insert() Then
                Me.Label1.Text = "添加成功"
                Response.Redirect("~/User.aspx")
            End If
        End If
    End Sub
End Class