弹出编号和密码看看
Dim Verified As Boolean '用于标记用户是否通过了身份验证
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") '
End If
End If
msgbox(bh)
msgbox(mm)
If bh > "" AndAlso mm > "" Then
Dim tr As DataRow=DataTables("人员表").sqlfind("编号='" & bh & "' and 启用=1 and 密码='" & EncryptText(mm,"a5","erp") & "'" )
If tr IsNot Nothing Then
Verified = True
zh=tr("姓名")
MessageBox.show("2")
End If
End If
加好友 
发短信
Post By：2017/9/20 17:31:00 [显示全部帖子]
