<!-- #include file="yeepayCommon.asp" -->
<!--#include file="../payss.asp"-->
<%
'**************************************************
'* @Description 易宝支付产品通用支付接口范例  
'* @V3.0
'* @Author rui.xin
'**************************************************

	'	只有支付成功时易宝支付才会通知商户.
	''支付成功回调有两次，都会通知到在线支付请求参数中的p8_Url 上：浏览器重定向;服务器点对点通讯.
	
	Dim r0_Cmd
	Dim r1_Code
	Dim r2_TrxId
	Dim r3_Amt
	Dim r4_Cur
	Dim r5_Pid
	Dim r6_Order
	Dim r7_Uid
	Dim r8_MP
	Dim r9_BType
	Dim hmac
	
	Dim bRet
	Dim returnMsg
	Dim myPay
	'解析返回参数
	Call getCallBackValue(r0_Cmd,r1_Code,r2_TrxId,r3_Amt,r4_Cur,r5_Pid,r6_Order,r7_Uid,r8_MP,r9_BType,hmac)
	'判断返回签名是否正确（True/False）
	bRet = CheckHmac(r0_Cmd,r1_Code,r2_TrxId,r3_Amt,r4_Cur,r5_Pid,r6_Order,r7_Uid,r8_MP,r9_BType,hmac)
	'以上代码和变量不需要修改.
	
	
	'校验码正确
	returnMsg	= ""
	If bRet = True Then
	  If(r1_Code="1") Then '为：1代表支付成功
		
        SQL = "select * from mobile1 Where num='"&r6_Order&"'"
	Set Res = Server.CreateObject("ADODB.Recordset")
	Res.Open SQL,Conn,1,3
	if not res.bof or not res.eof then
	if CStr(r1_Code) = "1" then res("stat")=1  '1表示成功
	if CStr(r1_Code) = "1" then res("des")="支付成功"  '1表示成功
	if CStr(r1_Code) = "1" then res("Okprice")=r3_Amt  '成功金额
	if CStr(r1_Code) <> "1" then res("stat")=2  '2表示失败
	if CStr(r1_Code) <> "1" then res("des")="支付失败"  '2表示失败
	res.update
        end if
	  	
		'需要比较返回的金额与商家数据库中订单的金额是否相等，只有相等的情况下才认为是交易成功.
		'并且需要对返回的处理进行事务控制，进行记录的排它性处理，防止对同一条交易重复发货的情况发生.	  	      	  
		
			If(r9_BType="1") Then
				'	在线支付页面返回	
				Set myPay = New PayResult
				myPay.TruePrice = r3_Amt
				myPay.PayOK(r6_Order)
				returnMsg	= "success"				
			ElseIf(r9_BType="2") Then				
	  		'	如果需要应答机制则必须回写以"success"开头的stream,大小写不敏感.
	  		''易宝支付收到该stream，便认为商户已收到；否则将继续发送通知，直到商户收到为止。
				Set myPay = New PayResult
				myPay.TruePrice = r3_Amt
				myPay.PayOK(r6_Order)
		 		Response.write("success")
				'Call createLog("HTMLcommon")
				returnMsg	= "success"				
			ElseIf(r9_BType="3") Then
				returnMsg	= "success"
			End IF  
	  End IF
	Else
		returnMsg	= "交易信息被篡改"
	End If

session("stat") = returnMsg
'response.redirect "Result.asp?num="&r6_Order&""

%>
<html><meta http-equiv="refresh" content="0;url=Result.asp?num=<%=r6_Order%>"></html>