VB.NET中怎么实现用户登录页面，很多新手对此不是很清楚，为了帮助大家解决这个难题，下面小编将为大家详细讲解，有这方面需求的人可以来学习下，希望你能有所收获。
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
看完上述内容是否对您有帮助呢？如果还想对相关知识有进一步的了解或阅读更多相关文章，请关注编程网行业资讯频道，感谢您对编程网的支持。
