小程序
小游戏
企业微信
微信支付
扫描小程序码分享
2 个回答
加粗
标红
插入代码
插入链接
插入图片
上传视频
建一个ASP网页,我用的ASP代码,发到服务器上或IIS(如可以)上直接打开运行即可完成删除。
' 代码内这一段请替换为真实的凭证
appid = "xxxxxxxxx"
appsecret = "xxxxxxxxxxx"
cardId = "xxxxxxxxxxx"
-----------------以下是完整ASP代码-----------------
<%
' 微信卡券删除接口调用示例 - 优化版ASP(VBScript)实现
Option Explicit
' 日志记录函数
Function Log(message)
Response.Write Now() & " - " & message & "<br>"
End Function
' 获取AccessToken
Function GetAccessToken(appid, appsecret)
On Error Resume Next
Dim http, url, responseText, errorMsg
Dim regEx, matches, accessToken
Log("开始获取AccessToken...")
Set http = CreateObject("MSXML2.XMLHTTP")
url = "https://api.weixin.qq.com/cgi-bin/token?grant_type=client_credential&appid=" & appid & "&secret=" & appsecret
http.Open "GET", url, False
http.Send
If Err.Number <> 0 Then
errorMsg = "创建HTTP请求对象失败: " & Err.Description
Log(errorMsg)
GetAccessToken = ""
Exit Function
End If
If http.Status = 200 Then
responseText = http.ResponseText
Log("获取AccessToken原始响应: " & responseText)
' 使用正则表达式解析JSON
Set regEx = New RegExp
regEx.Pattern = """access_token"":\s*""([^""]+)"""
regEx.Global = False
Set matches = regEx.Execute(responseText)
If matches.Count > 0 Then
accessToken = matches(0).SubMatches(0)
Log("成功提取access_token: " & Left(accessToken, 10) & "...")
GetAccessToken = accessToken
Else
Log("JSON解析失败,无法提取access_token")
Set regEx = Nothing
Log("HTTP请求失败,状态码: " & http.Status)
Log("响应内容: " & http.ResponseText)
Set http = Nothing
On Error GoTo 0
' 删除卡券
Function DeleteCard(accessToken, cardId)
Dim http, url, postData, responseText
Log("开始调用删除卡券接口...")
url = "https://api.weixin.qq.com/card/delete?access_token=" & accessToken
' 构建JSON请求数据
postData = "{""card_id"":""" & cardId & """}"
Log("请求数据: " & postData)
http.Open "POST", url, False
http.setRequestHeader "Content-Type", "application/json"
http.Send postData
Log("发送请求失败: " & Err.Description)
DeleteCard = "{""errcode"":500,""errmsg"":""发送请求失败: " & Err.Description & """}"
Log("删除卡券接口响应: " & responseText)
DeleteCard = responseText
DeleteCard = "{""errcode"":http.Status,""errmsg"":""HTTP请求失败,状态码: " & http.Status & """}"
' 主程序
Dim appid, appsecret, cardId, accessToken, result
' 请替换为真实的凭证
Log("===== 开始执行微信卡券删除操作 =====")
accessToken = GetAccessToken(appid, appsecret)
If accessToken <> "" Then
Log("成功获取AccessToken")
' 调用删除卡券接口
result = DeleteCard(accessToken, cardId)
Log("操作结果: " & result)
Log("获取AccessToken失败")
Log("===== 操作完成 =====")
%>
你好,麻烦通过点击下方“反馈信息”按钮,提供出现问题的。
你好!
1,你这边使用的老的会员卡1.0还是2.0呢?
2,会员卡都是自带删除功能的,不过这个只是物理删除,删完后再历史卡券可以找到
关注后,可在微信内接收相应的重要提醒。
请使用微信扫描二维码关注 “微信开放社区” 公众号
建一个ASP网页,我用的ASP代码,发到服务器上或IIS(如可以)上直接打开运行即可完成删除。
' 代码内这一段请替换为真实的凭证
appid = "xxxxxxxxx"
appsecret = "xxxxxxxxxxx"
cardId = "xxxxxxxxxxx"
-----------------以下是完整ASP代码-----------------
<%
' 微信卡券删除接口调用示例 - 优化版ASP(VBScript)实现
Option Explicit
' 日志记录函数
Function Log(message)
Response.Write Now() & " - " & message & "<br>"
End Function
' 获取AccessToken
Function GetAccessToken(appid, appsecret)
On Error Resume Next
Dim http, url, responseText, errorMsg
Dim regEx, matches, accessToken
Log("开始获取AccessToken...")
Set http = CreateObject("MSXML2.XMLHTTP")
url = "https://api.weixin.qq.com/cgi-bin/token?grant_type=client_credential&appid=" & appid & "&secret=" & appsecret
http.Open "GET", url, False
http.Send
If Err.Number <> 0 Then
errorMsg = "创建HTTP请求对象失败: " & Err.Description
Log(errorMsg)
GetAccessToken = ""
Exit Function
End If
If http.Status = 200 Then
responseText = http.ResponseText
Log("获取AccessToken原始响应: " & responseText)
' 使用正则表达式解析JSON
Set regEx = New RegExp
regEx.Pattern = """access_token"":\s*""([^""]+)"""
regEx.Global = False
Set matches = regEx.Execute(responseText)
If matches.Count > 0 Then
accessToken = matches(0).SubMatches(0)
Log("成功提取access_token: " & Left(accessToken, 10) & "...")
GetAccessToken = accessToken
Else
Log("JSON解析失败,无法提取access_token")
GetAccessToken = ""
End If
Set regEx = Nothing
Else
Log("HTTP请求失败,状态码: " & http.Status)
Log("响应内容: " & http.ResponseText)
GetAccessToken = ""
End If
Set http = Nothing
On Error GoTo 0
End Function
' 删除卡券
Function DeleteCard(accessToken, cardId)
On Error Resume Next
Dim http, url, postData, responseText
Log("开始调用删除卡券接口...")
Set http = CreateObject("MSXML2.XMLHTTP")
url = "https://api.weixin.qq.com/card/delete?access_token=" & accessToken
' 构建JSON请求数据
postData = "{""card_id"":""" & cardId & """}"
Log("请求数据: " & postData)
http.Open "POST", url, False
http.setRequestHeader "Content-Type", "application/json"
http.Send postData
If Err.Number <> 0 Then
Log("发送请求失败: " & Err.Description)
DeleteCard = "{""errcode"":500,""errmsg"":""发送请求失败: " & Err.Description & """}"
Exit Function
End If
If http.Status = 200 Then
responseText = http.ResponseText
Log("删除卡券接口响应: " & responseText)
DeleteCard = responseText
Else
Log("HTTP请求失败,状态码: " & http.Status)
Log("响应内容: " & http.ResponseText)
DeleteCard = "{""errcode"":http.Status,""errmsg"":""HTTP请求失败,状态码: " & http.Status & """}"
End If
Set http = Nothing
On Error GoTo 0
End Function
' 主程序
Dim appid, appsecret, cardId, accessToken, result
' 请替换为真实的凭证
appid = "xxxxxxxxx"
appsecret = "xxxxxxxxxxx"
cardId = "xxxxxxxxxxx"
Log("===== 开始执行微信卡券删除操作 =====")
' 获取AccessToken
accessToken = GetAccessToken(appid, appsecret)
If accessToken <> "" Then
Log("成功获取AccessToken")
' 调用删除卡券接口
result = DeleteCard(accessToken, cardId)
Log("操作结果: " & result)
Else
Log("获取AccessToken失败")
End If
Log("===== 操作完成 =====")
%>
你好!
1,你这边使用的老的会员卡1.0还是2.0呢?
2,会员卡都是自带删除功能的,不过这个只是物理删除,删完后再历史卡券可以找到