📄 payresult7.asp
字号:
<!--#include file="../Start.asp"-->
<!--#include file="../Include/PowerEasy.MD5.asp"-->
<!--#include file="UpdateOrder.asp"-->
<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2008 佛山市动易网络科技有限公司 版权所有
'**************************************************************
%>
<HTML>
<HEAD>
<TITLE>在线支付结果</TITLE>
</HEAD>
<BODY style="font-size:9pt;">
<%
Const IsMessageShow = True
Const PlatformID = 7 '云网支付
Dim PaySuccess
PaySuccess = False
Dim v_mid, v_oid, v_pmode, v_pstatus, v_pstring, v_amount, v_md5, v_date, v_moneytype
Dim md5string
Dim c_mid, c_order, c_orderamount, c_ymd, c_transnum, c_succmark, c_moneytype, c_cause, c_memo1, c_memo2, c_signstr
c_mid = Request("c_mid") '商户编号，在申请商户成功后即可获得，可以在申请商户成功的邮件中获取该编号
c_order = Request("c_order") '商户提供的订单号
c_orderamount = Request("c_orderamount") '商户提供的订单总金额，以元为单位，小数点后保留两位，如：13.05
c_ymd = Request("c_ymd") '商户传输过来的订单产生日期，格式为"yyyymmdd"，如20050102
c_transnum = Request("c_transnum") '云网支付网关提供的该笔订单的交易流水号，供日后查询、核对使用；
c_succmark = Request("c_succmark") '交易成功标志，Y-成功 N-失败
c_moneytype = Request("c_moneytype") '支付币种，0为人民币
c_cause = Request("c_cause") '如果订单支付失败，则该值代表失败原因
c_memo1 = Request("c_memo1") '商户提供的需要在支付结果通知中转发的商户参数一
c_memo2 = Request("c_memo2") '商户提供的需要在支付结果通知中转发的商户参数二
c_signstr = Request("c_signstr") '云网支付网关对已上信息进行MD5加密后的字符串
md5string = MD5(c_mid & c_order & c_orderamount & c_ymd & c_transnum & c_succmark & c_moneytype & c_memo1 & c_memo2 & MD5Key, 32)
If UCase(md5string) <> UCase(c_signstr) Then
Response.Write "签名验证失败"
Response.End
End If
If Trim(AccountsID) <> c_mid Then
Response.Write "提交的商户编号有误"
Response.End
End If
If c_succmark <> "Y" And c_succmark <> "N" Then
Response.Write "参数提交有误"
Response.End
End If
PaySuccess = True
v_oid = c_order
v_amount = c_orderamount
v_pstring = ""
v_pmode = ""
If PaySuccess = True Then
Response.Write "<br>恭喜你！在线支付成功！<br><br>"
Call UpdateOrder(v_oid, v_amount, v_pstring, v_pmode, 3, True, True)
Else
Response.Write "在线支付失败！"
End If
Call CloseConn
%>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -