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

发布网友 发布时间：2023-05-22 03:05

我来回答

共1个回答

热心网友 时间：2024-11-15 00:03

　　Private Sub Button _Click（ByVal sender As System Object ByVal e As System EventArgs） Handles Button Click

　　If TextBox Text = Or TextBox Text = Then

　　Label Text = 请确认您的输入！

　　Return

　　End If

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

　　Dim m As SqlCommand = New SqlCommand（sql conn）

　　m Parameters Add（New SqlParameter（ @stu_id SqlDbType Int ））

　　m Parameters（ @stu_id ） Value = TextBox Text

　　m Parameters Add（New SqlParameter（ @pwd SqlDbType Char ））

　　m Parameters（ @pwd ） Value = TextBox Text

　　Dim dr As SqlDataReader

　　conn Open（）

　　dr = m ExecuteReader

　　If dr Read Then

　　Session（ stu_id ） = TextBox Text

　　dr Close（）

　　m Cancel（）

　　Dim sql_ As String = update stu_base set point=point+ where stu_id=@stu_id

　　m = New SqlCommand（sql_ conn）

　　m Parameters Add（New SqlParameter（ @stu_id SqlDbType Int ））

　　m Parameters（ @stu_id ） Value = Session（ stu_id ）

　　m ExecuteNonQuery（）

　　m Cancel（）

　　Response Redirect（ detail aspx？stu_id= & Session（ stu_id ） & ）

　　Else

　　Label Text = 您还没有注册或账号密码错误

　　End If

　　End Sub

　　Private Sub Button _Click（ByVal sender As System Object ByVal e As System EventArgs） Handles Button Click

　　TextBox Text =

　　TextBox Text =