收藏
回答

如何删除之前创建的会员卡?

微信公众号可以创建几个会员卡,不用的会员卡再哪里删除,怎么创建第二个会员卡?

回答关注问题邀请回答
收藏

2 个回答

  • Zv
    Zv
    06-26

    建一个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("===== 操作完成 =====")

    %>


    06-26
    有用
    回复
  • 微信支付技术助手8
    微信支付技术助手8
    2020-10-15

    你好!

    1,你这边使用的老的会员卡1.0还是2.0呢?

    2,会员卡都是自带删除功能的,不过这个只是物理删除,删完后再历史卡券可以找到

    2020-10-15
    有用
    回复 3
    • 青笼
      青笼
      2021-01-03
      在哪里删除,没有找到删除的键
      2021-01-03
      回复
    • 孙兆祥
      孙兆祥
      2021-01-14
      我也是找不到,第一个卡过期了,不知道怎么建立第二个。修改吗?不是我想要的
      2021-01-14
      回复
    • 左轮
      左轮
      2022-02-16
      请问商家在哪里可以删除原先创建的会员卡
      2022-02-16
      回复
登录 后发表内容
问题标签