关于登录的一个问题

[leitingkitty]

各位大虾
我在做一个登录模块，用的是vb.net
和sql server数据库已经建立连接
但是判断姓名和密码是否和库中一致的语句写不好
谁能给我说说啊？！
算法如下：
和库中姓名密码一致则进入aa.aspx
为空或不一致怎提醒重新输入

[sean168]

DataTable Dt=new DataTable();
Dat.Fill(Dt);
if(Dt.Rows.Count>0)
{
Session["SessUserName"]=UserName;
FormsAuthentication.RedirectFromLoginPage(UserName,false);
Response.Redirect("default.aspx?User="+this.TextBox1.Text.Trim());
}
else
{
Response.Write("<script>alert('你输入的密码错误！')</script>");
}

[fayewang]

最好是先判断用户名.然后再判断密码
用 if()
{
if()
{
}
}

[stoneyu]

楼主什么问题?
验证,还是什么其他的?

[hackate]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim struser As String
Dim strpass As String
Dim bjuser As String
Dim bjpass As String

If Trim(TextBox1.Text) = "" Or Trim(TextBox2.Text) = "" Then
Response.Write("<script>alert('用户名或者密码不能为空');</script>")
Exit Sub
Else
struser = Replace(TextBox1.Text, "'", "")
strpass = Replace(TextBox2.Text, "'", "")
End If

conn = New SqlClient.SqlConnection("server=192.168.1.5;UID=hackate;PWD=123;database=hackate")
conn.Open()
cmd = New SqlClient.SqlCommand("select * from admin where id=1", conn)
rs = cmd.ExecuteReader()
rs.Read()
bjuser = rs("admin_name")
bjpass = rs("admin_pass")
rs.Close()
conn.Close()

If (struser <> bjuser) Or (strpass <> bjpass) Then
Response.Write("<script>alert('用户名或者密码错误！');</script>")
Else
Session("admin") = bjuser
Response.Write("<script>alert('恭喜您，登陆成功！');location.href='admin.aspx';</script>")
End If
End Sub

[hchxxzx]

sql = "select count(*) from table where '" & 用户名输入框.Text.Replace("'","''") & "' and '" & 密码框.Text.Replace("'","''") & "'"
求取它的值,为0表示没有此用户
if 值="0" then
response.write("<script>alert('无此用户');</script>")
response.end()
end if

[leitingkitty]

报错：“/jxxt”应用程序中的服务器错误。
--------------------------------------------------------------------------------

在没有任何数据时进行无效的读取尝试。


我写的代码和上面hackate一样 ，可是问什么会有这样的错误呢？

[hchxxzx]

问题在这里
rs = cmd.ExecuteReader()
rs.Read()
bjuser = rs("admin_name")
bjpass = rs("admin_pass")
rs.Close()
conn.Close()
当你要找的记录不存在时,它仍然尝试去读取,所以出错了.改为如下:
if rs.Read() then
bjuser = rs("admin_name")
bjpass = rs("admin_pass")
end if