Class WxAPI
Private s_APPID
Private s_APPSECRET
Private s_REDIRECT_URI
Private s_SCOPE
Private parameters
Private Sub Class_Initialize
Set parameters = Server.CreateObject("Scripting.Dictionary")
s_APPID = APPID ‘APPID‘APP ID
s_APPSECRET = APPSECRET ‘APPSECRET‘APP KEY
s_REDIRECT_URI = Get_url ‘REDIRECT_URI
s_SCOPE ="snsapi_userinfo" ‘授权项snsapi_userinfo,snsapi_base
End Sub
Private Sub Class_Terminate()
Set parameters = Nothing
Set Wx = Nothing
‘Response.Write("对象已销毁")
End Sub
public property let Set_REDIRECT_URI(v)
s_REDIRECT_URI = v
end property
public property let Set_SCOPE(v)
s_SCOPE = v
end property
=============================================
互相学习电话微信：18611436777（加微信注明事由）