asp源码调起微信扫一扫接口

2018/10/12 11:49
阅读数 75

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(加微信注明事由)

展开阅读全文
打赏
0
0 收藏
分享
加载中
更多评论
打赏
0 评论
0 收藏
0
分享
返回顶部
顶部