asp源码调起微信公众号扫一扫接口

asp源码,调起微信公众号扫一扫接口
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