<!--#include file="Alipay_md5.asp"-->
<%
'Add by sunzhizhi 2006-5-10
Dim key
'Partner 和 交易安全校驗碼
partner="wxall@163.com"   'partner合作伙伴id
key =  "t85s7wwqmerakxtdz54qlo04xxm1tb1k"  'partner賬戶的支付寶安全校驗碼
'ATN 校驗地址 
'*******************************************************************
alipayNotifyURL = "http://notify.alipay.com/trade/notify_query.do?"
'獲取ATN結果,如果你的服務器不支持https訪問的話，需要用老的接口查詢地址了，論壇上會公布

alipayNotifyURL	= alipayNotifyURL & "msg_id=notify_verify&email=" & partner & "&order_no=" & request.Form("notify_id")
	
	Set Retrieval = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")
    Retrieval.setOption 2, 13056 
    Retrieval.open "GET", alipayNotifyURL, False, "", "" 
    Retrieval.send()
    ResponseTxt = Retrieval.ResponseText
	Set Retrieval = Nothing


'*******************************************************************

'獲取支付寶POST過來通知消息
For Each varItem in Request.Form 
mystr=varItem&"="&Request.Form(varItem)&"^"&mystr
Next 
If mystr<>"" Then 
mystr=Left(mystr,Len(mystr)-1)
End If 
'response.write mystr
'*******************************************************************
mystr = SPLIT(mystr, "^")
Count=ubound(mystr)
'對參數排序
For i = Count TO 0 Step -1
minmax = mystr( 0 )
minmaxSlot = 0
For j = 1 To i
mark = (mystr( j ) > minmax)
If mark Then 
minmax = mystr( j )
minmaxSlot = j
End If 
Next
    
If minmaxSlot <> i Then 
temp = mystr( minmaxSlot )
mystr( minmaxSlot ) = mystr( i )
mystr( i ) = temp
End If
Next
'構造md5摘要字符串
 For j = 0 To Count Step 1
 value = SPLIT(mystr( j ), "=")

 If  value(1)<>"" And value(0)<>"sign" And value(0)<>"sign_type"  Then
 If j=Count Then
 md5str= md5str&mystr( j )
 Else 
 md5str= md5str&mystr( j )&"&"
 End If 
 End If 
 Next
md5str=md5str&key
 '生成md5摘要
 mysign=md5(md5str)

'*******************************************************************
	'驗證消息的可靠性，并且處理自己的業務動作，然后反回給支付寶成功消息  
If mysign=request.Form("sign") And ResponseTxt="true" Then 	

  '判斷支付狀態，（文檔中有支付枚舉表，可供參考）
 If  request.Form("trade_status")="WAIT_SELLER_SEND_GOODS" Then 

'支付寶收到買家付款，請賣家發貨 ,修改訂單狀態，發貨等TRADE_FINISHED


response.write "success"
End If

Else
response.write "fail"
End If 

'*******************************************************************
 '寫文本，方便測試（看網站需求，也可以改成存入數據庫）
TOEXCELLR=TOEXCELLR&md5str&"MD5結果:"&mysign&"="&request.Form("sign")&"--ResponseTxt:"&ResponseTxt
set fs= createobject("scripting.filesystemobject") 
set ts=fs.createtextfile(server.MapPath("Notify_DATA/"&replace(now(),":","")&".txt"),true)

 ts.writeline(TOEXCELLR)
 ts.close
 set ts=Nothing
 set fs=Nothing




%>