有时因为项目内需要用到检测客户是否已经取消关注微信公众号，只有没被取消执行相关模板信息发送、图文信息发送、视频语音等信息发送给客户才有意义。也可以知道多少客户还在我们的微信公众号关注内。方便后期做公众号营销。废话不多数了直接上代码。
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
标签：ASP,取消,微信,公众,客户,检测,组件 来源： https://www.cnblogs.com/ysk5/p/14728936.html
本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享； 2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关； 3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关； 4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除； 5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。