Partial Class User
Inherits System.Web.UI.Page
Private Sub BindData()
Using sds As SqlDataSource = New SqlDataSource("Data Source=.;Initial Catalog=master;User ID=sa;Password=Abcdefg1", "select * from t_user order by insertdatetime2 desc")
Me.GridView1.DataSource = sds
Me.GridView1.DataBind()
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.BindData()
End Sub
Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init
If Request.Cookies("username") IsNot Nothing And Request.Cookies("userpass") IsNot Nothing Then
Dim username As String = HttpUtility.UrlDecode(Request.Cookies("username").Value)
Dim userpass As String = HttpUtility.UrlDecode(Request.Cookies("userpass").Value)
Using sds As SqlDataSource = New SqlDataSource("Data Source=.;Initial Catalog=master;User ID=sa;Password=Abcdefg1", "select count(*) from t_user where username = @username and userpass = @userpass and a = 1")
sds.SelectParameters.Add("username", username)
sds.SelectParameters.Add("userpass", userpass)
Dim i As Integer = DirectCast(sds.Select(DataSourceSelectArguments.Empty), System.Data.DataView)(0)(0)
If i = 0 Then
Response.Redirect("~/Index.aspx")
End If
End Using
Else
Response.Redirect("~/Default.aspx")
End If
If Not IsPostBack Then
Me.BindData()
End If
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.BindData()
End Sub
Protected Sub GridView1_RowCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) Handles GridView1.RowCommand
Dim s As String = e.CommandName
If s.Equals("insert") Then
Using sds As SqlDataSource = New SqlDataSource("Data Source=.;Initial Catalog=master;User ID=sa;Password=Abcdefg1", "select count(*) from t_user where username = @username")
Dim txt_username As TextBox = DirectCast(Me.GridView1.FooterRow.FindControl("txt_username"), TextBox)
Dim txt_userpass As TextBox = DirectCast(Me.GridView1.FooterRow.FindControl("txt_userpass"), TextBox)
Dim cb_a As CheckBox = DirectCast(Me.GridView1.FooterRow.FindControl("cb_a"), CheckBox)
Dim cb_b As CheckBox = DirectCast(Me.GridView1.FooterRow.FindControl("cb_b"), CheckBox)
Dim cb_c As CheckBox = DirectCast(Me.GridView1.FooterRow.FindControl("cb_c"), CheckBox)
Dim cb_d As CheckBox = DirectCast(Me.GridView1.FooterRow.FindControl("cb_d"), CheckBox)
Dim cb_e As CheckBox = DirectCast(Me.GridView1.FooterRow.FindControl("cb_e"), CheckBox)
Dim cb_f As CheckBox = DirectCast(Me.GridView1.FooterRow.FindControl("cb_f"), CheckBox)
Dim cb_g As CheckBox = DirectCast(Me.GridView1.FooterRow.FindControl("cb_g"), CheckBox)
Dim cb_h As CheckBox = DirectCast(Me.GridView1.FooterRow.FindControl("cb_h"), CheckBox)
Dim cb_i As CheckBox = DirectCast(Me.GridView1.FooterRow.FindControl("cb_i"), CheckBox)
Dim cb_j As CheckBox = DirectCast(Me.GridView1.FooterRow.FindControl("cb_j"), CheckBox)
Dim cb_k As CheckBox = DirectCast(Me.GridView1.FooterRow.FindControl("cb_k"), CheckBox)
Dim cb_l As CheckBox = DirectCast(Me.GridView1.FooterRow.FindControl("cb_l"), CheckBox)
Dim cb_m As CheckBox = DirectCast(Me.GridView1.FooterRow.FindControl("cb_m"), CheckBox)
Dim cb_n As CheckBox = DirectCast(Me.GridView1.FooterRow.FindControl("cb_n"), CheckBox)
Dim cb_o As CheckBox = DirectCast(Me.GridView1.FooterRow.FindControl("cb_o"), CheckBox)
Dim cb_p As CheckBox = DirectCast(Me.GridView1.FooterRow.FindControl("cb_p"), CheckBox)
Dim cb_q As CheckBox = DirectCast(Me.GridView1.FooterRow.FindControl("cb_q"), CheckBox)
Dim cb_r As CheckBox = DirectCast(Me.GridView1.FooterRow.FindControl("cb_r"), CheckBox)
Dim cb_s As CheckBox = DirectCast(Me.GridView1.FooterRow.FindControl("cb_s"), CheckBox)
Dim cb_t As CheckBox = DirectCast(Me.GridView1.FooterRow.FindControl("cb_t"), CheckBox)
Dim cb_u As CheckBox = DirectCast(Me.GridView1.FooterRow.FindControl("cb_u"), CheckBox)
Dim cb_v As CheckBox = DirectCast(Me.GridView1.FooterRow.FindControl("cb_v"), CheckBox)
Dim cb_w As CheckBox = DirectCast(Me.GridView1.FooterRow.FindControl("cb_w"), CheckBox)
Dim cb_x As CheckBox = DirectCast(Me.GridView1.FooterRow.FindControl("cb_x"), CheckBox)
Dim cb_y As CheckBox = DirectCast(Me.GridView1.FooterRow.FindControl("cb_y"), CheckBox)
Dim cb_z As CheckBox = DirectCast(Me.GridView1.FooterRow.FindControl("cb_z"), CheckBox)
sds.SelectParameters.Add("username", txt_username.Text)
Dim i As Integer = DirectCast(sds.Select(DataSourceSelectArguments.Empty), System.Data.DataView)(0)(0)
If i > 0 Then
Response.Write("用户名已存在！")
Return
End If
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 (@username, @userpass, @a, @b, @c, @d, @e, @f, @g, @h, @i, @j, @k, @l, @m, @n, @o, @q, @q, @r, @s, @t, @u, @v, @w, @x, @y, @z)"
sds.InsertParameters.Add("username", txt_username.Text)
sds.InsertParameters.Add("userpass", txt_userpass.Text)
sds.InsertParameters.Add("a", cb_a.Checked)
sds.InsertParameters.Add("b", cb_b.Checked)
sds.InsertParameters.Add("c", cb_c.Checked)
sds.InsertParameters.Add("d", cb_d.Checked)
sds.InsertParameters.Add("e", cb_e.Checked)
sds.InsertParameters.Add("f", cb_f.Checked)
sds.InsertParameters.Add("g", cb_g.Checked)
sds.InsertParameters.Add("h", cb_h.Checked)
sds.InsertParameters.Add("i", cb_i.Checked)
sds.InsertParameters.Add("j", cb_j.Checked)
sds.InsertParameters.Add("k", cb_k.Checked)
sds.InsertParameters.Add("l", cb_l.Checked)
sds.InsertParameters.Add("m", cb_m.Checked)
sds.InsertParameters.Add("n", cb_n.Checked)
sds.InsertParameters.Add("o", cb_o.Checked)
sds.InsertParameters.Add("p", cb_p.Checked)
sds.InsertParameters.Add("q", cb_q.Checked)
sds.InsertParameters.Add("r", cb_r.Checked)
sds.InsertParameters.Add("s", cb_s.Checked)
sds.InsertParameters.Add("t", cb_t.Checked)
sds.InsertParameters.Add("u", cb_u.Checked)
sds.InsertParameters.Add("v", cb_v.Checked)
sds.InsertParameters.Add("w", cb_w.Checked)
sds.InsertParameters.Add("x", cb_x.Checked)
sds.InsertParameters.Add("y", cb_y.Checked)
sds.InsertParameters.Add("z", cb_z.Checked)
If sds.Insert() > 0 Then
Response.Write("添加成功")
Else
Response.Write("添加失败")
End If
End Using
Me.GridView1.EditIndex = -1
Me.BindData()
End If
End Sub
Protected Sub GridView1_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GridView1.RowDeleting
Dim lbl_username As Label = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("lbl_username"), Label)
Dim lbl_userpass As Label = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("lbl_userpass"), Label)
Dim cb_a As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_a"), CheckBox)
Dim cb_b As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_b"), CheckBox)
Dim cb_c As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_c"), CheckBox)
Dim cb_d As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_d"), CheckBox)
Dim cb_e As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_e"), CheckBox)
Dim cb_f As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_f"), CheckBox)
Dim cb_g As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_g"), CheckBox)
Dim cb_h As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_h"), CheckBox)
Dim cb_i As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_i"), CheckBox)
Dim cb_j As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_j"), CheckBox)
Dim cb_k As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_k"), CheckBox)
Dim cb_l As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_l"), CheckBox)
Dim cb_m As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_m"), CheckBox)
Dim cb_n As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_n"), CheckBox)
Dim cb_o As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_o"), CheckBox)
Dim cb_p As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_p"), CheckBox)
Dim cb_q As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_q"), CheckBox)
Dim cb_r As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_r"), CheckBox)
Dim cb_s As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_s"), CheckBox)
Dim cb_t As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_t"), CheckBox)
Dim cb_u As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_u"), CheckBox)
Dim cb_v As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_v"), CheckBox)
Dim cb_w As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_w"), CheckBox)
Dim cb_x As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_x"), CheckBox)
Dim cb_y As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_y"), CheckBox)
Dim cb_z As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_z"), CheckBox)
Using sds As SqlDataSource = New SqlDataSource("Data Source=.;Initial Catalog=master;User ID=sa;Password=Abcdefg1", "")
sds.DeleteCommand = "delete from t_user where username = @username and userpass = @userpass and a = @a and b = @b and c = @c and d = @d and e = @e and f = @f and g = @g and h = @h and i = @i and j = @j and k = @k and l = @l and m = @m and n = @n and o = @o and p = @p and q = @q and r = @r and s = @s and t = @t and u = @u and v = @v and w = @w and x = @x and y= @y and z = @z"
sds.DeleteParameters.Add("username", lbl_username.Text)
sds.DeleteParameters.Add("userpass", lbl_userpass.Text)
sds.DeleteParameters.Add("a", cb_a.Checked)
sds.DeleteParameters.Add("b", cb_b.Checked)
sds.DeleteParameters.Add("c", cb_c.Checked)
sds.DeleteParameters.Add("d", cb_d.Checked)
sds.DeleteParameters.Add("e", cb_e.Checked)
sds.DeleteParameters.Add("f", cb_f.Checked)
sds.DeleteParameters.Add("g", cb_g.Checked)
sds.DeleteParameters.Add("h", cb_h.Checked)
sds.DeleteParameters.Add("i", cb_i.Checked)
sds.DeleteParameters.Add("j", cb_j.Checked)
sds.DeleteParameters.Add("k", cb_k.Checked)
sds.DeleteParameters.Add("l", cb_l.Checked)
sds.DeleteParameters.Add("m", cb_m.Checked)
sds.DeleteParameters.Add("n", cb_n.Checked)
sds.DeleteParameters.Add("o", cb_o.Checked)
sds.DeleteParameters.Add("p", cb_p.Checked)
sds.DeleteParameters.Add("q", cb_q.Checked)
sds.DeleteParameters.Add("r", cb_r.Checked)
sds.DeleteParameters.Add("s", cb_s.Checked)
sds.DeleteParameters.Add("t", cb_t.Checked)
sds.DeleteParameters.Add("u", cb_u.Checked)
sds.DeleteParameters.Add("v", cb_v.Checked)
sds.DeleteParameters.Add("w", cb_w.Checked)
sds.DeleteParameters.Add("x", cb_x.Checked)
sds.DeleteParameters.Add("y", cb_y.Checked)
sds.DeleteParameters.Add("z", cb_z.Checked)
If sds.Delete() > 0 Then
Response.Write("删除成功")
Else
Response.Write("删除失败")
End If
End Using
Me.GridView1.EditIndex = -1
Me.BindData()
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.BindData()
End Sub
Protected Sub GridView1_RowUpdating(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GridView1.RowUpdating
Dim txt_username As TextBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("txt_username"), TextBox)
Dim txt_userpass As TextBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("txt_userpass"), TextBox)
Dim cb_a As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_a"), CheckBox)
Dim cb_b As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_b"), CheckBox)
Dim cb_c As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_c"), CheckBox)
Dim cb_d As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_d"), CheckBox)
Dim cb_e As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_e"), CheckBox)
Dim cb_f As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_f"), CheckBox)
Dim cb_g As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_g"), CheckBox)
Dim cb_h As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_h"), CheckBox)
Dim cb_i As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_i"), CheckBox)
Dim cb_j As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_j"), CheckBox)
Dim cb_k As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_k"), CheckBox)
Dim cb_l As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_l"), CheckBox)
Dim cb_m As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_m"), CheckBox)
Dim cb_n As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_n"), CheckBox)
Dim cb_o As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_o"), CheckBox)
Dim cb_p As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_p"), CheckBox)
Dim cb_q As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_q"), CheckBox)
Dim cb_r As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_r"), CheckBox)
Dim cb_s As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_s"), CheckBox)
Dim cb_t As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_t"), CheckBox)
Dim cb_u As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_u"), CheckBox)
Dim cb_v As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_v"), CheckBox)
Dim cb_w As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_w"), CheckBox)
Dim cb_x As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_x"), CheckBox)
Dim cb_y As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_y"), CheckBox)
Dim cb_z As CheckBox = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("cb_z"), CheckBox)
Dim hf_username As HiddenField = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("hf_username"), HiddenField)
Dim hf_userpass As HiddenField = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("hf_userpass"), HiddenField)
Dim hf_a As HiddenField = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("hf_a"), HiddenField)
Dim hf_b As HiddenField = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("hf_b"), HiddenField)
Dim hf_c As HiddenField = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("hf_c"), HiddenField)
Dim hf_d As HiddenField = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("hf_d"), HiddenField)
Dim hf_e As HiddenField = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("hf_e"), HiddenField)
Dim hf_f As HiddenField = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("hf_f"), HiddenField)
Dim hf_g As HiddenField = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("hf_g"), HiddenField)
Dim hf_h As HiddenField = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("hf_h"), HiddenField)
Dim hf_i As HiddenField = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("hf_i"), HiddenField)
Dim hf_j As HiddenField = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("hf_j"), HiddenField)
Dim hf_k As HiddenField = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("hf_k"), HiddenField)
Dim hf_l As HiddenField = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("hf_l"), HiddenField)
Dim hf_m As HiddenField = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("hf_m"), HiddenField)
Dim hf_n As HiddenField = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("hf_n"), HiddenField)
Dim hf_o As HiddenField = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("hf_o"), HiddenField)
Dim hf_p As HiddenField = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("hf_p"), HiddenField)
Dim hf_q As HiddenField = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("hf_q"), HiddenField)
Dim hf_r As HiddenField = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("hf_r"), HiddenField)
Dim hf_s As HiddenField = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("hf_s"), HiddenField)
Dim hf_t As HiddenField = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("hf_t"), HiddenField)
Dim hf_u As HiddenField = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("hf_u"), HiddenField)
Dim hf_v As HiddenField = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("hf_v"), HiddenField)
Dim hf_w As HiddenField = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("hf_w"), HiddenField)
Dim hf_x As HiddenField = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("hf_x"), HiddenField)
Dim hf_y As HiddenField = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("hf_y"), HiddenField)
Dim hf_z As HiddenField = DirectCast(Me.GridView1.Rows(e.RowIndex).FindControl("hf_z"), HiddenField)
Using sds As SqlDataSource = New SqlDataSource("Data Source=.;Initial Catalog=master;User ID=sa;Password=Abcdefg1", "select count(*) from t_user where username = @username")
If Not txt_username.Text.Equals(hf_username.Value) Then
sds.SelectParameters.Add("username", txt_username.Text)
Dim i As Integer = DirectCast(sds.Select(DataSourceSelectArguments.Empty), System.Data.DataView)(0)(0)
If i > 0 Then
Response.Write("用户名已存在！")
Return
End If
End If
sds.UpdateCommand = "update t_user set username = @username_new, userpass = @userpass_new, a = @a_new, b = @b_new, c = @c_new, d = @d_new, e = @e_new, f = @f_new, g = @g_new, h = @h_new, i = @i_new, j = @j_new, k = @k_new, l = @l_new, m = @m_new, n = @n_new, o = @o_new, p = @p_new, q = @q_new, r = @r_new, s = @s_new, t = @t_new, u = @u_new, v = @v_new, w = @w_new, x = @x_new, y = @y_new, z = @z_new where username = @username_old and userpass = @userpass_old and a = @a_old and b = @b_old and c = @c_old and d = @d_old and e = @e_old and f = @f_old and g = @g_old and h = @h_old and i = @i_old and j = @j_old and k = @k_old and l = @l_old and m = @m_old and n = @n_old and o = @o_old and p = @p_old and q = @q_old and r = @r_old and s = @s_old and t = @t_old and u = @u_old and v = @v_old and w = @w_old and x = @x_old and y= @y_old and z = @z_old"
sds.UpdateParameters.Clear()
sds.UpdateParameters.Add("username_new", txt_username.Text)
sds.UpdateParameters.Add("userpass_new", txt_userpass.Text)
sds.UpdateParameters.Add("a_new", cb_a.Checked)
sds.UpdateParameters.Add("b_new", cb_b.Checked)
sds.UpdateParameters.Add("c_new", cb_c.Checked)
sds.UpdateParameters.Add("d_new", cb_d.Checked)
sds.UpdateParameters.Add("e_new", cb_e.Checked)
sds.UpdateParameters.Add("f_new", cb_e.Checked)
sds.UpdateParameters.Add("g_new", cb_e.Checked)
sds.UpdateParameters.Add("h_new", cb_h.Checked)
sds.UpdateParameters.Add("i_new", cb_i.Checked)
sds.UpdateParameters.Add("j_new", cb_j.Checked)
sds.UpdateParameters.Add("k_new", cb_k.Checked)
sds.UpdateParameters.Add("l_new", cb_l.Checked)
sds.UpdateParameters.Add("m_new", cb_m.Checked)
sds.UpdateParameters.Add("n_new", cb_n.Checked)
sds.UpdateParameters.Add("o_new", cb_o.Checked)
sds.UpdateParameters.Add("p_new", cb_p.Checked)
sds.UpdateParameters.Add("q_new", cb_q.Checked)
sds.UpdateParameters.Add("r_new", cb_r.Checked)
sds.UpdateParameters.Add("s_new", cb_s.Checked)
sds.UpdateParameters.Add("t_new", cb_t.Checked)
sds.UpdateParameters.Add("u_new", cb_u.Checked)
sds.UpdateParameters.Add("v_new", cb_v.Checked)
sds.UpdateParameters.Add("w_new", cb_w.Checked)
sds.UpdateParameters.Add("x_new", cb_x.Checked)
sds.UpdateParameters.Add("y_new", cb_y.Checked)
sds.UpdateParameters.Add("z_new", cb_z.Checked)
sds.UpdateParameters.Add("username_old", hf_username.Value)
sds.UpdateParameters.Add("userpass_old", hf_userpass.Value)
sds.UpdateParameters.Add("a_old", hf_a.Value)
sds.UpdateParameters.Add("b_old", hf_b.Value)
sds.UpdateParameters.Add("c_old", hf_c.Value)
sds.UpdateParameters.Add("d_old", hf_d.Value)
sds.UpdateParameters.Add("e_old", hf_e.Value)
sds.UpdateParameters.Add("f_old", hf_f.Value)
sds.UpdateParameters.Add("g_old", hf_g.Value)
sds.UpdateParameters.Add("h_old", hf_h.Value)
sds.UpdateParameters.Add("i_old", hf_i.Value)
sds.UpdateParameters.Add("j_old", hf_j.Value)
sds.UpdateParameters.Add("k_old", hf_k.Value)
sds.UpdateParameters.Add("l_old", hf_l.Value)
sds.UpdateParameters.Add("m_old", hf_m.Value)
sds.UpdateParameters.Add("n_old", hf_n.Value)
sds.UpdateParameters.Add("o_old", hf_o.Value)
sds.UpdateParameters.Add("p_old", hf_p.Value)
sds.UpdateParameters.Add("q_old", hf_q.Value)
sds.UpdateParameters.Add("r_old", hf_r.Value)
sds.UpdateParameters.Add("s_old", hf_s.Value)
sds.UpdateParameters.Add("t_old", hf_t.Value)
sds.UpdateParameters.Add("u_old", hf_u.Value)
sds.UpdateParameters.Add("v_old", hf_v.Value)
sds.UpdateParameters.Add("w_old", hf_w.Value)
sds.UpdateParameters.Add("x_old", hf_x.Value)
sds.UpdateParameters.Add("y_old", hf_y.Value)
sds.UpdateParameters.Add("z_old", hf_z.Value)
If sds.Update() > 0 Then
Response.Write("修改成功")
Else
Response.Write("修改失败")
End If
Me.GridView1.EditIndex = -1
Me.BindData()
End Using
End Sub
End Class
