<!--#include file="class/alipay_notify.asp"-->

<%
'计算得出通知验证结果
Set objNotify = New AlipayNotify
sVerifyResult = objNotify.VerifyNotify()

if sVerifyResult then	'验证成功
	'*********************************************************************
	'请在这里加上商户的业务逻辑程序代码

	'——请根据您的业务逻辑来编写程序（以下代码仅作参考）——
    '获取支付宝的通知返回参数，可参考技术文档中服务器异步通知参数列表

	'商户订单号

	out_trade_no = Request.Form("out_trade_no")

	'支付宝交易号

	trade_no = Request.Form("trade_no")

	'交易状态
	trade_status = Request.Form("trade_status")
	O_id = Request.Form("body")
	

	
	If Request.Form("trade_status") = "WAIT_BUYER_PAY" Then
	'该判断表示买家已在支付宝交易管理中产生了交易记录，但没有付款
		
		'判断该笔订单是否在商户网站中已经做过处理
			'如果没有做过处理，根据订单号（out_trade_no）在商户网站的订单系统中查到该笔订单的详细，并执行商户的业务程序
			'如果有做过处理，不执行商户的业务程序
		
		Response.Write "success"	'请不要修改或删除
		
		'调试用，写文本函数记录程序运行情况是否正常
        'LogResult("这里写入想要调试的代码变量值，或其他运行的结果记录")
	Elseif Request.Form("trade_status") = "WAIT_SELLER_SEND_GOODS" Then
if InStr(O_id,"|")=0 then
conn.execute("update Orders set O_state=1,O_tradeno='"&trade_no&"' where O_id="&O_id)
end if
if InStr(O_id,"|")<>0 then
For i = 0 To UBound(split(O_id,"|"))
conn.execute("update Orders set O_state=1,O_tradeno='"&trade_no&"' where O_id="&split(O_id,"|")(i))
Next
end if

	'该判断表示买家已在支付宝交易管理中产生了交易记录且付款成功，但卖家没有发货
		
		'判断该笔订单是否在商户网站中已经做过处理
			'如果没有做过处理，根据订单号（out_trade_no）在商户网站的订单系统中查到该笔订单的详细，并执行商户的业务程序
			'如果有做过处理，不执行商户的业务程序
		
		Response.Write "success"	'请不要修改或删除
		
		'调试用，写文本函数记录程序运行情况是否正常
        'LogResult("这里写入想要调试的代码变量值，或其他运行的结果记录")
	Elseif Request.Form("trade_status") = "WAIT_BUYER_CONFIRM_GOODS" Then
if InStr(O_id,"|")=0 then
conn.execute("update Orders set O_state=2,O_tradeno='"&trade_no&"' where O_id="&O_id)
end if
if InStr(O_id,"|")<>0 then
For i = 0 To UBound(split(O_id,"|"))
conn.execute("update Orders set O_state=2,O_tradeno='"&trade_no&"' where O_id="&split(O_id,"|")(i))
Next
end if
	'该判断表示卖家已经发了货，但买家还没有做确认收货的操作
	
		'判断该笔订单是否在商户网站中已经做过处理
			'如果没有做过处理，根据订单号（out_trade_no）在商户网站的订单系统中查到该笔订单的详细，并执行商户的业务程序
			'如果有做过处理，不执行商户的业务程序
		
		Response.Write "success"	'请不要修改或删除
		
		'调试用，写文本函数记录程序运行情况是否正常
        'LogResult("这里写入想要调试的代码变量值，或其他运行的结果记录")
	Elseif Request.Form("trade_status") = "TRADE_FINISHED" Then
if InStr(O_id,"|")=0 then
conn.execute("update Orders set O_state=3,O_tradeno='"&trade_no&"' where O_id="&O_id)
end if
if InStr(O_id,"|")<>0 then
For i = 0 To UBound(split(O_id,"|"))
conn.execute("update Orders set O_state=3,O_tradeno='"&trade_no&"' where O_id="&split(O_id,"|")(i))
Next
end if
	'该判断表示买家已经确认收货，这笔交易完成
	
		'判断该笔订单是否在商户网站中已经做过处理
			'如果没有做过处理，根据订单号（out_trade_no）在商户网站的订单系统中查到该笔订单的详细，并执行商户的业务程序
			'如果有做过处理，不执行商户的业务程序
		
		Response.Write "success"	'请不要修改或删除
		
		'调试用，写文本函数记录程序运行情况是否正常
        'LogResult("这里写入想要调试的代码变量值，或其他运行的结果记录")
	Else
		'其他状态判断。
		
		Response.Write "success"
		'调试用，写文本函数记录程序运行情况是否正常
		'LogResult ("这里写入想要调试的代码变量值，或其他运行的结果记录")
	End If

	'——请根据您的业务逻辑来编写程序（以上代码仅作参考）——
	
	'*********************************************************************
else '验证失败
    response.Write "fail"
	'调试用，写文本函数记录程序运行情况是否正常
	'LogResult("这里写入想要调试的代码变量值，或其他运行的结果记录")
end if
%>