Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共4 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:移动开发登录老要退出重新登录。

1楼
chinawangsa 发表于:2024/1/10 16:46:00
下面的登录页面代码。说是50分钟没有操作退出。但每次手机和电脑网页一般3-5分没有操作。再去操作时就自动退到登录界面要求录入用户名和密码重新登录,我不想几分钟不操作就退出。最少按设置的50分钟来也可以。要怎么弄。
图片点击可在新窗口打开查看
图片点击可在新窗口打开查看
2楼
有点蓝 发表于:2024/1/10 17:15:00
数据库里的dluser存储的是加密后的用户名,还是原名?


3楼
chinawangsa 发表于:2024/1/11 9:05:00
数据库存的是原名,不是加密的名

4楼
有点蓝 发表于:2024/1/11 9:15:00
调试看看能不能从cookie取到正确的值

Else '其它页面从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
共4 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .04297 s, 2 queries.