符合条件后自动跳转怎么写？ - 专家坐堂 - 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代码如下：

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楼的代码在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)

我不想用LOGON.HTM这个界面，就是单纯的网页授权，把e.path = "logon.htm"去掉了，代码只能正常执行一次，再刷新就是空白页

1、WX函数中的所有sb.Append都要改成wb.InserHtMl吗？

2、sb.AppendLine要改吗？

3、他们两个的区别是什么？

[此贴子已经被作者于2021/3/9 15:03:44编辑过]

明白了，问题解决。

刚刚测试把WXUSERS的一条记录删除，这个时候仍然能直接访问而不是获得详细信息，怎么回事？

做了一个尝试，把WX函数中的内容复制到HTTPREQUEST中，调试能正常获得OPENID等接口数据，

1、跟踪到在下面代码段时能获取到OPENID和USERNAME 后无限循环怎么回事？

2、用红色那行代码就能正常显示，造成这个的原因是什么？

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

’sb.AppendLine("欢迎" & UserName & "光临, <a href='http://wexin.foxtable.com'>刷新页面</a>")
Else
sb.AppendLine("你无权访问本系统")

主题：符合条件后自动跳转怎么写？