Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELEC T name,password,部门,直接上级,间接上级,账号,铁三角,[group],门店编号 From {用户数据表2} where [Name] = '" & UserName & "' or 门店编号 = '" & UserName & "'"
dt = cmd.ExecuteReader()
Dim dr As DataRow = dt.DataRows(0) 之前是用sqlfind，昨天改成这个
If dr IsNot Nothing Then
If Password = dr("Password") Then
Verified = True
wb.AppendCookie("bumen",dr("部门")) '在客户端存储Cookie
wb.AppendCookie("zhangtao",dr("账号")) '在客户端存储Cookie
wb.AppendCookie("zjsj",dr("直接上级")) '在客户端存储Cookie
wb.AppendCookie("jjsj",dr("间接上级")) '在客户端存储Cookie
wb.AppendCookie("group",dr("group")) '在客户端存储Cookie
wb.AppendCookie("tsj",dr("铁三角")) '在客户端存储Cookie
wb.AppendCookie("mdbh",dr("门店编号")) '在客户端存储Cookie 其实和username一样
End If
End If
If Verified AndAlso e.Path = "logon.htm" Then '如果用户访问的是登录页,且身份验证成功
wb.AppendCookie("username",UserName) '将用户名和密码写入cookie
wb.AppendCookie("password",Password)
wb.InsertHTML("<meta http-equiv='Refresh' c>") '直接跳转到首页
e.WriteString(wb.Build) '生成网页
Return '必须的
End If
加好友 
发短信
Post By：2017/12/18 17:36:00 [显示全部帖子]
