- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 移动开发登录老要退出重新登录。 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=190008)
-- 发布时间：2024/1/10 16:46:00
-- 移动开发登录老要退出重新登录。
下面的登录页面代码。说是50分钟没有操作退出。但每次手机和电脑网页一般3-5分没有操作。再去操作时就自动退到登录界面要求录入用户名和密码重新登录，我不想几分钟不操作就退出。最少按设置的50分钟来也可以。要怎么弄。
-- 发布时间：2024/1/10 17:15:00
--
数据库里的dluser存储的是加密后的用户名，还是原名？
-- 发布时间：2024/1/11 9:05:00
--
数据库存的是原名，不是加密的名
-- 发布时间：2024/1/11 9:15:00
--
调试看看能不能从cookie取到正确的值
Else \'其它页面从Cookie提取登录信息进行验证
UserName = e.Cookies("username") \'从cookie中获取用户名
UserName = e.Cookies("username") \'从cookie中获取用户名
msgbox("UserName=" & UserName)
UserID = e.Cookies("userid") \'从cookie中获取 随机ID
msgbox("UserID =" & UserID )
Dim dr As DataRow = UserTable.Find("UserName = \'" & UserName & "\'")
msgbox(dr IsNot Nothing)
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
End If
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
End If