日期:2014-05-18  浏览次数:20583 次

登录验证其怪问题求助
各位大大,小弟今天遇到一个问题,实在无法解决。
希望借助这段代码,连接到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代码看着头痛.