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


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

主题:符合条件后自动跳转怎么写?

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


加好友 发短信
等级:小狐 帖子:392 积分:3312 威望:0 精华:0 注册:2014/4/9 10:04:00
符合条件后自动跳转怎么写?  发帖心情 Post By:2021/3/8 23:47:00 [只看该作者]

网页详细授权,符合条件后自动跳转到DEFAULT.HTM(自定义函数)怎么写?下面的两种方法都是不断的循环跳转怎么回事?


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)
        Return ""
end if

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


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

上面的代码也放到自定义函数里了

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

贴出httprequest和函数的完整代码

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


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

HTTPREQUEST代码如下:
Functions.Execute("wx",e) ‘WX函数就是网页详情授权代码,调试没问题!
Select Case e.path
    Case "logon.htm" '登录页面
        Functions.Execute("login",e)
    Case "exit.htm" '退出登录
        Functions.Execute("exit",e)
    'Case "", "default.htm" '首页
    Case "default.htm" '首页
        Functions.Execute("default",e)
    Case "list.htm"
        Functions.Execute("List",e)
    Case "addnew.htm"
        Functions.Execute("AddNew",e)
    Case "edit.htm"
        Functions.Execute("Edit",e)
    Case "delete.htm"
        Functions.Execute("Delete",e)
    Case "handle.htm"
        Functions.Execute("handle",e)
    Case "tongji.htm"
        Functions.Execute("Statistics",e)
    Case "filter.htm"
        Functions.Execute("Filter",e)
    Case "wefox"
        If e.Request.HttpMethod.ToUpper = "GET"
            If Functions.Execute("VerifySignature",e) Then
                e.WriteString(e.GetValues("echostr"))
            End If
        End If
End Select

 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

1楼代码在哪个函数?贴出函数完整代码

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


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

1楼的代码在WX自定义函数中,代码与帮助中“网页详情授权“一模一样,只是下面满足条件自动跳转实现不了。
我改成1楼的代码后通过授权就不断的刷新页面,不能显示出default.htm页面

If  OpenID > "" And UserName > "" Then

        '这里满足条件时需要自动跳转到DEFAULT.HTM页,如何实现?
        sb.AppendLine("欢迎" & UserName & "光临, <a href='自己的域名'>刷新页面</a>")
    Else
        sb.AppendLine("你无权访问本系统")
   
End If
End
If
[此贴子已经被作者于2021/3/9 10:35:56编辑过]

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


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

蓝版帮忙看看吧图片点击可在新窗口打开查看

 回到顶部
帅哥,在线噢!
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

贴出完整代码

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


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

Dim sb As New StringBuilder
sb
.AppendLine("<meta name='viewport' c>")
If
e.host = "wexin.foxtable.com" 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").Find("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 "
                '
根据openidaccesstoken获取用户详情,注意这里这个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
            e.AppendCookie("username",UserName) '
用户名和openid存储在Cookie
            e.AppendCookie("openid",OpenID)
        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 ul As String  = "https://open.weixin.qq.com/connect/oauth2/authorize?appid=wx8acdb7df5beb68fd&redirect_uri=http%3a%2f%2fwexin.foxtable.com&response_type=code&scope=snsapi_userinfo&state=123#wechat_redirect"
            sb.Append("<meta http-equiv='Refresh' c>") '
跳转到授权链接
            e.WriteString(sb.ToString)
            Return
        End If
    End If
    If  OpenID > "" And UserName > "" Then
       
'满足条件如何自动跳转(非手动单击链接)到default.htm
        sb.AppendLine("欢迎" & UserName & "光临, <a href='http://wexin.foxtable.com'>刷新页面</a>")
    Else
        sb.AppendLine("你无权访问本系统")
   
End If
End
If
e
.WriteString(sb.ToString)

 回到顶部
帅哥,在线噢!
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

sb.AppendLine("<meta http-equiv='Refresh' content='0; url=/default.htm'>")

HTTPREQUEST代码:
      dim  UserName = e.Cookies("username"'cookie获取用户名和openid
     dim   OpenID = e.Cookies("openid")
if e.path = "logon.htm" orelse userName = "" OrElse OpenID = ""
Functions.Execute("wx",e) ‘WX函数就是网页详情授权代码,调试没问题!
return
end if
Select Case e.path
    Case "logon.htm" '登录页面
        Functions.Execute("login",e)
    Case "exit.htm" '退出登录
        Functions.Execute("exit",e)

 回到顶部
总数 102 1 2 3 4 5 6 7 8 9 10 下一页 ..11