<!--#include file="../../inc/payconn.asp"-->
<!--#include file="asp_md5.asp"-->
<!--#include file="../payss.asp"-->
<%
Call ConnectionDatabase()
Set Res = GrateRs("Select * From [L_pay] Where ptype='kbpay'",1)
Dim result,user_id,sp_billno,sp_linkid,total_fee,sp_extdata,sign
'商户在互赢支付网关上的订单状态，0为失败，1为成功
result=Trim(Request("result"))

'商户在互赢支付网关上的商户号
user_id=Trim(Request("user_id"))

'商户提交的订单流水号
sp_billno=Trim(Request("sp_billno"))

'互赢支付订单流水号
sp_linkid=Trim(Request("sp_linkid"))

'商户订单金额，注意可能与商户时提交不一致，支付结果是以卡的面值来结算的
total_fee=Trim(Request("total_fee"))

'商户自定义原样返回
sp_extdata=Trim(Request("sp_extdata"))

'互赢支付提交过来的MD5签名
sign=Trim(Request("sign"))

'商户在互赢支付网关上的交易密钥
sp_key=Res("sKey")
Res.close

sp_id=Trim(Request("sp_id"))

'生成MD5签名
sign_text = "user_id=" & user_id & "&sp_id=" & sp_id &"&sp_billno=" & sp_billno & "&sp_key=" & sp_key & "&total_fee=" & total_fee & "&sp_extdata=" & sp_extdata
signtmp = UCase(ASP_MD5(sign_text)) ' 转换为大写

If sign=signtmp Then
	'检测到状态为成功
Set Res = GrateRs("select * from mobile1 Where num = '"&sp_billno&"'",3)

	If result=1 Then
		'商户业务数据成功处理
		    if not res.bof or not res.eof then
			res("stat")=1	
			res("Okprice")=total_fee	
			res("usercode")=sp_linkid
			res("des")="支付成功"		
			res.update
			end if
					Dim myPay
					Set myPay = New PayResult
					myPay.TruePrice = total_fee
					myPay.PayOK(sp_billno)
	Else
		'商户业务数据失败处理
		if not res.bof or not res.eof then
			res("stat")=2  '2表示失败	
			res("des")="支付失败"		
			res.update
			end if
	End If
	'处理完后返回接收到标识为ok
	'只要商户接到通知，不管订单状态如何
	'都只需要返回接收到标识为ok
	Response.Write("ok")
Else
End If

'session("stat") = returnMsg
'session("num")=sp_billnos
'response.redirect "../../buy/Result.asp"
%>
<html><meta http-equiv="refresh" content="0;url=Result.asp?num=<%=sp_billno%>"></html>