有时因为项目内需要用到检测客户是否已经取消关注微信公众号，只有没被取消执行相关模板信息发送、图文信息发送、视频语音等信息发送给客户才有意义。也可以知道多少客户还在我们的微信公众号关注内。方便后期做公众号营销。废话不多数了直接上代码。
1 <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> 2 <!DOCTYPE html> 3 <html> 4 <head> 5 <Meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> 6 <Meta name="viewport" content="width=device-width,initial-scale=1,user-scalable=no"> 7 <title>检测客户是否取消微信公众号</title> 8 </head> 9 <body> 10 <% 11 On Error Resume Next 12 Dim WxObj 13 Set WxObj = Server.CreateObject("WeixinDLL.WeixinClass") 14 WxObj.SetAppID = "AppID" 15 WxObj.SetAppSecret = "AppSecret" 16 17 Dim token 18 token = WxObj.Get_Token ' 当前用户的access_token 19 If Trim(token) = "" Or IsNull(token) Then Response.Write "没有获取到有效的access_token，导致模板消息发送失败！" : Response.End() 20 21 Dim pJson 22 pJson = WxObj.IfCancelWX(C_CeoOpenID, token) 23 pJson = Trim(pJson) 24 If Cstr(pJson) = "0" Then 25 Response.Write "取消关注" 26 ElseIf Cstr(pJson) = "1" Then 27 Response.Write "已关注" 28 ElseIf Cstr(pJson) = "2" Then 29 Response.Write "非法OpenID" 30 End If 31 Set WxObj = nothing 32 If Err Then Response.Write Err.Description 33 %> 34 </body> 35 </html>
注意上述程序用到了 WeixinDLL 组件，如需要此组件者，可以联系我：z18670092211
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 [email protected] 举报，一经查实，本站将立刻删除。
