一个登录页面,为什么总是先弹出错误提示,然后才验证用户名密码?郁闷之极~~~~~~~~
一个实现管理员登录的程序,应该是先判断用户名和密码,然后,如果错误的话再弹出错误提示。但是我写的程序总是先弹出错误提示(不管密码正不正确),再验证用户名和密码,真是郁闷!!!
程序的部分代码:
private sub check_name()
Dim sqlConn As New SqlConnection("...")
Dim sqlCmd As New SqlCommand
sqlCmd.Connection = sqlConn
sqlCmd.CommandText = "pro_login" //这是我写的存储过程名
sqlCmd.CommandType = CommandType.StoredProcedure
sqlConn.Open()
//以下是参数定义
sqlCmd.Parameters.Add(New SqlParameter("@name", SqlDbType.VarChar, 20))
sqlCmd.Parameters("@name").Value = TextBox1.Text
sqlCmd.Parameters.Add(New SqlParameter("@pswd", SqlDbType.VarChar, 32))
sqlCmd.Parameters("@pswd").Value = TextBox2.Text
定义一个DataReader//
Dim sqlReader As SqlDataReader = sqlCmd.ExecuteReader
If sqlReader.Read Then
Session("user_name") = TextBox1.Text
Response.Redirect("manage.aspx")
ElseIf Not sqlReader.Read Then
submit.Attributes("onclick") = "javascript:alert('用户名或密码不正确,请重新输入')"
submit.Attributes.Add("onclick", "return alert('用户名或密码不正确,请重新输入')")
TextBox1.Text = ""
TextBox2.Text = ""
End If
sqlConn.Close()
sqlConn = Nothing
end sub
我没搞懂程序哪点有错?但为什么总是要先弹出错误提示呢?高人,帮我一下啊,谢谢!!!