asp微信支付企业付款功能代码下载_码农18611436777的博客-程序员秘密

最近应一个客户要求写了一段代码，要求从公众号的支付平台给用户发钱，我大体看了一下，这叫企业付款功能，由于客户的代码是asp写的，所以只能用asp来写接口了，这个功能还比较实用，可以片外支付从0.30元以上的钱付给用户，不说了，下面让代码：

微信公众号支付平台asp企业付款功能代码：

<%
'作者微信：18611436777，转载请保留
set wxpay = New WxPayApi
Dim Action,total_fee
Action = Trim(Request.QueryString("action"))
uid=request.QueryString("uid")
oid=request.QueryString("oid")
nickname=request.QueryString("nickname")
	If Action = "pay" Then
	   openid = Trim(Request.form("openid"))
	   total_fee = Trim(Request.form("total_fee"))
   Dim body,out_trade_no,attach
   body = "好生活俱乐部"
   partner_trade_no = wxpay.GetDateTime
   attach = "好生活"'商户自定义数据包.

    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","好生活俱乐部奖励"
	wxpay.setParameter "openid",openid

	xml = wxpay.Get_company_pay()
	'wxpay.Die xml
	result = wxpay.Get_Xml_Text(xml,"//result_code")
	If result = "SUCCESS" Then
'	   wxpay.Die "付款成功！"

	'给VIP的数据库里pay+支付金额
	cls.db.conn.execute("update [userinfo] set pay=pay+"&total_fee&" where uid="&uid)
	
	'把订单记录入paylist表：收入
	bz="订单号："&partner_trade_no&"，支付给："&nickname&total_fee&"元奖励"
	data=array(_
	array("uid",uid,0,0,0),_
	array("pay",total_fee,0,0,0),_
	array("io","支",2,0),_
	array("bz",bz,50,0))
	Cls.db.dbnew "[paylist]",data,""
	
	response.write "<script language=javascript>alert('"&bz&",打款成功！');window.location.href='../admin_viplist.asp';</script>"
	'response.Redirect "../admin/viplist.asp"
	Else
	   
	   wxpay.Die wxpay.Get_Xml_Text(xml,"//err_code_des")
	End If
End If
set wxpay = Nothing
%>

本文链接：https://blog.csdn.net/tocnc/article/details/89790371

原作者删帖不实内容删帖广告或垃圾文章投诉

智能推荐

吴恩达深度学习tensorflow版本问题_qq_43178462的博客-程序员秘密_tensorflow全版本

吴恩达深度学习问题解决。

MYSQL数据库中无法添加中文数据_weixin_53861597的博客-程序员秘密_mysql无法添加中文数据

MYSQL数据库中无法添加中文数据

“12306”是如何支撑百万QPS的？_机器学习算法与Python学习-公众号的博客-程序员秘密

来源：掘金作者：绘你一世倾城链接：https://juejin.im/post/5d84e21f6fb9a06ac824814912306 抢票，极限并发带来的思考每到节...

文献查询网站_qq_39389646的博客-程序员秘密

1.Web of Science （ http://apps.webofknowledge.com ）2. Glgoo学术搜索引擎（https://scholar.glgoo.org/ ）3. X-Mol学术资讯数据库（https://scholar.glgoo.org/ ）4. 谷粉学术搜索引擎（https://gfsoso.99lb.net/ ）5. SCI-HUB搜索引擎（http:...

问题解决之——WARNING: Re-reading the partition table failed with error 16: 设备或资源忙._Snail_cz的博客-程序员秘密

linux扩展磁盘，格式化分区时候，如果报错：WARNING: Re-reading the partition table failed with error 16: 设备或资源忙.[[email protected] grid]# fdisk /dev/sda...WARNING: Re-reading the partition table failed with error 16: 设备或资源忙.The kernel still uses the old table. The new table will

HuggingFace 所有预训练模型下载地址_Reza.的博客-程序员秘密

继承自上一篇博客：BERT、RoBERTa下载地址map除了像上一篇博客一样，自己去huggingface transformer的源代码里面把各个模型的下载url找出来之外，最快的方法可以直接上huggingface model 官网:如下，搜索自己需要的模型：然后在Files and Versions里面把模型需要的参数bin、config和vocab都一一down下来：当然也可以wget:...