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