公众号详情授权,有错误,帮助的地址http://www.foxtable.com/mobilehelp/scr/0236.htm
1、 ul = "https://api.weixin.qq.com/sns/auth?access_token={0}&openid={1}"
'根据openid和accesstoken获取用户详情,注意这里这个accesstoken不是普通accesston,只能用于网页授权
hc = New HttpClient(CExp(ul, OpenId, jo("access_token")))很明显 hc = New HttpClient(CExp(ul, OpenId, jo("access_token")))合成地址的opnid 和 token写反了,然后报错40001,提示说token不是最后一个token
2、 ul = "https://api.weixin.qq.com/sns/auth?access_token={0}&openid={1}"
'根据openid和accesstoken获取用户详情,注意这里这个accesstoken不是普通accesston,只能用于网页授权
hc = New HttpClient(CExp(ul, OpenId, jo("access_token")))
jo = jo.Parse(hc.GetData)
If jo("errcode") = "0" Then
UserName = jo("nickname")
dr = DataTables("WXUsers").AddNew()
Dim nms() As String = {"openid","nickname","sex","city","country","province","headimgurl"} '""
For Each nm As String In nms
dr(nm) = jo(nm)
Next
dr.Save
Else
e.WriteString(jo.ToString) '在用户浏览器显示错误信息
Return
End If
End If
End If
e.AppendCookie("username",UserName) '用户名和openid存储在Cookie中
e.AppendCookie("openid",OpenID)
按道理,才关注公众号的用户,会进入ul合成的地址去授权,如果jo(errcode) = 0 就去查找数据库里有用户没,如果没用户就建立一行保存用户的公开信息,但是我实验了很多次都发现新建行了,但是数据为空。。。 其次是报错,未将对象xxx实力的错误,我只能把e.appendcookie这两行代码删了,不报错了,用户数据还是为空,我直接在浏览器上显示了jo.ToString()发现浏览器上只有errcode:0,errmsg:ok,我怀疑是不是授权地址错了哟???
求解,我网页是小白,不太懂 该怎么去找授权地址?帮助代码改怎么改?