我想使用数据库来验证用户名和密码，但是却不成功，请老师帮忙看下问题出在那Dim UserName As String = e.PostValues("username")
Dim Password As String = e.PostValues("password")
Dim UserID As String
If e.Path = "logon.htm" '验证用户名和密码
If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password") Then
Dim Verified As Boolean '用于标记用户是否通过了身份验证
UserName = e.PostValues("username")
Password = e.PostValues("password")
'If UserName = "张三" AndAlso Password = "888" Then '实际使用的时候,请改为从数据库读取用户名和密码进行比较
'Verified = True
End If
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "SELECT * Fr om {员工管理} Where [Name] Is Null"
_UserTable = cmd.ExecuteReader(True)
Dim UserName As String = e.Form.Controls("UserName").Value
Dim dr As DataRow
dr = _UserTable.SQLFind("[Name] = '" & UserName & "'")
If dr IsNot Nothing Then
If e.Form.Controls("PassWord").Value = dr("Password") Then
Verified = True
Else
End If
End If
加好友 
发短信
Post By：2017/5/19 9:31:00 [只看该作者]
