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

有需要asp企业付款到零钱代码的朋友，可以直接复制了