CSDN博客

img cn2004

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

发表于2004/10/10 14:07:00  1592人阅读

分类: 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
阅读全文
0 0

相关文章推荐

img
取 消
img