ASP检测客户是否取消微信公众号

2021/5/4 12:27:21

编程Tag： 组件微信检测取消 asp 客户公众

本文主要是介绍ASP检测客户是否取消微信公众号，对大家解决编程问题具有一定的参考价值，需要的程序猿们随着小编来一起学习吧！

有时因为项目内需要用到检测客户是否已经取消关注微信公众号，只有没被取消执行相关模板信息发送、图文信息发送、视频语音等信息发送给客户才有意义。也可以知道多少客户还在我们的微信公众号关注内。方便后期做公众号营销。废话不多数了直接上代码。

 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检测客户是否取消微信公众号的文章就介绍到这儿，希望我们推荐的文章对大家有所帮助，也希望大家多多支持为之网！

ASP检测客户是否取消微信公众号

相关编程文章