<!--#include file="class/alipay_notify.asp"-->
<%
' 功能：支付宝服务器异步通知页面
' 版本：3.3
' 日期：2012-07-17
' 说明：
' 以下代码只是为了方便商户测试而提供的样例代码，商户可以根据自己网站的需要，按照技术文档编写,并非一定要使用该代码。
' 该代码仅供学习和研究支付宝接口使用，只是提供一个参考。
	
' //////////////页面功能说明//////////////
' 创建该页面文件时，请留心该页面文件中无任何HTML代码及空格。
' 该页面不能在本机电脑测试，请到服务器上做测试。请确保外部可以访问该页面。
' 该页面调试工具请使用写文本函数LogResult，该函数已被默认开启，见alipay_notify.asp中的函数VerifyNotify
' 如果没有收到该页面返回的 success 信息，支付宝会在24小时内按一定的时间策略重发通知
' （该接口的注意事项，如果没有那么该行删除）。
'////////////////////////////////////////
%>

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

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

'回写数据库支付状态开始=========================================

order_no= request.Form("out_trade_no")	'获取订单号，支付宝系统产生（或如果在alipayto.asp中设置用商家网站产生的）
total_fee= request.Form("total_fee")		'获取总金额
trade_no = Request.Form("trade_no")'支付宝交易号

If Left(out_trade_no,2)="cz" Then'如果是充值
set rs = Server.CreateObject("ADODB.RecordSet")
sql="select * from [DianJiaCMS_financiallog] where ddhm='"&out_trade_no&"' and income="&total_fee&"" 
rs.open sql,conn,1,3
If rs("audit")=False then'如果已审核处理业务成功，不再重复操作
rs("operator")="支付宝"
rs("audit")=true'同时更新用户订单付款状态
rs("audittime")=now()
rs.update
Conn.Execute("Update DianJiaCMS_Members Set wallet=wallet+"&total_fee&" where MemName='"&rs("members")&"'")
End if'如果已审核处理业务成功，不再重复操作END
else'如果是购物
set rs = Server.CreateObject("ADODB.RecordSet")
sql="select * from [DianJiaCMS_Order] where ddhm='"&order_no&"' and cash="&total_fee&"" 
rs.open sql,conn,1,3
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 DianJiaCMS_Product 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 DianJiaCMS_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===================================


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

	'商户订单号

	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")
	
	If Request.Form("trade_status") = "TRADE_FINISHED" Then
		'判断该笔订单是否在商户网站中已经做过处理
			'如果没有做过处理，根据订单号（out_trade_no）在商户网站的订单系统中查到该笔订单的详细，并执行商户的业务程序
			'如果有做过处理，不执行商户的业务程序
			
		'注意：
		'该种交易状态只在两种情况下出现
		'1、开通了普通即时到账，买家付款成功后。
		'2、开通了高级即时到账，从该笔交易成功时间算起，过了签约时的可退款时限（如：三个月以内可退款、一年以内可退款等）后。
		
		Response.Write "success"	'请不要修改或删除
		
		'调试用，写文本函数记录程序运行情况是否正常
        'LogResult("这里写入想要调试的代码变量值，或其他运行的结果记录")
	ElseIf Request.Form("trade_status") = "TRADE_SUCCESS" Then
		'判断该笔订单是否在商户网站中已经做过处理
			'如果没有做过处理，根据订单号（out_trade_no）在商户网站的订单系统中查到该笔订单的详细，并执行商户的业务程序
			'如果有做过处理，不执行商户的业务程序
			
		'注意：
		'该种交易状态只在一种情况下出现——开通了高级即时到账，买家付款成功后。
		
		Response.Write "success"	'请不要修改或删除
		
		'调试用，写文本函数记录程序运行情况是否正常
        'LogResult("这里写入想要调试的代码变量值，或其他运行的结果记录")
	Else
		'其他状态判断。
		
		Response.Write "success"
		'调试用，写文本函数记录程序运行情况是否正常
		'LogResult ("这里写入想要调试的代码变量值，或其他运行的结果记录")
	End If

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