http://localhost:53019/WebSite/User.aspx.vb传统绑定方式

Partial Class User
    Inherits System.Web.UI.Page

    Dim username As String = ""
    Dim userpass As String = ""

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Request.Cookies("username") Is Nothing Or Request.Cookies("userpass") Is Nothing Then
            Response.Redirect("~/Default.aspx")
        End If

        username = Request.Cookies("username").Value
        userpass = Request.Cookies("userpass").Value

        Using conn As System.Data.Odbc.OdbcConnection = New System.Data.Odbc.OdbcConnection("dsn=mydata")
            Using cmd As System.Data.Odbc.OdbcCommand = New System.Data.Odbc.OdbcCommand("select count(*) from t_user where username = ? and userpass = ? and a = 1", conn)
                cmd.Parameters.AddWithValue(1, username)
                cmd.Parameters.AddWithValue(2, userpass)
                conn.Open()
                If cmd.ExecuteScalar() = 0 Then
                    Response.Redirect("~/Index.aspx")
                End If
            End Using
        End Using

        If IsPostBack Then
            Return
        End If

        Me.bangding()
    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() {"p_user_id"}
        Using conn As System.Data.Odbc.OdbcConnection = New System.Data.Odbc.OdbcConnection("dsn=mydata")
            Using cmd As System.Data.Odbc.OdbcCommand = New System.Data.Odbc.OdbcCommand("select * from t_user order by username asc", conn)
                Using oda As System.Data.Odbc.OdbcDataAdapter = New System.Data.Odbc.OdbcDataAdapter(cmd)
                    Using dt As System.Data.DataTable = New System.Data.DataTable()
                        oda.Fill(dt)
                        Me.GridView1.DataSource = dt
                        Me.GridView1.DataBind()
                    End Using
                End Using
            End Using
        End Using
    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
        Using conn As System.Data.Odbc.OdbcConnection = New System.Data.Odbc.OdbcConnection("dsn=mydata")
            Using cmd As System.Data.Odbc.OdbcCommand = New System.Data.Odbc.OdbcCommand("delete from t_user where p_user_id = ?", conn)
                cmd.Parameters.AddWithValue(1, Me.GridView1.DataKeys(e.RowIndex).Values("p_user_id").ToString())
                conn.Open()
                cmd.ExecuteNonQuery()
            End Using
        End Using
        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
        Using conn As System.Data.Odbc.OdbcConnection = New System.Data.Odbc.OdbcConnection("dsn=mydata")
            Using cmd As System.Data.Odbc.OdbcCommand = New System.Data.Odbc.OdbcCommand("update t_user set 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 = ? where p_user_id = ?", conn)
                cmd.Parameters.AddWithValue(1, DirectCast(Me.GridView1.Rows(e.RowIndex).Cells(1).Controls(0), TextBox).Text)
                cmd.Parameters.AddWithValue(2, DirectCast(Me.GridView1.Rows(e.RowIndex).Cells(2).Controls(0), TextBox).Text)
                For i As Integer = 3 To 28
                    cmd.Parameters.AddWithValue(i, DirectCast(Me.GridView1.Rows(e.RowIndex).Cells(i).Controls(0), CheckBox).Checked)
                Next
                cmd.Parameters.AddWithValue(29, Me.GridView1.DataKeys(e.RowIndex).Values("p_user_id").ToString())
                conn.Open()
                cmd.ExecuteNonQuery()
            End Using
        End Using
        Me.GridView1.EditIndex = -1
        Me.bangding()
    End Sub

End Class