开发企业微信的网页授权接口弹出错误提示 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim e As RequestEventArgs = args(0)

If e.host = args(1) Then '需要授权才能访问的域名,这里改成函数是方便修改经常变动的ip地址 https://:218/wxentrance

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

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

ul = CExp(ul,Functions.Execute("GetQYAccessToken"),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("微信用户表").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 ul 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 hcul As String = "https://" & args(1) & ":218/wxentrance"

Dim ul2 As String = UrlEncode(hcul))

ul = CExp(ul,"ww99ccca76083987047",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

主题：开发企业微信的网页授权接口弹出错误提示