asp支付宝主动通知调用的页面（通知页）

1. <%
2. '功能：支付宝主动通知调用的页面（通知页）
3. '版本：3.0
4. '日期：2010-06-25
5. '说明：
6. '以下代码只是为了方便商户测试而提供的样例代码，商户可以根据自己网站的需要，按照技术文档编写,并非一定要使用该代码。
7. '该代码仅供学习和研究支付宝接口使用，只是提供一个参考。
8. 
   
9. ''''''''''''页面功能说明'''''''''''''''''''
10. '创建该页面文件时，请留心该页面文件中无任何HTML代码及空格。
11. '该页面不能在本机电脑测试，请到服务器上做测试。请确保外部可以访问该页面。
12. '该页面调试工具请使用写文本函数log_result，该函数已被默认开启，见alipay_notify.asp中的函数notify_verify
13. 'WAIT_BUYER_PAY(表示买家已在支付宝交易管理中产生了交易记录，但没有付款);
14. 'WAIT_SELLER_SEND_GOODS(表示买家已在支付宝交易管理中产生了交易记录且付款成功，但卖家没有发货);
15. 'WAIT_BUYER_CONFIRM_GOODS(表示卖家已经发了货，但买家还没有做确认收货的操作);
16. 'TRADE_FINISHED(表示买家已经确认收货，这笔交易完成);
17. '该通知页面主要功能是：对于返回页面（return_url.asp）做补单处理。如果没有收到该页面返回的 success 信息，支付宝会在24小时内按一定的时间策略重发通知
18. '''''''''''''''''''''''''''''''''''''''''''
19. %>
20. <!--#include file="../../conn.asp"-->
21. <!--#include file="../../config.asp"-->
22. <!--#include file="alipay/Alipay_md5.asp"-->
23. <% dim opayid
24. 
    
25. opayid=1
26. set rs=server.CreateObject("adodb.recordset")
27. rs.open "select opayid,opayname,opaypassword,opayrturl,opayparter from sdx_opay where opayid="&opayid,conn,1,1
28. payid=rs("opayname")
29. paypwd=rs("opaypassword")
30. payurl="http://"&Request.ServerVariables("HTTP_HOST")&"/"&rs("opayrturl")
31. payparter=rs("opayparter")
32. rs.close
33. set rs=nothing
34. 
    
35. %>
36. 
    
37. <%
38. '计算得出通知验证结果
39. verify_result = notify_verify()
40. 
    
41. if verify_result then '验证成功
42. '获取支付宝的通知返回参数
43. order_no = request.Form("out_trade_no") '获取订单号
44. total_fee = request.Form("price") '获取总金额
45. sOld_trade_status = 2 '获取商户数据库中查询得到该笔交易当前的交易状态
46. 
    
47. '假设：
48. 'sOld_trade_status="0" 表示订单未处理；
49. 'sOld_trade_status="1" 表示买家已在支付宝交易管理中产生了交易记录，但没有付款
50. 'sOld_trade_status="2" 表示买家已在支付宝交易管理中产生了交易记录且付款成功，但卖家没有发货
51. 'sOld_trade_status="3" 表示卖家已经发了货，但买家还没有做确认收货的操作
52. 'sOld_trade_status="4" 表示买家已经确认收货，这笔交易完成
53. 
    
54. if request.Form("trade_status") = "WAIT_BUYER_PAY" then
55. '表示买家已在支付宝交易管理中产生了交易记录，但没有付款
56. '放入订单交易完成后的数据库更新程序代码，请务必保证response.Write出来的信息只有success
57. '为了保证不被重复调用，或重复执行数据库更新程序，请判断该笔交易状态是否是订单未处理状态
58. '注：该交易状态下，也可不做数据库更新程序，此时，建议把该状态的通知信息记录到商户通知日志数据库表中。
59. if sOld_trade_status = 0 then
60. '根据订单号更新订单，把订单处理成交易成功
61. end if
62. 
    
63. response.Write "success" '请不要修改或删除
64. 
    
65. '调试用，写文本函数记录程序运行情况是否正常
66. 'log_result("这里写入想要调试的代码变量值，或其他运行的结果记录")
67. elseif request.Form("trade_status") = "WAIT_SELLER_SEND_GOODS" then
68. '表示买家已在支付宝交易管理中产生了交易记录且付款成功，但卖家没有发货
69. '放入订单交易完成后的数据库更新程序代码，请务必保证response.Write出来的信息只有success
70. '为了保证不被重复调用，或重复执行数据库更新程序，请判断该笔交易状态是否是WAIT_BUYER_PAY状态
71. if sOld_trade_status = 1 or sOld_trade_status = 0 then
72. '根据订单号更新订单，把订单处理成交易成功
73. end if
74. 
    
75. response.Write "success" '请不要修改或删除
76. 
    
77. '调试用，写文本函数记录程序运行情况是否正常
78. 'log_result("这里写入想要调试的代码变量值，或其他运行的结果记录")
79. 
    
80. 
    
81. set rs=server.CreateObject("adodb.recordset")
82. rs.Open "select state,score,id,productnum from orders where goods='"&order_no&"'",conn,1,3
83. if rs.eof and rs.bof then
84. strnetpayresult1="支付订单号有错，请联系商家！"
85. else
86. do while not rs.EOF
87. rs("state")=3
88. 
    
89. rs.Update
90. rs.MoveNext
91. loop
92. end if
93. rs.Close
94. set rs=nothing
95. 
    
96. 
    
97. 
    
98. elseif request.Form("trade_status") = "WAIT_BUYER_CONFIRM_GOODS" then
99. '表示卖家已经发了货，但买家还没有做确认收货的操作
100. '放入订单交易完成后的数据库更新程序代码，请务必保证response.Write出来的信息只有success
101. '为了保证不被重复调用，或重复执行数据库更新程序，请判断该笔交易状态是否是WAIT_SELLER_SEND_GOODS状态
102. if sOld_trade_status = 2 then
103. 
     
104. '根据订单号更新订单，把订单处理成交易成功
105. 
     
106. 
     
107. 
     
108. 
     
109. 
     
110. end if
111. 
     
112. response.Write "success" '请不要修改或删除
113. 
     
114. '调试用，写文本函数记录程序运行情况是否正常
115. 'log_result("这里写入想要调试的代码变量值，或其他运行的结果记录")
116. 
     
117. set rs=server.CreateObject("adodb.recordset")
118. rs.Open "select state,score,id,productnum from orders where goods='"&order_no&"'",conn,1,3
119. if rs.eof and rs.bof then
120. strnetpayresult1="支付订单号有错，请联系商家！"
121. else
122. do while not rs.EOF
123. rs("state")=4
124. 
     
125. rs.Update
126. rs.MoveNext
127. loop
128. end if
129. rs.Close
130. set rs=nothing
131. 
     
132. 
     
133. elseif request.Form("trade_status") = "TRADE_FINISHED" then
134. '表示买家已经确认收货，这笔交易完成
135. '放入订单交易完成后的数据库更新程序代码，请务必保证response.Write出来的信息只有success
136. '为了保证不被重复调用，或重复执行数据库更新程序，请判断该笔交易状态是否是WAIT_BUYER_CONFIRM_GOODS状态
137. if sOld_trade_status = 3 then
138. '根据订单号更新订单，把订单处理成交易成功
139. end if
140. 
     
141. response.Write "success" '请不要修改或删除
142. 
     
143. '调试用，写文本函数记录程序运行情况是否正常
144. 'log_result("这里写入想要调试的代码变量值，或其他运行的结果记录")
145. 
     
146. set rs=server.CreateObject("adodb.recordset")
147. rs.Open "select state,score,id,productnum from orders where goods='"&order_no&"'",conn,1,3
148. if rs.eof and rs.bof then
149. strnetpayresult1="支付订单号有错，请联系商家！"
150. else
151. do while not rs.EOF
152. rs("state")=5
153. 
     
154. rs.Update
155. rs.MoveNext
156. loop
157. end if
158. rs.Close
159. set rs=nothing
160. 
     
161. else
162. response.Write "success" '其他状态判断。普通即时到帐中，其他状态不用判断，直接打印success。
163. '调试用，写文本函数记录程序运行情况是否正常
164. 'log_result ("这里写入想要调试的代码变量值，或其他运行的结果记录")
165. 
     
166. set rs=server.CreateObject("adodb.recordset")
167. rs.Open "select state,score,id,productnum from orders where goods='"&order_no&"'",conn,1,3
168. if rs.eof and rs.bof then
169. strnetpayresult1="支付订单号有错，请联系商家！"
170. else
171. do while not rs.EOF
172. rs("state")=3
173. 
     
174. rs.Update
175. rs.MoveNext
176. loop
177. end if
178. rs.Close
179. set rs=nothing
180. end if
181. else '验证失败
182. response.Write "fail"
183. '调试用，写文本函数记录程序运行情况是否正常
184. 'log_result ("这里写入想要调试的代码变量值，或其他运行的结果记录")
185. end if
186. %>

• 杭州女生学html5难学吗_js/jQuery
• 小程序属于网页吗_vue
• 以前搜索过的网页现在怎么能找到_js/jQuery
• 动态扩展组件是什么_vue
• 12位AD转换器有哪些_js/jQuery
• vue中name和areas的用法_vue
• 西安动物园门票预约官网_vue
• 怎么把照片合成小视频_vue
• 现在做前端是不是一定要会开发小程序啊_vue
• 录制视频用的什么录音软件_vue
• vue中的log是什么意思_vue
• iphone11延时摄影怎么调速度_vue
• vue是开发语言吗_vue
• jquery大小写区别_js/jQuery
• vue和flutter哪个值得学习_vue
• 比如我某个时间要做什么记录下来_js/jQuery
• JS插件如何使用_js/jQuery
• data对象的属性和方法_vue
• 如何做地图定位_js/jQuery
• 什么叫语义库_js/jQuery