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