<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
' 功能：支付宝服务器异步通知页面
' 版本：3.3
' 日期：2012-07-17
' 说明：
' 以下代码只是为了方便商户测试而提供的样例代码，商户可以根据自己网站的需要，按照技术文档编写,并非一定要使用该代码。
' 该代码仅供学习和研究支付宝接口使用，只是提供一个参考。
	
' //////////////页面功能说明//////////////
' 创建该页面文件时，请留心该页面文件中无任何HTML代码及空格。
' 该页面不能在本机电脑测试，请到服务器上做测试。请确保外部可以访问该页面。
' 该页面调试工具请使用写文本函数LogResult，该函数已被默认开启，见alipay_notify.asp中的函数VerifyNotify
' 如果没有收到该页面返回的 success 信息，支付宝会在24小时内按一定的时间策略重发通知
' 
' 如何判断该笔交易是通过即时到帐方式付款还是通过担保交易方式付款？
'
'担保交易的交易状态变化顺序是：等待买家付款→买家已付款，等待卖家发货→卖家已发货，等待买家收货→买家已收货，交易完成
'即时到帐的交易状态变化顺序是：等待买家付款→交易完成
'
'每当收到支付宝发来通知时，就可以获取到这笔交易的交易状态，并且商户需要利用商户订单号查询商户网站的订单数据，
'得到这笔订单在商户网站中的状态是什么，把商户网站中的订单状态与从支付宝通知中获取到的状态来做对比。
'如果商户网站中目前的状态是等待买家付款，而从支付宝通知获取来的状态是买家已付款，等待卖家发货，那么这笔交易买家是用担保交易方式付款的
'如果商户网站中目前的状态是等待买家付款，而从支付宝通知获取来的状态是交易完成，那么这笔交易买家是用即时到帐方式付款的
'////////////////////////////////////////
%>

<!--#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")

    '获取总金额
	total_fee= Request.Form("price")

'回写数据库支付状态=========================================
'放在此只作简单判断支付成功后操作，如果要判断卖家网站发货或买家确认收货等要放在下面相应位置，并集成相应判断数据返回处理
set rs = Server.CreateObject("ADODB.RecordSet")
sql="select * from [TianTianCMS_Order] where ddhm='"&out_trade_no&"' and cash="&total_fee&"" 
rs.open sql,conn,1,3
if Request.Form("trade_status") = "WAIT_SELLER_SEND_GOODS" Then'该判断表示买家已在支付宝交易管理中产生了交易记录且付款成功，但卖家没有发货
'rs("zfqr")=1'同时更新用户订单结款状态
rs("zffs")=1'同时更新用户订单付款方式
rs("admincl")=1'同时更新用户订单付款状态，1为客户已汇款
'rs("ddshsj")=now()
rs("Payment")="支付宝双担保"
rs("trade_no")=trade_no'支付宝交易号
rs.update
Else
If rs("admincl")=0 then'如果接收财付通的通知并处理业务成功，不再重复操作
'rs("zfqr")=1'同时更新用户订单结款状态
rs("zffs")=1'同时更新用户订单付款方式
rs("admincl")=2'同时更新用户订单审核状态,2为商家暂收到款
rs("ddshsj")=now()
rs("Payment")="支付宝双即时"
rs("trade_no")=trade_no'支付宝交易号
rs.update

Dim Products_id,Products_num,amount
Products_id=split(rs("Products_id"),"|")
Products_num=split(rs("Products_num"),"|")
amount=split(rs("amount"),"|")
Call CloseRs(rs)
'将订单按商品详细记录开始，之前要读出数组参数＝＝＝＝＝＝＝＝
for i=1 to Ubound(Products_id)
set rs = server.createobject("adodb.recordset")
sql="select * from TianTianCMS_Products where ID="&CInt(Products_id(i))
rs.open sql,conn,1,3
rs("sales_amount")=rs("sales_amount")+CInt(Products_num(i))'销售数量
rs("Stock")=rs("Stock")-CInt(Products_num(i))'减去库存
rs("amount")=rs("amount")+Formatnumber(amount(i),2,-1,-1,0)'货款总额
rs.update
Next
Call CloseRs(rs)
for i=1 to Ubound(Products_id)
set rs = server.createobject("adodb.recordset")
sql="select * from TianTianCMS_Sales"
rs.open sql,conn,1,3
rs.addnew
rs("goodsid")=Products_id(i)'商品ID号
rs("sales_num")=CInt(Products_num(i))'销量
rs("sales_amount")=Formatnumber(amount(i),2,-1,-1,0)'货款总额
rs("ddshsj")=now()
rs.update
Next
'将订单按商品详细记录结束＝＝＝＝＝＝＝＝
End if'如果接收财付通的通知并处理业务成功，不再重复操作
End if

Call CloseRs(rs)
Call CloseDB(conn)
'回写数据库支付状态end===================================

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

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