打开浏览器开发者工具看看cookie里面的username数据，再核对一下接收到的username数据是否一致
Case "default.html","cxfeiyong.html","input.html","list.html","visa" '其它页面从Cookie提取登录信息进行验证
Dim wb As New WeUI
UserName = e.Cookies("username") '从cookie中获取用户名
msgbox(UserName)
UserID = e.Cookies("userid") '从cookie中获取 随机ID
msgbox(UserID )
Dim dr As DataRow = UserTable.Find("UserName = '" & UserName & "'")
msgbox(dr IsNot Nothing)
msgbox(dr("UserName"))
msgbox(dr("UserID"))
If dr IsNot Nothing AndAlso dr("UserID") = UserID Then '如果通过验证,更新活动时候,继续访问其它页面.
dr("ActiveTime") = Date.Now '更新活动时间
Else '如果验证失败
wb.InsertHTML("<meta http-equiv='Refresh' c>") '那么直接跳转到登录页面
e.WriteString(wb.Build) '生成网页
Return '必须的
End If
加好友 
发短信
Post By：2019/7/30 17:57:00 [显示全部帖子]
