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

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