Public Function GetAuthorization_Code()
Dim url, params
url = "https://open.weixin.qq.com/connect/oauth2/authorize?"
params = "appid="&s_APPID
params = params & "&redirect_uri=" & server.URLEncode(s_REDIRECT_URI)
params = params & "&response_type=code"
params = params & "&scope="&s_SCOPE
params = params & "&state=123#wechat_redirect"
url = url & params
GetAuthorization_Code = (url)
End Function
=============================================
互相学习电话微信:18611436777(加微信注明事由)
原文地址:https://www.cnblogs.com/lytocnc/p/9777307.html
时间: 2024-10-08 12:10:32