Dim zh As String = e.Cookies("zh") '从cookie中获取用户名
Dim bh As String = e.Cookies("bh")
Dim mm As String = e.Cookies("mm") '从cookie中获取用户密码
If e.Path = "logon.htm" '如果是通过登录页面访问,从PostValues即可中提取用户名和密码
If e.PostValues.ContainsKey("bh") AndAlso e.PostValues.ContainsKey("mm") Then
bh = e.PostValues("bh")
mm = e.PostValues("mm")
‘’Dim tr As DataRow=DataTables("人员表").sqlfind("编号='" & bh & "' and 启用=1 and 密码='" & EncryptText(mm,"e5","ff") & "'" )
‘’If tr IsNot Nothing Then
‘’ Verified = True
‘’ zh=tr("姓名")
‘’End If
End If
End If
Dim tr As DataRow=DataTables("人员表").sqlfind("编号='" & bh & "' and 启用=1 and 密码='" & EncryptText(mm,"e5","ff") & "'" )
If tr IsNot Nothing Then
Verified = True
zh=tr("姓名")
End If
放到蓝色部分
提示:
.NET Framework 版本:2.0.50727.8794
Foxtable 版本:2017.8.19.1
错误所在事件:项目,HttpRequest
详细错误信息:
String 引用没有设置为 String 的实例。
参数名: s
用messbox弹了一下bh mm是空值
我把身份验证判断放到红色部分 无法验证跳转 但bh mm有数据