Foxtable(狐表)用户栏目专家坐堂 → [求助] 登陆成功之后 主页点任何按钮都 返回主页 怎么解决


  共有1844人关注过本帖平板打印复制链接

主题:[求助] 登陆成功之后 主页点任何按钮都 返回主页 怎么解决

美女呀,离线,留言给我吧!
TINOOOOOOOO
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:83 积分:608 威望:0 精华:0 注册:2019/4/22 15:09:00
[求助] 登陆成功之后 主页点任何按钮都 返回主页 怎么解决  发帖心情 Post By:2019/6/13 14:23:00 [只看该作者]

 在子页面的 开头都加了 

Dim Verified As Boolean '用于标记用户是否通过了身份验证
Dim UserName As String = e.Cookies("username") '从cookie中获取用户名
Dim Password As String = e.Cookies("password") '从cookie中获取用户密码
If e.Path = "logon.htm" '如果是通过登录页面访问,从PostValues即可中提取用户名和密码
    If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password")  Then
        UserName = e.PostValues("username")
        Password = e.PostValues("password")
    End If
End If
If UserName = "花花" AndAlso Password = "huahua" Then  '实际使用的时候,请改为从数据库读取用户名和密码进行比较
    Verified  = True
ElseIf Username = "草草" AndAlso Password="caocao" Then
    Verified  = True
End If
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) '生成网页
    
ElseIf Verified = False AndAlso e.Path <> "logon.htm" Then '如果用户身份验证失败,且访问的不是登录页面
    wb.InsertHTML("<meta http-equiv='Refresh' c>") '那么直接跳转到登录页面
    e.WriteString(wb.Build) '生成网页
End If

 用来防止网页直接登陆   效果是有了 但是 主页进去之后 按钮点击之后都返回 登陆页面 是 cookie的问题  还是其他的问题
[此贴子已经被作者于2019/6/13 14:25:14编辑过]

 回到顶部