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


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

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


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

httprequest代码上传了，麻烦老师
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:httprequest.txt
 回到顶部
帅哥，在线噢！
有点蓝
 小大  42楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

    If  OpenID > "" And UserName > "" Then

        '这里可以做进一步的权限判断

        'sb.AppendLine("欢迎" & UserName & "光临, <a href='http://wexin.foxtable.com'>刷新页面</a>")
        wb.InsertHTML("<meta http-equiv='Refresh' c>")
        e.WriteString(wb.Build)
    Else
        e.WriteString("你无权访问本系统")
        Return
    End If

改为

    If  OpenID > "" And UserName > "" Then
    Else
        e.WriteString("你无权访问本系统")
        Return
    End If
 回到顶部
帅哥哟，离线，有人找我吗？
南望
 小大  43楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

删除跳转的内容是可以正常执行了，但我
1、想在这个判断中跳转其他页面怎么办？
2、这个为什么会无限循环呢？
 回到顶部
帅哥哟，离线，有人找我吗？
南望
 小大  44楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

或者您教教我，如果在那个文本文件的代码中：
判断 openid="dkdkdkd" then
跳转list.htm页面

else

跳转到list2.htm页面

加到哪个位置合适，并且还需要做什么能避免跳过验证直接访问list和list页面？
 回到顶部
帅哥，在线噢！
有点蓝
 小大  45楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Dim wb As New weui
wb.InsertHTML("<meta name='viewport' c>")
If e.path = "lsit.htm" orelse e.path = "lsit2.htm"  Then '授权测试
    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,"wx8acdb7df5beb68fd","dec0df8a469518df30e9bdef0758c678",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)
            wb.InsertHTML("<meta http-equiv='Refresh' content='0; url=/" & e.path & "'>")
            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 ul As String  = "https://open.weixin.qq.com/connect/oauth2/authorize?appid=wxaecf57229ed535e0&redirect_uri=http%3a%2f%2fweixinyuming.com%2f" & e.path & "&response_type=code&scope=snsapi_userinfo&state=123#wechat_redirect"

            wb.InsertHTML("<meta http-equiv='Refresh' c>") '跳转到授权链接
            e.WriteString(wb.Build)
            Return
        End If
    End If
 回到顶部
帅哥哟，离线，有人找我吗？
南望
 小大  46楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

基本框架清楚了。那下面这个条件加到哪里合适呢

if openid="kkkkkk" then 
跳转list1.htm
else
跳转到LIST.htm
end if

感谢老师，辛苦了。
 回到顶部
帅哥，在线噢！
有点蓝
 小大  47楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


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

试了一下没有效果：
1、入口地址是哪个？目前我只是在微信中输入了域名（域名对应默认地址为LIST.HTM）不管是哪个微信号都只会指向“list.htm"而没有根据openid跳转到对应HTM
2、If e.path = "list.htm" orelse e.path = "list2.htm"  这句只有在”yuming.com/list.htm"条件才会被触发，直接用yuming.com不能触发
3、两个list.htm list.htm都可以互相访问
[此贴子已经被作者于2021/3/11 21:34:09编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  49楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


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

没错啊，我都按您说的改过了啊。yuming.com/list.htm 和 yuming.com/list2.htm都不能实现跳转，输入哪个地址就固定是哪个了，死活不跳转
Dim wb As New weui
wb.InsertHTML("<meta name='viewport' c>")

If e.path = "list.htm" OrElse e.path = "list2.htm"  Then

    Dim UserName As String
    Dim OpenID As String
    If e.GetValues.ContainsKey("code") Then 
        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,"2345","3479",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 openid="omu1u6AZ1PGSV7cFuABoHRRspcjs" Then
              
                wb.InsertHTML("<meta http-equiv='Refresh' c>")
            Else

                wb.InsertHTML("<meta http-equiv='Refresh' c>")
            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
            
            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
        End If
    End If
End If

Select Case e.path
    Case "list.htm",""  '首页
        Functions.Execute("List",e)
    Case "list2.htm"
        Functions.Execute("List2",e)
End Select
 回到顶部
总数 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.04688 秒, 5 次数据查询