asp源码微信公众号网页授权获取用户基本信息

获取微信Access Token

最新推荐文章于 2021-03-31 15:18:28 发布

原创最新推荐文章于 2021-03-31 15:18:28 发布 · 1.7k 阅读

1 ·

CC 4.0 BY-SA版权

本文介绍了一个用于获取微信Access Token的公共函数。通过该函数，开发者可以利用授权码(code)从微信服务器请求到Access Token，这是进行后续API调用的基础。

Public Function Get_Access_Token()
sCode = Request(“code”)
If sCode ="" And Session(“access_token”)="" Then
Response.Redirect(GetAuthorization_Code)
Else
If DateDiff(“s”,Now,Session(“access_token_expires”))> 0 Then
Exit Function
End If
End If
Dim url, params,Temp
Url=“https://api.weixin.qq.com/sns/oauth2/access_token?"
params = “appid=”&s_APPID
params = params & “&secret=” & s_APPSECRET
params = params & “&code=” & sCode
params = params & “&grant_type=authorization_code”
url = Url & params
Temp=RequestUrl(url,“GET”,”")
'Die Temp
If CheckData(Temp,“access_token”) = True Then
set obj = getjson(Temp)
if isobject(obj) Then
Session(“access_token”) = obj.access_token
Session(“access_token_expires”) = DateAdd(“s”,obj.expires_in,Now)
Session(“openid”) = obj.openid
End If
set obj = Nothing
Else
Response.Write(“Get_Access_Token()=>”&Temp)
Response.End()
End If
End Function