Foxtable(狐表)用户栏目专家坐堂 → httprequest1~7执行成功,但进入另外页面还是进入登录页面


  共有1731人关注过本帖树形打印复制链接

主题:httprequest1~7执行成功,但进入另外页面还是进入登录页面

帅哥哟,离线,有人找我吗?
zhangjian222200
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1519 积分:10712 威望:0 精华:0 注册:2016/9/12 11:18:00
httprequest1~7执行成功,但进入另外页面还是进入登录页面  发帖心情 Post By:2017/3/28 11:32:00 [只看该作者]

1.进入其他页面提示1、2、8
2.下面粉色部分需要给2分钟时间,一样进入登录页面

下面是httprequest事件代码:
If e.Path = "login.htm" OrElse e.Path = "personal.htm" Then
    Dim wb As New weui      
    msgbox(1)
    '身份验证
    Dim Verified As Boolean '用于标记用户是否通过了身份验证
    Dim UserName As String = e.Cookies("isj") '从cookie中获取用户名
    Dim Password As String = e.Cookies("imm") '从cookie中获取用户密码
    msgbox(2)
    If e.Path = "login.htm" '如果是通过登录页面访问,从PostValues即可中提取用户名和密码
        msgbox(3)
        If e.PostValues.ContainsKey("isj") AndAlso e.PostValues.ContainsKey("imm")  Then
            msgbox(4)
            UserName = e.PostValues("isj")
            Password = e.PostValues("imm")
        End If
    End If
    If e.Cookies.ContainsKey("isj") = False OrElse e.Cookies.ContainsKey("imm") = False Then
        msgbox(5)
        Dim dr As DataRow = DataTables("会员资料").sqlFind("手机 = '" & UserName & "'")
        If dr IsNot Nothing AndAlso dr("密码") = Password Then
            msgbox(6)
            Verified  = True
        End If
    End If
    If Verified AndAlso e.Path = "login.htm"  Then '如果用户访问的是登录页,且身份验证成功
        msgbox(7)
        wb.AppendCookie("isj",UserName) '将用户名和密码写入cookie
        wb.AppendCookie("imm",Password)
        wb.InsertHTML("<meta http-equiv='Refresh' c>") '直接跳转到首页
        e.WriteString(wb.Build) '生成网页
        Return '必须的
    ElseIf Verified = False AndAlso e.Path <> "login.htm" Then '如果用户身份验证失败,且访问的不是登录页面
        msgbox(8)
        wb.InsertHTML("<meta http-equiv='Refresh' c>") '那么直接跳转到登录页面
        e.WriteString(wb.Build) '生成网页
        Return '必须的
    End If
    Select Case e.Path
        Case "personal.htm"                                      '个人中心
            Functions.Execute("personal",e)
        Case "login.htm"                                   '登录页面
            Functions.Execute("login",e)
     end select
[此贴子已经被作者于2017/3/28 12:04:08编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/3/28 12:54:00 [只看该作者]

单独做个例子上来测试。

 回到顶部
帅哥哟,离线,有人找我吗?
zhangjian222200
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1519 积分:10712 威望:0 精华:0 注册:2016/9/12 11:18:00
  发帖心情 Post By:2017/3/28 13:38:00 [只看该作者]

1.login.htm登录后,httprequest事件1~7执行完,自动跳转到details.htm
2.在details.htm点击顶部“我的”,准备进入个人中心personal.htm,这时再次跳转到登录页面(无法进入personal.htm



[此贴子已经被作者于2017/3/28 15:31:13编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/3/28 15:10:00 [只看该作者]

看红色代码。

 

    If e.Cookies.ContainsKey("isj") = False OrElse e.Cookies.ContainsKey("imm") = False Then
        msgbox(5)
        Dim dr As DataRow = DataTables("会员资料").sqlFind("手机 = '" & UserName & "'")
        If dr IsNot Nothing AndAlso dr("密码") = Password Then
            msgbox(6)
            Verified  = True
        End If
    Else
        msgbox(222)
        Verified  = True

    End If


 回到顶部