Foxtable(狐表) → 用户栏目 → 专家坐堂 → 符合条件后自动跳转怎么写？


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

主题：符合条件后自动跳转怎么写？
帅哥哟，离线，有人找我吗？
南望
 小大  51楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：392 积分：3312 威望：0 精华：0 注册：2014/4/9 10:04:00 		  发帖心情 Post By：2021/3/11 22:25:00 [只看该作者]

刚刚又测试了一下，第一次有登录授权的时候能自动跳转，第二次再访问这个地址他就不跳转了。

 回到顶部
帅哥哟，离线，有人找我吗？
南望
 小大  52楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：392 积分：3312 威望：0 精华：0 注册：2014/4/9 10:04:00 		  发帖心情 Post By：2021/3/11 22:55:00 [只看该作者]

授权已经通过，cookies已经存入信息的时候，现有代码应该都不满足条件了，所以另写了一个条件，但这个条件只要有跳转语句e.WriteString(wb.Build) 就死循环，怎么回事？

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  53楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/11 23:01:00 [只看该作者]

   Else
        
        UserName = e.Cookies("username") '从cookie获取用户名和openid
        OpenID = e.Cookies("openid")
        
        If userName = "" OrElse OpenID = "" Then
            
            Dim p As String
            If openid="666" Then
                p="list.htm"
            Else
                p="list2.htm"
            End If

            Dim ul As String  = "https://open.weixin.qq.com/connect/oauth2/authorize?appid=666&redirect_uri=http%3a%2f%2fyuming.com%2f" & p & "&response_type=code&scope=snsapi_userinfo&state=123#wechat_redirect"
            wb.InsertHTML("<meta http-equiv='Refresh' c>") '跳转到授权链接
            e.WriteString(wb.Build)
            Return
else
           If openid="omu1u6AZ1PGSV7cFuABoHRRspcjs"  Then
              if e.path = “list2.hrm”
                wb.InsertHTML("<meta http-equiv='Refresh' c>")
            e.WriteString(wb.Build)
            Return
end if
            Else
              if e.path = “list.hrm”
                wb.InsertHTML("<meta http-equiv='Refresh' c>")
            e.WriteString(wb.Build)
            Return
end if
            End If
        End If
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
南望
 小大  54楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：392 积分：3312 威望：0 精华：0 注册：2014/4/9 10:04:00 		  发帖心情 Post By：2021/3/12 1:20:00 [只看该作者]

终于弄好了，非常感谢蓝老师！辛苦辛苦！

 回到顶部
帅哥哟，离线，有人找我吗？
南望
 小大  55楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：392 积分：3312 威望：0 精华：0 注册：2014/4/9 10:04:00 		  发帖心情 Post By：2021/3/12 13:58:00 [只看该作者]

如果想要再加几个HTM页来限制用上述方法有些乱，老师有逻辑更清晰点的方法吗？

因为要把list.htm下面的功能页也要符合固定openid才能访问如：addnew.htm\edit.htm等
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  56楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/12 14:07:00 [只看该作者]

添加一个表格管理，哪个openid可以访问哪些表。然后查表判断

 回到顶部
帅哥哟，离线，有人找我吗？
南望
 小大  57楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：392 积分：3312 威望：0 精华：0 注册：2014/4/9 10:04:00 		  发帖心情 Post By：2021/3/12 14:25:00 [只看该作者]

老师有没有相关的例子，我学习一下。用表格控制权限的

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  58楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/12 14:35:00 [只看该作者]

表格参考：http://www.foxtable.com/webhelp/topics/1600.htm，用户名（openid）和表名（网页名）两个列就可以了

If openid="omu1u6AZ1PGSV7cFuABoHRRspcjs"  Then
改为查表判断

if datatables("xx").find("openid=‘omu1u6AZ1PGSV7cFuABoHRRspcjs’ and 网页='" & e.path &"'")

 回到顶部
帅哥哟，离线，有人找我吗？
南望
 小大  59楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：392 积分：3312 威望：0 精华：0 注册：2014/4/9 10:04:00 		  发帖心情 Post By：2021/3/12 21:09:00 [只看该作者]

list.htm的完整功能包括（EDIT.HTM、ADDNEW.HTM)
list2.htm只有一个页面浏览功能。

用上面的方法如何让指定openid的以外的用户只能访问自己的list2.htm ，如果访问EDIT.HTM和ADDNEW.HTM时提示无权访问？
 回到顶部
帅哥哟，离线，有人找我吗？
南望
 小大  60楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：392 积分：3312 威望：0 精华：0 注册：2014/4/9 10:04:00 		  发帖心情 Post By：2021/3/13 0:38:00 [只看该作者]

基本调试出来了，但感觉逻辑好乱，那表基本上没用到啊。老师帮忙看看标红处代码，如果获取到e.path等于标红的内容则统一跳转到另一个HTM，我这样写太麻烦了，老师帮忙看看怎么改一下。

            If DataTables("GrantTable").sqlfind("useropenid='66666' and htmname='" & e.path &"'") IsNot Nothing Then
                If e.path = "list2.htm"
                    wb.InsertHTML("<meta http-equiv='Refresh' c>") 
                    e.WriteString(wb.Build)
                    Return
                End If
            Else
                If e.path = "list.htm" OrElse e.path = "addnew.htm" OrElse e.path = "edit.htm" 

                wb.InsertHTML("<meta http-equiv='Refresh' c>")
                    e.WriteString(wb.Build)
                    Return
                End If
            End If

[此贴子已经被作者于2021/3/13 1:14:53编辑过]
 回到顶部
总数 102 上一页 1 2 3 4 5 6 7 8 9 10 下一页 ..11
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04102 秒, 4 次数据查询