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（加微信注明事由）