'獲取用戶基本信息(UnionID機制)
'在關注者與公眾號產生消息交互后，公眾號可獲得關注者的OpenID（加密后的微信號，每個用戶對每個公眾號的OpenID是唯一的。對於不同公眾號，同一用戶的openid不同）。公眾號可通過本接口來根據OpenID獲取用戶基本信息，包括昵稱、頭像、性別、所在城市、語言和關注時間。）
Public Function Get_UserInfo(openid)
Call C_A("wx_token")
Dim url, params, result
url = "https://api.weixin.qq.com/cgi-bin/user/info?"
params = params & "&access_token=" & Application("wx_token")(0)
params = params & "&openid=" & openid
params = params & "&lang=zh_CN"
url = url & params
Temp = RequestUrl(url,"GET","")
'Echo Temp
set obj = getjson(Temp)
If CheckData(Temp,"subscribe") Then
If obj.subscribe=1 Then
Get_UserInfo = Array(obj.nickname,obj.sex,obj.headimgurl,obj.country,obj.province,obj.city,obj.subscribe_time,obj.subscribe)
Else
Get_UserInfo = Array("","","","","","","",obj.subscribe)
End If
Session("Reset_Token") = False
ElseIf obj.errcode="40001" And Session("Reset_Token") = False Then
Session("Reset_Token") = True
Call Get_wx_token()
Get_UserInfo = Get_userlist(openid)
Else
Response.Write("Get_UserInfo)=>"&Temp)
Response.End()
End If
set obj = Nothing
End Function
=============================================
互相學習電話微信：18611436777（加微信注明事由）