……dt = cmd.ExecuteReader()
If dt.DataRows.count > 0 Then
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
End If
……
加好友 
发短信
Post By：2017/12/18 20:38:00 [显示全部帖子]
