asp獲取微信公眾號用戶的頭像和微信名及openid源碼，asp寫的，可以獲取用戶的頭像和微信名，性別及openid等

<script language="jscript" runat="server">
function getjson(str){
try{
eval("var jsonStr = (" + str + ")");
}catch(ex){
var jsonStr = null;
}
return jsonStr;
}
</script>
<%
‘==================================
‘=類 名 稱：微信登錄
‘=功 能：微信登錄 For ASP
‘=作 者：18611436777
‘=微信:18611436777
‘=日 期：2014-3
‘==================================
‘轉載時請保留以上內容！！
Class WxAPI
Private APPID
Private APPSECRET
Private CALLBACK_URL
Private SCOPE

Private Sub Class_Initialize
APPID = "wxe4a757eaba87d647"‘APP ID
APPSECRET = "9a2f4790e1fe303dc500bf63bf5bad51"‘APP KEY
CALLBACK_URL = "http://www.muyunet.com/weixin/user2.asp"‘REDIRECT_URI
SCOPE ="snsapi_userinfo" ‘授權項snsapi_userinfo,snsapi_base

End Sub
‘Microsoft.XMLHTTP
‘Get方法請求url,獲取請求內容
Private Function RequestUrl(url)
Set XmlObj = Server.CreateObject("Microsoft.XMLHTTP")
XmlObj.open "GET",url, false
XmlObj.send
If XmlObj.Readystate=4 Then
RequestUrl = XmlObj.responseText
Else
Response.Write("xmlhttp請求超時！")
Response.End()
End If
Set XmlObj = nothing
End Function


Private Function CheckData(data,str)
If Instr(data,str)>0 Then
CheckData = True
Else
CheckData = False
End If
End Function


‘生成登錄地址
Public Function GetAuthorization_Code()
Dim url, params
url = "https://open.weixin.qq.com/connect/oauth2/authorize"
params = "appid="&APPID
params = params & "&redirect_uri=" & server.URLEncode(CALLBACK_URL)
params = params & "&response_type=code"
params = params & "&scope="&SCOPE
params = params & "&state=123#wechat_redirect"
url = url & "?" & params
GetAuthorization_Code = (url)
End Function

‘獲取 access_token
Public Function GetAccess_Token(sCode)
Dim url, params,Temp
Url="https://api.weixin.qq.com/sns/oauth2/access_token"
params = "appid="&APPID
params = params & "&secret=" & APPSECRET
params = params & "&code=" & sCode
params = params & "&grant_type=authorization_code"
url = Url & "?" & params
Temp=RequestUrl(url)
If CheckData(Temp,"access_token") = True Then
set obj = getjson(Temp)
if isobject(obj) Then
GetAccess_Token = Array(obj.access_token,obj.openid)
End If
set obj = Nothing
Else
Response.Write("獲取 access_token 時發生錯誤，錯誤信息："&Temp)
Response.End()
End If
End Function

‘檢測是否合法登錄！
Public Function CheckLogin()
Dim Code,mState
Session("Code")=Trim(Request.QueryString("code"))
If Code<>"" Then
CheckLogin = True
Else
CheckLogin = False
End If
End Function

‘獲取用戶信息,得到一個json格式的字符串
Public Function GetUserInfo()
Dim url, params, result
url = "https://api.weixin.qq.com/sns/userinfo?"
params = params & "&access_token=" & Access_Token
params = params & "&openid=" & Openid
params = params & "&lang=zh_CN"
url = url & "?" & params
Temp = RequestUrl(url)
If CheckData(Temp,"nickname") = False Then
set obj = getjson(Temp)
if isobject(obj) Then
ret = obj.errcode
msg = obj.errmsg
End If
set obj = Nothing
Response.Write("獲取用戶信息時發生錯誤，錯誤代碼："&ret&" , 錯誤描述："&msg)
Response.End()
End If
GetUserInfo = Temp
End Function

‘獲取用戶名字,性別,從json字符串裏截取相關字符
Public Function GetUserName(json)
Dim nickname,sex,headimgurl,obj
set obj = getjson(json)
if isobject(obj) Then
nickname = obj.nickname
sex = obj.sex
headimgurl = obj.headimgurl
End If
set obj = Nothing
GetUserName = Array(nickname,sex,headimgurl)
End Function


End Class
%>

==================

互相學習電話微信：18611436777（加微信註明事由）

asp獲取微信公眾號用戶的頭像和微信名及openid源碼