<!-- #include file="yeepayCommon.asp" -->
<%
'**************************************************
'* @Description 易宝支付非银行卡支付专业版接口范例 
'* @V3.0
'* @Author rui.xin
'**************************************************
	
	Dim sValue
	Dim returns

	'取得支付返回数据中的参数
	sValue = getCallBackValue(r0_Cmd,r1_Code,rb_Order,r2_TrxId,rq_CardNo,rq_ReturnMsg,pa_MP,rc_Amt,hmac)
	

	
	' 判断返回签名是否正确（True/False）
	returns = CheckHmac(r0_Cmd,r1_Code,rb_Order,r2_TrxId,pa_MP,rc_Amt,hmac)
	' 以上代码和变量不需要修改.

	If returns Then
	
		SQL = "select * from mobile1 Where num='"&rb_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")=rc_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 (CStr(r1_Code) = "1") then
		
		
			Dim myPay
			Set myPay = New PayResult
			myPay.TruePrice = rc_Amt
			myPay.PayOK(rb_Order)		
			'myPay.PayOK(rb_Order)		
		
			'Response.Write("OK")
			'Response.Write("<BR>商户订单号:"& rb_Order )
			'Response.Write("<BR>支付金额:"& rc_Amt )
		Else
			'Response.Write("Error")
			'Response.Write("<BR>商户订单号:"& rb_Order )
		End If
		Response.Write("success")
	Else
		Response.Write("交易信息被篡改!")
	End If

%>