📄 payresult6.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 = 6 '易付通
Dim v_mid, v_oid, v_pmode, v_pstatus, v_pstring, v_amount, v_md5, v_date, v_moneytype
Dim md5string
Dim v_sid
v_mid = AccountsID
v_oid = Trim(Request("bid")) '支付定单号
v_sid = Trim(Request("sid")) '易付通交易成功 流水号
v_md5 = Trim(Request("md")) '数字签名
v_amount = Trim(Request("prc")) '支付金额
v_pstatus = Trim(Request("success")) '支付状态
v_pmode = Trim(Request("bankcode")) '支付银行
v_pstring = Trim(Request("v_pstring")) '支付结果说明
md5string = MD5(MD5Key & ":" & v_oid & "," & v_sid & "," & v_amount & ",sell,," & v_mid & ",bank," & v_pstatus, 32)
If UCase(v_md5) = UCase(md5string) And LCase(v_pstatus) = "true" Then
Response.Write "<br>恭喜你！在线支付成功！<br><br>"
Call UpdateOrder(v_oid, v_amount, v_pstring, v_pmode, 3, True, True)
Else
Response.Write "MD5校验失败！"
End If
Call CloseConn
%>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -