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