以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  手机微信Cookie不能记录，并返回错误，而电脑微信是正常的  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=129094)
--  作者：xluoping
--  发布时间：2018/12/21 12:08:00
--  手机微信Cookie不能记录，并返回错误，而电脑微信是正常的
求救：如题，问题，手机微信Cookie不能记录，并返回错误，而电脑微信是正常的。我分别用e.AppendCookie和wb.AppendCookie都试过。


Dim e As RequestEventArgs = args(0)  \'非wefox 网页
Dim wb As New weui
Dim hst As String = e.Host
Dim agent As String = e.request.UserAgent
If agent.Contains("MicroMessenger") AndAlso hst.Contains("weixin.") Then
    Dim sb As New StringBuilder
    sb.AppendLine("<meta name=\'viewport\' c>")
    Dim UserName As String
    Dim OpenID As String
    If e.GetValues.ContainsKey("code") Then \'如果是通过授权链接跳转而来,就从链接重提取code来获取openid
        Dim ul As String  = "https://api.weixin.qq.com/sns/oauth2/access_token?appid={0}&secret={1}&code={2}&grant_type=authorization_code"
        ul = CExp(ul,"wxac4b45141***0fa1","21ecf2359297***05a408f78222d57db",e.GetValues("code"))
        Dim hc As new HttpClient(ul)
        Dim jo As JObject = JObject.Parse(hc.GetData)
        If jo("openid") IsNot Nothing Then \'如果获取openid成功(成功的话,还会同时返回一个accesstiken,用于获取用户详情)
            OpenID = jo("openid")
            Dim dr As DataRow = DataTables("WXUsers").Find("openid =\'" & Openid & "\'")
            If dr IsNot Nothing Then
                UserName = dr("nickname")
            Else
                ul = "https://api.weixin.qq.com/sns/userinfo?access_token={0}&openid={1}&lang=zh_CN "
                \'根据openid和accesstoken获取用户详情,注意这里这个accesstoken不是普通accesston,只能用于网页授权
                hc = New HttpClient(CExp(ul, jo("access_token"), OpenId))
                jo = jo.Parse(hc.GetData)
                If jo("openid") IsNot Nothing Then
                    dr = DataTables("WXUsers").AddNew()
                    UserName = jo("nickname")
                    If e.Cookies.ContainsKey("open") AndAlso jo("openid") <> e.Cookies("open") Then  \'如果是分享的
                        dr("上级openid") = e.Cookies("open")
                    End If
                    Dim nms() As String = {"openid","nickname","sex","city","country","province","headimgurl","groupid","remark","language","tagid_list","permit","subscribe_time"} \'""
                    For Each nm As String In nms
                        If jo(nm) IsNot Nothing Then
                            dr(nm) = jo(nm)
                        End If
                    Next
                    dr("全部") = jo.ToString
                    dr("permit") = True
                    dr.Save
                Else
                    e.WriteString(jo.ToString) \'在用户浏览器显示错误信息
                    Return ""
                End If
            End If
            
            \'e.AppendCookie("username",UserName) \'用户名和openid存储在Cookie中
            \'e.AppendCookie("openid",OpenID)
            wb.AppendCookie("username",UserName) \'用户名和openid存储在Cookie中
            wb.AppendCookie("openid",OpenID)
MessageBox.Show(e.Cookies("openid") & e.Cookies("username"))                                   \'这里，手机微信访问时，弹出空，电脑微信登录时正常！
      Else
            e.WriteString(jo.ToString) \'在用户浏览器显示错误信息                \'这里，电脑微信登录时正常；手机微信访问时，错误！ 内容是：{ "errcode": 40163, "errmsg": "code been used, hints: [ req_id: 99_hNA05062271 ]" }
            Return ""
        End If
    Else
        UserName = e.Cookies("username") \'从cookie获取用户名和openid
        OpenID = e.Cookies("openid")
        If UserName = "" OrElse OpenID = "" Then
            Dim urlst As String = e.Request.URL.ToString
            urlst = urlst.Replace(":","%3a")
            urlst = urlst.Replace("/","%2f")
            Dim ul As String  = "https://open.weixin.qq.com/connect/oauth2/authorize?appid=wxac4b45141***0fa1&redirect_uri=" & urlst & "&response_type=code&scope=snsapi_userinfo&state=123&connect_redirect=1#wechat_redirect"   \'http%3a%2f%2f" & hst & "&response_type=code&scope=snsapi_userinfo&state=123#wechat_redirect"
            \'Dim ul As String  = "https://open.weixin.qq.com/connect/oauth2/authorize?appid=wxac4b451413cd0fa1&redirect_uri=" & e.Request.URL.ToString & "&response_type=code&scope=snsapi_userinfo&state=123&connect_redirect=1#wechat_redirect"   \'http%3a%2f%2f" & hst & "&response_type=code&scope=snsapi_userinfo&state=123#wechat_redirect"
            If e.GetValues.ContainsKey("open") Then
                e.AppendCookie("open",e.GetValues("open"))   \'如果是分享链接
            End If
            sb.Append("<meta http-equiv=\'Refresh\' c>") \'跳转到授权链接
            e.WriteString(sb.ToString)
            Return ""
        End If
    End If
    If OpenID > "" AndAlso username > "" Then
        If e.Path.Contains("csi")  OrElse e.Path.Contains("jsapipay")  OrElse  e.Path = "excel.htm" Then    \'卡颂直接
            e.AppendCookie("username",UserName) \'用户名和openid存储在Cookie中
            e.AppendCookie("openid",OpenID)
        Else
            Dim ull As String = "https://api.weixin.qq.com/cgi-bin/user/info?access_token={0}&openid={1}&lang=zh_CN"
            ull = CExp(ull,Functions.Execute("GetAccessToken"),OpenID)
            Dim hcl As new HttpClient(ull)
            Dim jol As JObject = JObject.Parse(hcl.GetData)
            If jol("subscribe") = "0" Then \'如果没有关注的话,先关注
                \'Dim wb As New weui \'微信框架
                wb.title = "关注公众号"
                wb.InsertHTML(Functions.Execute("header",e))
                wb.InsertHTML("<p align=\'center\' style=\'margin-top:5px;color:red;\'><a href=\'https://mp.weixin.qq.com/mp/profile_ext?action=home&__biz=MzA5MDQ1NDM4NA==&scene=126#wechat_redirect\'>完整的功能在微信中登录!<br/>先关注公众号注册,完善信息!</a></p>")
                wb.InsertHTML("<center><img src=\'./images/yanmiwx.jpg\' alt=\'微信公众号二维码\' width=\'138\'></img></center>")
                wb.InsertHTML(Functions.Execute("footer",e))
                e.WriteString(wb.Build) \'生成网页
                Return ""
            End If
            \'这里可以做进一步的权限判断
            If e.Path = "logon.htm" OrElse e.Path = "" Then
                \'Functions.Execute("default",e)
                \' Dim wb As New weui
                wb.InsertHTML("<meta http-equiv=\'Refresh\' c>") \'直接跳转到首页
                e.WriteString(wb.Build) \'生成网页
                Return ""
            End If
        End If
    Else
        sb.AppendLine("你无权访问本系统")
        e.WriteString(sb.ToString)
        Return ""
    End If
ElseIf e.Host = "127.0.0.1" OrElse e.Host = "192.168.1.2**" Then
    Dim sdr As DataRow = DataTables("WXUsers2").SQLFind("身份证号 = \'430103***80729457X\'")
    If sdr IsNot Nothing Then  \'实际使用的时候,请改为从数据库读取用户名和密码进行比较
        \' Dim wb As New weui
        \'wb.ClearCookie()
        e.AppendCookie("openid",sdr("OpenID"))
        If e.Path = "logon.htm" OrElse e.Path = "" Then \'验证用户名和密码
            \'Dim wb As New weui
            wb.InsertHTML("<meta http-equiv=\'Refresh\' c>") \'直接跳转到首页
            e.WriteString(wb.Build) \'生成网页
            Return ""
        End If
    Else
        Functions.Execute("error",e)
        Return ""
    End If
Else
    Static UserTable As DataTable \'定义一个变量,用于存储用户随机身份ID,以及最后一次活动时间.
    Static ClearTime As Date
    If UserTable Is Nothing Then \'创建用于记录登录信息的临时表
        ClearTime = Date.Now()
        Dim dtb As New DataTableBuilder("UserInfos")
        dtb.AddDef("UserName",Gettype(String),200)
        dtb.AddDef("UserID",Gettype(String),200)
        dtb.AddDef("ActiveTime",Gettype(Date))
        UserTable = dtb.Build(True)
    End If
    If (Date.Now - ClearTime).TotalMinutes >= 30 Then \'清除超过30分钟没有操作的登录信息
        UserTable.DeleteFor("ActiveTime < #" & Date.Now.AddMinutes(-30) & "#")
        ClearTime = Date.Now()
    End If
    \'身份验证
    Dim UserName As String
    Dim Password As String
    Dim UserID As String
    \' Dim wb As New weui
    If e.Path = "logon.htm" Then \'验证用户名和密码
        If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password")  Then
            Dim Verified As Boolean \'用于标记用户是否通过了身份验证
            UserName = e.PostValues("username")
            Password = e.PostValues("password")
            Dim sdr As DataRow = DataTables("WXUsers2").SQLFind("身份证号 =\'" & UserName & "\' and password =\'" & password & "\'")
            If sdr IsNot Nothing Then  \'实际使用的时候,请改为从数据库读取用户名和密码进行比较
                Verified  = True
                \'wb.ClearCookie()
                e.AppendCookie("openid",sdr("OpenID"))
                \' e.AppendCookie("nickname",sdr("OpenID")) \'用户名和openid存储在Cookie中,加入访问密码错误,什么原因
            End If
            
            If Verified Then
                UserID = Rand.NextString(16) \'生成随机用户ID
                UserName = EncryptText(UserName,"999","999") \'将用户名加密.
                Dim dr As DataRow = UserTable.Find("UserName = \'" & UserName & "\'")
                If  dr IsNot Nothing Then \'如果是重复登录,删除以前的登录信息
                    dr.Delete()
                End If
                dr = UserTable.AddNew()
                dr("UserName") = UserName
                dr("UserID") = UserId
                dr("ActiveTime") = Date.Now \'记录登录时间
                e.AppendCookie("username",UserName) \'将用户名和密码写入cookie
                e.AppendCookie("userid",UserID)
                wb.InsertHTML("<meta http-equiv=\'Refresh\' c>") \'直接跳转到首页
                e.WriteString(wb.Build) \'生成网页
                Return ""   \'必须的
            End If
        End If
    ElseIf e.Path = "excel.htm" Then
    Else \'其它页面从Cookie提取登录信息进行验证
        UserName = e.Cookies("username")  \'从cookie中获取用户名
        UserID = e.Cookies("userid")  \'从cookie中获取 随机ID
        Dim dr As DataRow = UserTable.Find("UserName = \'" & UserName & "\'")
        If dr IsNot Nothing AndAlso dr("UserID") = UserID Then  \'如果通过验证,更新活动时候,继续访问其它页面.
            dr("ActiveTime") = Date.Now \'更新活动时间
        Else \'如果验证失败
            wb.InsertHTML("<meta http-equiv=\'Refresh\' c>") \'那么直接跳转到登录页面
            e.WriteString(wb.Build) \'生成网页
            Return ""   \'必须的
        End If
    End If
    \'开始生成网页
End If
--  作者：有点甜
--  发布时间：2018/12/21 12:10:00
--  

 

cookies是刷新到下一个网页之后才生效的。比如你在A网页设置cookie，这时候无效，跳转到B、C、D之后，才有效的。

 
--  作者：xluoping
--  发布时间：2018/12/21 18:27:00
--  
那这段代码，手机微信返回 错误，是哪里出了问题？而电脑微信没有问题，微信开发者工具也没有问题！

错误内容是：{ "errcode": 40163, "errmsg": "code been used, hints: [ req_id: 99_hNA05062271 ]" }
--  作者：有点甜
--  发布时间：2018/12/21 18:31:00
--  

1、你应该是重复使用了code导致的。建议你在你的代码那里加入msgbox调试，看弹出到哪里报错。

 

2、简化你的代码不要太复杂，先测试出问题。

 

3、代码太多别人服务查看和调试。