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