以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  移动版检测是否登陆  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=114845)
--  作者：有点甜
--  发布时间：2018/2/23 18:19:00
--  
你的身份验证的代码，要写到httprequest事件的，每次都要检测一次的。
--  作者：有点蓝
--  发布时间：2018/2/23 20:16:00
--  
如果已经登录过，登录信息保存在Cookie，自然不会再验证登录。

先关闭浏览器，然后重新打开，第一次直接输入http://127.0.0.1/xkf1.htm也不会要求登录吗？
--  作者：有点蓝
--  发布时间：2018/2/24 11:47:00
--  
……
msgbox(Verified) \'这里提示什么值
If Verified AndAlso e.Path = "logon.htm"  Then \'如果用户访问的是登录页,且身份验证成功
    wb.AppendCookie("username",UserName) \'将用户名和密码写入cookie
    wb.AppendCookie("password",Password)
    wb.InsertHTML("<meta http-equiv=\'Refresh\' c>") \'直接跳转到首页
    e.WriteString(wb.Build) \'生成网页
    Return \'必须的
ElseIf Verified = False AndAlso e.Path <> "logon.htm" Then \'如果用户身份验证失败,且访问的不是登录页面
    wb.InsertHTML("<meta http-equiv=\'Refresh\' c>") \'这里代码不完整，截图看看
    e.WriteString(wb.Build) \'生成网页
    msgbox(e.Path) \'这里能够弹出来吗，提示什么内容？
    Return \'必须的
End If
[此贴子已经被作者于2018/2/24 11:48:10编辑过]
--  作者：有点甜
--  发布时间：2018/2/25 9:42:00
--  

检查一下更新，看是否升级到最新版了。

 

如果还有问题，先退回旧版使用。
--  作者：有点甜
--  发布时间：2018/2/26 1:15:00
--  
以下是引用yifan3429在2018/2/25 12:00:00的发言：
已经是最新的版本了
旧版文件没有了
[此贴子已经被作者于2018/2/25 12:06:53编辑过]

 

嗯嗯，这确实有问题。静候修复。
--  作者：有点甜
--  发布时间：2018/2/26 16:31:00
--  
你12楼的代码应该没问题的，你目前测试，现象是什么，访问什么地址，最后得到什么结果，和你预想有什么差距？
--  作者：有点甜
--  发布时间：2018/2/26 17:15:00
--  

身份验证的代码，应该写在你这些代码的前面吧？不然怎么验证？

 

Select Case e.Path
    Case "用户注册.htm"
        Functions.Execute("用户注册",e)
        \'Case "质量优化.htm"
        \'Functions.Execute("质量优化",e)
    Case "重点客户.htm"
        Functions.Execute("重点客户",e)
    Case "部门日志.htm"
        Functions.Execute("部门日志",e)
    Case "历史日志.htm"