zoukankan      html  css  js  c++  java
  • asp源码demo下载:微信公众号支付企业付款到零钱功能asp源码下载案例

    最近接到一个开发需求,一个企业想用微信支付里面的,企业付款到零钱功能,利用此功能来给用会发红包,因为微信支付里的红包功能一次要付款1块钱,太多,所以他想利用此功能来发红包,这样红包金额可以低到每次3角钱,由于他原有系统是asp开发的,那我只能帮他用asp写一个:微信支付企业付款到零钱功能了,闲话不说,上代码:

    total_fee = Trim(Request.form("total_fee"))
            Dim body,out_trade_no,attach
            body = "微信企业付款(WxPay)"
            partner_trade_no = wxpay.GetDateTime
            attach = "sdly"'商户自定义数据包.
            
            wxpay.setParameter "appid",""
            wxpay.setParameter "mch_id",""
            wxpay.setParameter "mchid",MCHID
            wxpay.setParameter "mch_appid",APPID
            wxpay.setParameter "partner_trade_no",partner_trade_no
            wxpay.setParameter "check_name","NO_CHECK"
            wxpay.setParameter "amount",(total_fee)*100
            wxpay.setParameter "spbill_create_ip","127.0.0.1"
            wxpay.setParameter "desc",body
            'wxpay.setParameter "openid",openid
            wxpay.setParameter "openid",wx_openid
            
            xml = wxpay.Get_company_pay()
            'wxpay.Die xml
            result = wxpay.Get_Xml_Text(xml,"//result_code")
                If result = "SUCCESS" Then
                    wxpay.Die "付款成功!"
                Else
                    wxpay.Die wxpay.Get_Xml_Text(xml,"//err_code_des")
                End If
        End If
  • 相关阅读:
    K-lord #1
    P1220 关路灯 (区间DP)
    P1136 迎接仪式 (动态规划)
    P1063 能量项链 (区间DP)
    444 D. Ratings and Reality Shows
    P1896 [SCOI2005]互不侵犯King
    P1841 [JSOI2007]重要的城市
    P1134 阶乘问题
    P1414 又是毕业季II
    P1450 [HAOI2008]硬币购物
  • 原文地址:https://www.cnblogs.com/yjed/p/12624705.html
Copyright © 2011-2022 走看看