企业微信网页授权直接跳转到菜单的网址 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我在菜单栏设置了一个按钮访问网址 www.dntextile.com/views/index/html

然后在网页首选时在request中设置了以下代码，为什么每次点击菜单栏的按钮时直接跳转带按钮设置的网址，没有进行以下验证

Dim e As RequestEventArgs=args(0)

If e.host = "www.dntextile.com" Then '需要授权才能访问的域名

Dim UserId As String

Dim UserName As String

Dim sb As New StringBuilder

'sb.AppendLine("<meta name='viewport' c>")

If e.GetValues.ContainsKey("code") Then '如果通过授权链接跳转而来,就根据传递过来的code参数调用接口,获取用户的UserId

'MessageBox.show("code")

Dim ul As String = "https://qyapi.weixin.qq.com/cgi-bin/user/getuserinfo?access_token={0}&code={1}"

ul = CExp(ul,Functions.Execute("GetQYAccessToken1",Functions.Execute("GET","企业微信",1)),e.GetValues("code"))

Dim hc As new HttpClient(ul)

Dim jo As JObject = JObject.Parse(hc.GetData)

If jo("UserId") IsNot Nothing Then

UserId = jo("UserId")

End If

Else

UserId = e.Cookies("userid") '否则从cookie中提取userid和username

End If

Dim Verified As Boolean

Dim dr As DataRow = DataTables("user").Find("userid ='" & UserId & "'") '根据openid找出对应的行

If UserId > "" AndAlso dr IsNot Nothing AndAlso dr("permit") = True '授权成功

Verified = True

UserName = dr("name")

e.AppendCookie("userid",UserId) '将userid和username存储在Cookie中

ElseIf e.GetValues.ContainsKey("code") = False Then '如果授权失败,且不是通过授权链接跳转而来,那么就跳转到授权链接

Dim ul1 As String = "https://open.weixin.qq.com/connect/oauth2/authorize?appid={0}&redirect_uri={1}&response_type=code&scope=snsapi_base&state={2}#wechat_redirect"

Dim ul2 As String = UrlEncode("http://www.dntextile.com/views/index.html")

ul1 = CExp(ul1,Functions.Execute("GET","企业微信",0),ul2,"123")

sb.Append("<meta http-equiv='Refresh' c>") '跳转到授权链接

e.WriteString(sb.ToString)

Return Nothing

End If

If Verified = False Then

sb.AppendLine("你无权访问本系统")

Else

sb.AppendLine("欢迎" & UserName & " , <a href='http://wexin.foxtable.com'>刷新页面</a>")

End If

e.WriteString(sb.ToString)

End If

主题：企业微信网页授权直接跳转到菜单的网址