Foxtable(狐表) → 用户栏目 → 专家坐堂 → usesid


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

主题：usesid
帅哥哟，离线，有人找我吗？
qinjh18935180888
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：138 积分：1544 威望：0 精华：0 注册：2017/3/5 20:17:00 		usesid  发帖心情 Post By：2019/4/26 15:49:00 [显示全部帖子]

  说明书上取userid的例子，从逻辑上来说，有可能出现当第一次点击菜单时，通过code与e.Cookies("userid")取不到userid .这样进入授权链接。只有当再次点击菜单时，才能取出userid.这样会用户一个错觉，认为网打不开，或没有数据，因为没有userid时，就得不到这个人的相关权限。有没有更好的方法，点击一次就能取到userid呢？
If e.host = "wexin.foxtable.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
        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=wxa31aba4cd83af57e&redirect_uri=http%3a%2f%2fwexin.foxtable.com&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://wexin.foxtable.com'>刷新页面</a>")
    End If
    e.WriteString(sb.ToString)
End If
 回到顶部
帅哥哟，离线，有人找我吗？
qinjh18935180888
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：138 积分：1544 威望：0 精华：0 注册：2017/3/5 20:17:00 		  发帖心情 Post By：2019/4/26 16:24:00 [显示全部帖子]

老师：我的跳转链接好象不起作用，也就是跳转不到 e.post = "sxwytx.iego.cn"这个位置。不知什么原因？

if e.post = "sxwytx.iego.cn" then
If e.GetValues.ContainsKey("code")  Then
    Dim ul As String  = "https://qyapi.weixin.qq.com/cgi-bin/user/getuserinfo?access_token={0}&code={1}"
    ul = CExp(ul,Functions.Execute("GetQYAccessToken1"),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
    If userid = "" andalso e.GetValues.ContainsKey("code") = false then
        Dim ul As String = "https://open.weixin.qq.com/connect/oauth2/authorize?appid=ww51c9a9c0c93a7d18&redirect_uri=http%3a%2f%2fsxwytx.iego.cn&response_type=code&scope=snsapi_base&state=123#wechat_redirect"
        sb.Append("<meta http-equiv='Refresh' c>") '跳转到授权链接
        e.WriteString(sb.ToString)
        Return
    End If
End If
If userid > "" Then
    e.AppendCookie("userid",UserId) '将userid和username存储在Cookie中
    Dim dr1 As DataRow = DataTables("人员信息表").SQLFind("人员ID = '" & userid & "'")
    If dr1 IsNot Nothing Then
        Userrols = dr1("角色")
        usergroup = dr1("地市")
    End If
End If


Select Case e.Path
    Case "gxyh.htm"
        Functions.Execute("gxyh",e)
    Case "ccss.htm"
        sb.AppendLine("<meta name='viewport' c>")
        sb.AppendLine("您的帐号是:" &  userid & "<br/><br/>")
        sb.AppendLine("您的角色是:" & Userrols  & "<br/><br/>")
        sb.AppendLine("您的地市是:" & usergroup  & "<br/><br/>")
        e.WriteString(sb.ToString)
End Select
end if

[此贴子已经被作者于2019/6/8 21:58:19编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
qinjh18935180888
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：138 积分：1544 威望：0 精华：0 注册：2017/3/5 20:17:00 		  发帖心情 Post By：2019/6/8 22:01:00 [显示全部帖子]

老师：我的跳转链接好象不起作用，也就是跳转不到 e.post = "sxwytx.iego.cn"这个位置。不知什么原因？
        实际情况是：只要cookies中没有userid,只第一次获取不出openid,微信第二次打开时，才能获取出openid.经测试

if e.post = "sxwytx.iego.cn" then
If e.GetValues.ContainsKey("code")  Then
    Dim ul As String  = "https://qyapi.weixin.qq.com/cgi-bin/user/getuserinfo?access_token={0}&code={1}"
    ul = CExp(ul,Functions.Execute("GetQYAccessToken1"),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
    If userid = "" andalso e.GetValues.ContainsKey("code") = false then
        Dim ul As String = "https://open.weixin.qq.com/connect/oauth2/authorize?appid=ww51c9a9c0c93a7d18&redirect_uri=http%3a%2f%2fsxwytx.iego.cn&response_type=code&scope=snsapi_base&state=123#wechat_redirect"
        sb.Append("<meta http-equiv='Refresh' c>") '跳转到授权链接
        e.WriteString(sb.ToString)
        Return
    End If
End If
If userid > "" Then
    e.AppendCookie("userid",UserId) '将userid和username存储在Cookie中
    Dim dr1 As DataRow = DataTables("人员信息表").SQLFind("人员ID = '" & userid & "'")
    If dr1 IsNot Nothing Then
        Userrols = dr1("角色")
        usergroup = dr1("地市")
    End If
End If
Select Case e.Path
    Case "ccss.htm"
        sb.AppendLine("<meta name='viewport' c>")
        sb.AppendLine("您的帐号是:" &  userid & "<br/><br/>")
        sb.AppendLine("您的角色是:" & Userrols  & "<br/><br/>")
        sb.AppendLine("您的地市是:" & usergroup  & "<br/><br/>")
        e.WriteString(sb.ToString)
End Select
end if

[此贴子已经被作者于2019/6/8 22:07:19编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
qinjh18935180888
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：138 积分：1544 威望：0 精华：0 注册：2017/3/5 20:17:00 		  发帖心情 Post By：2019/6/9 11:38:00 [显示全部帖子]

    甜老师：每次路径都是"ccss.htm"，应该没有问题。经测试只要cookies存有userid ,则每次都 能正常获取出userid,如cookies 没存有userid 则第一次肯定获取不出userid,反复测试，应该是跳转问题，也就是跳转不到If e.host = "sxwytx.iego.cn" Then 这个位置，但跳转代码肯定执行了，因为再次进入的时候，能从coad 中获取出openid.只是跳转不到起始位置。苹果系统每次屏保后，因为系统的原因，每次都会清空cookies 所以出现这种情况的概率高。

 回到顶部
帅哥哟，离线，有人找我吗？
qinjh18935180888
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：138 积分：1544 威望：0 精华：0 注册：2017/3/5 20:17:00 		  发帖心情 Post By：2019/6/9 13:04:00 [显示全部帖子]

甜老师：这是我刚放msgbox(e.path)的位置。同时我也显示了一下：在code后面放了msgbox("1:" & UserId)  ；在UserId = e.Cookies("userid")后面放了msgbox("2:" & UserId) 。我把cookies清空后，第一次进入微信后，msgbox("1:" & UserId)没有显示，msgbox("2:" & UserId) 显示为空。再次进入入微信，msgbox("1:" & UserId)还是没有显示，msgbox("2:" & UserId) 显示正常的openid。我的理解是第二次进入微信应该是从code中获取出openid,但确是是从cookies中获取出openid的。也就是说清空cookies后，第一次进入微信，正常跳转是没有问题，openid也正常取出来了，但为什么显示不出来呢？



msgbox(e.path)  '刚才显示的位置
if e.post = "sxwytx.iego.cn" then
If e.GetValues.ContainsKey("code")  Then
    Dim ul As String  = "https://qyapi.weixin.qq.com/cgi-bin/user/getuserinfo?access_token={0}&code={1}"
    ul = CExp(ul,Functions.Execute("GetQYAccessToken1"),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")
msgbox("1:" & UserId)
    End If
Else
    UserId = e.Cookies("userid") '否则从cookie中提取userid和username
msgbox("2:" & UserId)
    If userid = "" andalso e.GetValues.ContainsKey("code") = false then
        Dim ul As String = "https://open.weixin.qq.com/connect/oauth2/authorize?appid=ww51c9a9c0c93a7d18&redirect_uri=http%3a%2f%2fsxwytx.iego.cn&response_type=code&scope=snsapi_base&state=123#wechat_redirect"
        sb.Append("<meta http-equiv='Refresh' c>") '跳转到授权链接
        e.WriteString(sb.ToString)
        Return
    End If
End If
If userid > "" Then
    e.AppendCookie("userid",UserId) '将userid和username存储在Cookie中
    Dim dr1 As DataRow = DataTables("人员信息表").SQLFind("人员ID = '" & userid & "'")
    If dr1 IsNot Nothing Then
        Userrols = dr1("角色")
        usergroup = dr1("地市")
    End If
End If
Select Case e.Path
    Case "ccss.htm"
        sb.AppendLine("<meta name='viewport' c>")
        sb.AppendLine("您的帐号是:" &  userid & "<br/><br/>")
        sb.AppendLine("您的角色是:" & Userrols  & "<br/><br/>")
        sb.AppendLine("您的地市是:" & usergroup  & "<br/><br/>")
        e.WriteString(sb.ToString)
End Select
end if
 回到顶部
帅哥哟，离线，有人找我吗？
qinjh18935180888
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：138 积分：1544 威望：0 精华：0 注册：2017/3/5 20:17:00 		  发帖心情 Post By：2019/6/10 15:08:00 [显示全部帖子]

甜老师：问题解决了，说明书的代码没有问题。出问题的原因是，我在服务器上放有两个项目A和B,A和B认证的跳转post是一样的，两个项目里都有获取 openid的过程，其中A跳转链接的时候，没有跳转到自己的项目上，而是跳转到B项目上。另还有一个问题想问一下：


这是接收用户消息的代码，我理解的是：接入认证与解密、解析消息根据代码逻辑并不能同时进行，也就是说两步工作只能做一个，做了认证的时候就不能解析消息，哪认证还有什么作用？要么是解析是不用认证的。还是我的理解有问题。
Select Case e.path
    Case "wefox"
        Dim wbiz As New WXBizCrypt("wxa31aba4cd83af57e","foxtable","ilsmyivvRPNj0qxSiSzWCnqm7cy1w1RcS6w2LBhsh7J")
        If e.Request.HttpMethod = "GET"
            Dim ret As Integer = wbiz.CheckQYSignature(e)
            If ret <> 0 Then '如果接入验证失败
                Dim err As String = wbiz.GetErorDesc(ret) '获取错误描述
            End If
        ElseIf e.Request.HttpMethod = "Post"            '
            Dim st As New Date(1970,1,1,8,0,0)
            Dim msg  As String = wbiz.DecryptMsg(e) '解密消息
            If  IsNumeric(msg) Then '如果解密失败
                Dim err As String = wbiz.GetErorDesc(CInt(msg)) '获取错误描述
                Return
            End If
            Dim xo As XObject = XObject.Parse(msg)
            Select Case xo("MsgType")
                Case "text","image","voice","video","shortvideo"
                    Dim dr As DataRow = DataTables("Message").AddNew()

            End Select
        End If
End Select
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05505 秒, 5 次数据查询