一个vb.net的用户登陆页面代码

    Private Sub Button2_Click（ByVal sender As System.Object， ByVal e As System.EventArgs） Handles Button2.Click

    If TextBox3.Text = "" Or TextBox4.Text = "" Then

    Label35.Text = "请确认您的输入！"

    Return

    End If

    Dim sql As String = "select * from pwd where stu_id=@stu_id and pwd=@pwd"

    Dim comm As SqlCommand = New SqlCommand（sql， conn）

    comm.Parameters.Add（New SqlParameter（"@stu_id"， SqlDbType.Int， 4））

    comm.Parameters（"@stu_id"）。Value = TextBox3.Text

    comm.Parameters.Add（New SqlParameter（"@pwd"， SqlDbType.Char， 16））

    comm.Parameters（"@pwd"）。Value = TextBox4.Text

    Dim dr As SqlDataReader

    conn.Open（）

    dr = comm.ExecuteReader

    If dr.Read Then

    Session（"stu_id"） = TextBox3.Text

    dr.Close（）

    comm.Cancel（）

    Dim sql_3 As String = "update stu_base set point=point+1 where stu_id=@stu_id"

    comm = New SqlCommand（sql_3， conn）

    comm.Parameters.Add（New SqlParameter（"@stu_id"， SqlDbType.Int， 4））

    comm.Parameters（"@stu_id"）。Value = Session（"stu_id"）

    comm.ExecuteNonQuery（）

    comm.Cancel（）

    Response.Redirect（"detail.aspx？stu_id='" & Session（"stu_id"） & "'"）

    Else

    Label35.Text = "您还没有注册或账号密码错误"

    End If

    End Sub

    Private Sub Button1_Click（ByVal sender As System.Object， ByVal e As System.EventArgs） Handles Button1.Click

    TextBox1.Text = ""

    TextBox2.Text = ""

    End Sub

查看本文来源