符合条件后自动跳转怎么写？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

网页详细授权，符合条件后自动跳转到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

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

贴出httprequest和函数的完整代码

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 Select

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

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编辑过]

蓝版帮忙看看吧

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 "
                '根据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
            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)

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 = ""