<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> 
<!--#include file="./classes/PayResponseHandler.asp"-->
<!--#include file="./util/hex_md52.asp"-->
<!--#include file="../../inc/payok.asp"-->
<!--#include virtual="/inc/buysyspc.asp"-->
<%
'---------------------------------------------------------
'处理回调示例，商户按照此示例进行开发即可
'---------------------------------------------------------

key=huifu_key

'创建支付应答对象
Dim resHandler,allparams,strsign,wftsgin
Set resHandler = new PayResponseHandler
'判断签名
		allparams=resHandler.getall() '此处不包括sign
		
	   '加密结果
		sign = resHandler.getParameter("sign")	
		StrReceiveDate=allparams&"&sign="&sign
		strsign=allparams&"&key="&key              '添加密钥
		wftsgin=UCase(md5(strsign))
		
		If sign<>wftsgin Then
		'记录日志
		'log()
		Response.write("fail") '返回失败，等待继续通知
		Response.End 
		End If 
				
	pay_result=resHandler.getParameter("pay_result")  '此时得到pay_result=0，代表交易成功
	out_trade_no=resHandler.getParameter("out_trade_no")             '商户订单号
	trade_no=resHandler.getParameter("transaction_id")   '威富通交易号
	trade_no2=resHandler.getParameter("out_transaction_id") '支付宝交易号
	pay_body=resHandler.getParameter("attach")          '  原路返回
	total_fee=resHandler.getParameter("total_fee")    '  分为单位  10=0.1元
	total_fee=total_fee/100
			
conn.Execute("Insert Into aypayhuitiao(aypaydd,aypaytd,aypayfyu,aypayyu,aypaycon) values('"&out_trade_no&"','汇付1','"&request.ServerVariables("SERVER_NAME")&"','"&request.ServerVariables("HTTP_REFERER")&"','"&allparams&"')")
	
				
	'执行开始***************************************************************************
	if pay_body="buy" then
	call payokbuy(out_trade_no,trade_no,total_fee,"no")	
	end if

	if pay_body="chongzhi" then
	call payokchong(out_trade_no,trade_no,total_fee,"no")
	end if
	'执行结束***************************************************************************		
				
				
				
				
				
				
				

				'更改本地系统订单状态等逻辑处理部分---结束跳转到支付成功页面
				
				'给威富通系统发送成功信息，威富通系统收到此结果后不在进行后续通知
				Response.Write("Success")
				Response.End
		 

		




%>
