Dim e As RequestEventArgs = args(0)
Dim wb As New weui
If e.Cookies.ContainsKey("username") Then
msgbox("e.Cookies.ContainsKey("""username""") : " & e.Cookies("username"))
End If
Static UserTable As DataTable '定义一个变量,用于存储用户随机身份ID,以及最后一次活动时间.
Static ClearTime As Date
If UserTable Is Nothing Then '创建用于记录登录信息的临时表
ClearTime = Date.Now()
Dim dtb As New DataTableBuilder("UserInfos")
dtb.AddDef("UserName", Gettype(String), 160)
dtb.AddDef("UserGroup", Gettype(String), 160)
dtb.AddDef("UserPost", Gettype(String), 160)
dtb.AddDef("UserCode", Gettype(String), 160)
dtb.AddDef("UserID",Gettype(String),160)
dtb.AddDef("UserxtID",Gettype(String),160)
dtb.AddDef("ActiveTime",Gettype(Date))
UserTable = dtb.Build(True)
End If
If (Date.Now - ClearTime).TotalMinutes >= 30 Then '清除超过30分钟没有操作的登录信息
UserTable.DeleteFor("ActiveTime < #" & Date.Now.AddMinutes(-30) & "#")
ClearTime = Date.Now()
End If
Dim UserName As String
Dim UserGroup As String
Dim UserPost As String
Dim Password As String
Dim UserID As String
Dim UserxtID As String
Dim UserCode As String
If e.path = "logon.htm" Or e.path = "dlyz.htm" Then
If e.PostValues.count > 0 Then
msgbox("e.PostValues.count > 0")
If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password") Then
msgbox("postvalue(""username""): " & e.postvalues("username"))
Dim Verified As Boolean '用于标记用户是否通过了身份验证
UserName = e.PostValues("username")
Password = e.PostValues("password")
'
Dim drr As DataRow = _dt.sqlfind("name = '" & UserName & "' and password = '" & Password & "' and 代码 In ('YG','LW','FBS','GYS','CJYH')")
If drr IsNot Nothing Then
Verified = True
End If
If Verified Then
Dim dr As DataRow = UserTable.Find("UserName = '" & UserName & "'")
If dr IsNot Nothing Then '如果是重复登录,删除以前的登录信息
dr.Delete()
End If
UserID = Rand.NextString(16) '生成随机用户ID
UserName = EncryptText(drr("name"),"123","789") '将用户名加密.
UserGroup = EncryptText(drr("分组"),"123","789") '将用户名加密.
UserxtID = EncryptText(drr("ID"),"123","789") '将用户名加密.
UserCode = EncryptText(drr("代码"),"123","789") '将用户名加密.
msgbox("UserID :" & UserID)
msgbox("EncryptText(drr(""name"")) :" & UserName & " |EncryptText(drr(""分组"")) :" & UserGroup)
wb.AppendCookie("username",UserName) '将用户名和密码写入cookie
wb.AppendCookie("userid",UserId)
wb.AppendCookie("usergroup",UserGroup)
wb.AppendCookie("userxtid",UserxtID)
wb.AppendCookie("userpost",UserPost)
wb.AppendCookie("usercode",UserCode)
dr = UserTable.AddNew()
dr("UserName") = UserName
'dr("UserGroup") = UserGroup
'dr("UserPost") = UserPost
'dr("UserCode") = UserCode
dr("UserID") = UserId
'dr("UserxtID") = UserxtID
dr("ActiveTime") = Date.Now '记录登录时间
msgbox("usertable--UserID :" & dr("UserId") & " | userid :" & UserID & " | e.cookies(""userid""):" & e.cookies("userid") & " | e.cookies(""username""):" & e.cookies("username") & " | wb.AppendCookie(""usergroup"") :" & e.cookies("usergroup"))
wb.InsertHTML("<meta http-equiv='Refresh' c>") '直接跳转到首页
e.WriteString(wb.Build) '生成网页
Return True '必须的
End If
End If
End If
Else '其它页面从Cookie提取登录信息进行验证
msgbox("其他网页")
If e.Cookies.ContainsKey("username") Then
UserName = e.Cookies("username") '从cookie中获取用户名
UserID = e.Cookies("userid") '从cookie中获取 随机ID
Dim dr As DataRow = UserTable.Find("UserName = '" & UserName & "'")
msgbox("usertable--UserID :" & dr("UserId") & " | userid :" & UserID & " | e.cookies(""userid""):" & e.cookies("userid") & " | e.cookies(""username""):" & e.cookies("username") & " | wb.AppendCookie(""usergroup"") :" & e.cookies("usergroup"))
If dr IsNot Nothing AndAlso dr("UserID") = UserID Then '如果通过验证,更新活动时候,继续访问其它页面.
dr("ActiveTime") = Date.Now '更新活动时间
Else '如果验证失败
msgbox("验证失败")
wb.InsertHTML("<meta http-equiv='Refresh' c>") '那么直接跳转到登录页面
e.WriteString(wb.Build) '生成网页
Return False '必须的
End If
End If
End If
此主题相关图片如下：userid有值.png
此主题相关图片如下：静态表中有值,但cookie中没有值.png
静态表中有值,但cookie中没有值,没有增加成功.
加好友 
发短信
Post By：2019/4/8 9:49:00 [显示全部帖子]
