Foxtable(狐表)用户栏目专家坐堂 → [求助]移动应用关于用户ID


  共有3989人关注过本帖树形打印复制链接

主题:[求助]移动应用关于用户ID

帅哥哟,离线,有人找我吗?
ymjr2011
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:544 积分:7290 威望:0 精华:0 注册:2011/6/22 20:16:00
  发帖心情 Post By:2018/3/3 8:12:00 [只看该作者]

If e.host = "im.nb.com:81" 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
        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("Users").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=abcdefg&redirect_uri=http%3a%2f%2fxsim.nbxus.com%3a81&response_type=code&scope=snsapi_base&state=123#wechat_redirect"       
sb.Append("<meta http-equiv='Refresh' c>") '跳转到授权链接
        e.WriteString(sb.ToString)
        Return
    End If
    If Verified = False Then
        sb.AppendLine("你无权访问本系统")
    Else
        sb.AppendLine("欢迎" & UserName & " , <a href='http://im.nb.com:81'>刷新页面</a>")
    End If
    e.WriteString(sb.ToString)
End If

 回到顶部
帅哥哟,离线,有人找我吗?
ymjr2011
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:544 积分:7290 威望:0 精华:0 注册:2011/6/22 20:16:00
  发帖心情 Post By:2018/3/3 8:13:00 [只看该作者]

以上代码放在httprequest事件下的,然后通过企业微信进入此应用后页面无反应

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106356 积分:540921 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/3/3 9:05:00 [只看该作者]

先看看:http://www.foxtable.com/mobilehelp/scr/0006.htm

If e.host = "im.nb.com" andalso e.port = 81 then

 回到顶部
帅哥哟,离线,有人找我吗?
ymjr2011
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:544 积分:7290 威望:0 精华:0 注册:2011/6/22 20:16:00
  发帖心情 Post By:2018/3/3 13:23:00 [只看该作者]

还是没有任何信息提示

 回到顶部
帅哥哟,离线,有人找我吗?
ymjr2011
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:544 积分:7290 威望:0 精华:0 注册:2011/6/22 20:16:00
  发帖心情 Post By:2018/3/3 13:29:00 [只看该作者]

页面空白,无反应

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106356 积分:540921 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/3/3 14:22:00 [只看该作者]

贴出HttpRequest完整代码

 回到顶部
帅哥哟,离线,有人找我吗?
ymjr2011
  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:544 积分:7290 威望:0 精华:0 注册:2011/6/22 20:16:00
  发帖心情 Post By:2018/3/3 14:31:00 [只看该作者]

If e.host = "im.nb.com" andalso e.port = 81 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
        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

e.WriteString(userid)
    Dim Verified As Boolean
    Dim dr As DataRow = DataTables("Users").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=abcdefg&redirect_uri=http%3a%2f%2fim.nb.com%3a81&response_type=code&scope=snsapi_base&state=123#wechat_redirect"       
sb.Append("<meta http-equiv='Refresh' c>") '跳转到授权链接
        e.WriteString(sb.ToString)
        Return
    End If
    If Verified = False Then
        sb.AppendLine("你无权访问本系统")
    Else
        sb.AppendLine("欢迎" & UserName & " , <a href='http://im.nb.com:81'>刷新页面</a>")
    End If
    e.WriteString(sb.ToString)
End If

[此贴子已经被作者于2018/3/3 15:11:22编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106356 积分:540921 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/3/3 14:36:00 [只看该作者]


'需要授权才能访问的域名
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("Users").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=abcdefg&redirect_uri=http%3a%2f%2fxsim.nbxus.com%3a81&response_type=code&scope=snsapi_base&state=123#wechat_redirect"
    sb.Append("<meta http-equiv='Refresh' c>") '跳转到授权链接
    e.WriteString(sb.ToString)
    Return
End If
If Verified = False Then
    sb.AppendLine("你无权访问本系统")
Else
    sb.AppendLine("欢迎" & UserName & " , <a href='http://im.nb.com:81'>刷新页面</a>")
End If
e.WriteString(sb.ToString)


 回到顶部
帅哥哟,离线,有人找我吗?
ymjr2011
  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:544 积分:7290 威望:0 精华:0 注册:2011/6/22 20:16:00
  发帖心情 Post By:2018/3/3 15:10:00 [只看该作者]

版主,还是没有信息,但现在如果在,Dim Verified As Boolean  这句之前加入 e.WriteString(userid) 页面会显示一串字符串,不知道此信息是什么?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106356 积分:540921 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/3/3 15:14:00 [只看该作者]

上传实例

 回到顶部
总数 38 上一页 1 2 3 4 下一页