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


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

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


加好友 发短信
等级：超级版主 帖子：106732 积分：542855 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/11 20:42:00 [显示全部帖子]

                Else
                    e.WriteString(jo.ToString) '在用户浏览器显示错误信息
                    Return
                End If
            End If
            wb.AppendCookie("username",UserName) '用户名和openid存储在Cookie中
            wb.AppendCookie("openid",OpenID)
if openid="kkkkkk" then 
wb.InsertHTML("<meta http-equiv='Refresh' content='0; url=/list1.htm'>")
else
wb.InsertHTML("<meta http-equiv='Refresh' content='0; url=/list.htm'>")
end if
            
            e.WriteString(wb.Build) '在用户浏览器显示错误信息
            Return
        Else
            e.WriteString(jo.ToString) '在用户浏览器显示错误信息
            Return
        End If
    Else
        UserName = e.Cookies("username") '从cookie获取用户名和openid
        OpenID = e.Cookies("openid")
        
        If userName = "" OrElse OpenID = "" Then
            msgbox("没取到COOKIES")
dim p as string
if openid="kkkkkk" then 
p="list1.htm"
else
p="list.htm"
end if
            Dim ul As String  = "https://open.weixin.qq.com/connect/oauth2/authorize?appid=wxaecf57229ed535e0&redirect_uri=http%3a%2f%2fweixinyuming.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
        End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106732 积分：542855 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/11 21:56:00 [显示全部帖子]

自己核对一下名称咯

If e.path = "list.htm" orelse e.path = "list2.htm" 

那么判断里也使用list.htm和list2.htm
if openid="kkkkkk" then 
wb.InsertHTML("<meta http-equiv='Refresh' content='0; url=/list.htm'>")
else
wb.InsertHTML("<meta http-equiv='Refresh' content='0; url=/list2.htm'>")
end if
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106732 积分：542855 威望：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
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106732 积分：542855 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/12 14:07:00 [显示全部帖子]

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

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


加好友 发短信
等级：超级版主 帖子：106732 积分：542855 威望：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 &"'")

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


加好友 发短信
等级：超级版主 帖子：106732 积分：542855 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/13 10:02:00 [显示全部帖子]

把红色的几个页面也添加到表格里，然后useropenid设置为空

If e.path = "list.htm" OrElse e.path = "addnew.htm" OrElse e.path = "edit.htm" 

改为

If DataTables("GrantTable").sqlfind("useropenid is null and htmname='" & e.path &"'") IsNot Nothing Then
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106732 积分：542855 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/15 15:04:00 [显示全部帖子]

一样的用法啊，全部改为sqlfind查询判断

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


加好友 发短信
等级：超级版主 帖子：106732 积分：542855 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/15 16:09:00 [显示全部帖子]

不要把openid设置为空了，试试
Dim wb As New weui
wb.InsertHTML("<meta name='viewport' c>")

Dim UserName As String
Dim OpenID As String
If e.GetValues.ContainsKey("code") Then '如果是通过授权链接跳转而来,就从链接重提取code来获取openid
    Dim ul As String  = "https://api.weixin.qq.com/sns/oauth2/access_token?appid={0}&secret={1}&code={2}&grant_type=authorization_code"
    ul = CExp(ul,"wxaecf5rre23235e0","3a232323232323cfc0e3479",e.GetValues("code"))
    Dim hc As new HttpClient(ul)
    Dim jo As JObject = JObject.Parse(hc.GetData)
    If jo("openid") IsNot Nothing Then '如果获取openid成功(成功的话,还会同时返回一个accesstiken,用于获取用户详情)
        OpenID = jo("openid")
        Dim dr As DataRow = DataTables("WXUsers").SqlFind("openid ='" & Openid & "'")
        If dr IsNot Nothing Then
            UserName = dr("nickname")
        Else
            ul = "https://api.weixin.qq.com/sns/userinfo?access_token={0}&openid={1}&lang=zh_CN "
            '根据openid和accesstoken获取用户详情,注意这里这个accesstoken不是普通accesston,只能用于网页授权
            hc = New HttpClient(CExp(ul, jo("access_token"), OpenId))
            jo = jo.Parse(hc.GetData)
            If jo("openid") IsNot Nothing Then
                UserName = jo("nickname")
                dr = DataTables("WXUsers").AddNew()
                Dim nms() As String = {"openid","nickname","sex","city","country","province","headimgurl"} '""
                For Each nm As String In nms
                    dr(nm) = jo(nm)
                Next
                dr.Save
            Else
                e.WriteString(jo.ToString) '在用户浏览器显示错误信息
                Return
            End If
        End If
        wb.AppendCookie("username",UserName) '用户名和openid存储在Cookie中
        wb.AppendCookie("openid",OpenID)
        
        If DataTables("GrantTable").sqlfind("useropenid='" & OpenID & "' And htmname='" & e.path &"'") Is Nothing Then
            wb.InsertHTML("跳转到list.htm")
            e.WriteString(wb.Build) 
            Return
        End If
        
    Else
        e.WriteString(jo.ToString) '在用户浏览器显示错误信息
        Return
    End If
Else
    
    UserName = e.Cookies("username") '从cookie获取用户名和openid
    OpenID = e.Cookies("openid")
    Dim isopen As Boolean = DataTables("GrantTable").sqlfind("useropenid='" & OpenID & "' And htmname='" & e.path &"'") Is Nothing
    If userName = "" OrElse OpenID = "" Then
        'msgbox("没取到COOKIES")
        Dim p As String
        If isopen  Then
            p = "list.htm"
        Else
            p = e.path
        End If
        Dim ul As String  = "https://open.weixin.qq.com/connect/oauth2/authorize?appid=wxaecf57229ed535e0&redirect_uri=http%3a%2f%2fweixin.5gzvip.idcfengye.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 isopen AndAlso e.path <> "list.htm" Then
            wb.InsertHTML(跳转到list.htm)
            e.WriteString(wb.Build)
            Return
        End If
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106732 积分：542855 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/15 17:11:00 [显示全部帖子]

调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm

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


加好友 发短信
等级：超级版主 帖子：106732 积分：542855 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/16 16:25:00 [显示全部帖子]

2个地方

            Else
                e.WriteString(jo.ToString) '在用户浏览器显示错误信息
                Return
            End If
        End If
Dim dr As DataRow = DataTables("WXUsers").Find("openid  ='" & OpenID & "'") '根据openid找出对应的行
If OpenId > "" AndAlso dr IsNot Nothing AndAlso dr("permit") = True '授权成功
        wb.AppendCookie("username",UserName) '用户名和openid存储在Cookie中
        wb.AppendCookie("openid",OpenID)
        
        If openid="66666" Then
            'msgbox("weihopenid:" & openid )
            wb.InsertHTML("<meta http-equiv='Refresh' c>")
        Else
……

        e.WriteString(wb.Build)
        Return
    Else
Dim dr As DataRow = DataTables("WXUsers").Find("openid  ='" & OpenID & "'") '根据openid找出对应的行
If OpenId > "" AndAlso dr IsNot Nothing AndAlso dr("permit") = True '授权成功
        If openid <>"66666" Then
            

            If DataTables("GrantTable").sqlfind("htmname='" & e.path &"'") IsNot Nothing Then
                wb.InsertHTML("<meta http-equiv='Refresh' c>")
                e.WriteString(wb.Build)
                Return
            End If
 回到顶部
总数 44 上一页 1 2 3 4 5 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04883 秒, 5 次数据查询