登录验证其怪问题求助
各位大大,小弟今天遇到一个问题,实在无法解决。
希望借助这段代码,连接到SQLServer2005 读取预置用户数据库,读取验证信息。但无论如何修改代码和数据类型,程序都不执行
Page.Response.Write("<script>alert('欢迎回来!')</script>")
用附加代码单独比较了myRow.Item("Password").ToString 与 txtCode.Text 的值,一样的,但是程序就是判定它们不是一样,就是不执行。这到底是为什么啊?
代码如下:
Imports System.Data
Imports System.Data.SqlClient
Partial Class _验证
Inherits System.Web.UI.Page
Protected myDataSet As New DataSet
Protected myDataAdapter As New SqlDataAdapter
Protected myConnection As New SqlConnection("SERVER=Bryan-Vaio;DATABASE=测试;Integrated Security=SSPI")
Protected Sub btnOk_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnOk.Click
Try
myDataAdapter.SelectCommand = New SqlCommand
myDataAdapter.SelectCommand.Connection = myConnection
myDataAdapter.SelectCommand.CommandType = CommandType.Text
myDataAdapter.SelectCommand.CommandText = "SELECT Top 1 PassWord FROM 登陆 Where Name=" + "'" + txtID.Text + "'"
myConnection.Open()
myDataAdapter.Fill(myDataSet, "登陆")
myConnection.Close()
Dim myRow As DataRow
myRow=myDataSet.Tables("登陆").Rows(0)
If myRow.Item("Password").ToString=txtCode.Text Then
Page.Response.Write("<script>alert('欢迎回来!')</script>")
Else
Page.Response.Write("<script>alert('密码错误!')</script>")
End If
Page.Response.Write(myRow.Item("Password").ToString)
Catch ex As Exception
Page.Response.Write("<script>alert('用户名不存在!')</script>")
End Try
End Sub
Protected Sub btnChange_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnChange.Click
txtID.Text = ""
txtCode.Text = ""
End Sub
End Class
------解决方案--------------------试一下跟踪myRow.Item("Password").ToString 与 txtCode.Text 的值分别是多少再想想问题出哪.
代码米看出问题.
另外, BASIC代码看着头痛.