Mobile Menu Will Come Here.
隐藏
柏港 Asp编程

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

发布：2015/1/6 13:19:04作者：管理员 来源：本站 浏览次数：1764

  1. <%
  2. '功能：支付宝主动通知调用的页面（通知页）
  3. '版本：3.0
  4. '日期：2010-06-25
  5. '说明：
  6. '以下代码只是为了方便商户测试而提供的样例代码，商户可以根据自己网站的需要，按照技术文档编写,并非一定要使用该代码。
  7. '该代码仅供学习和研究支付宝接口使用，只是提供一个参考。

  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

  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

  35. %>

  37. <%
  38. '计算得出通知验证结果
  39. verify_result = notify_verify()

  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 '获取商户数据库中查询得到该笔交易当前的交易状态

  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" 表示买家已经确认收货，这笔交易完成

  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

  63. response.Write "success" '请不要修改或删除

  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

  75. response.Write "success" '请不要修改或删除

  77. '调试用，写文本函数记录程序运行情况是否正常
  78. 'log_result("这里写入想要调试的代码变量值，或其他运行的结果记录")


  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

  89. rs.Update
  90. rs.MoveNext
  91. loop
  92. end if
  93. rs.Close
  94. set rs=nothing



  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

  104. '根据订单号更新订单，把订单处理成交易成功





  110. end if

  112. response.Write "success" '请不要修改或删除

  114. '调试用，写文本函数记录程序运行情况是否正常
  115. 'log_result("这里写入想要调试的代码变量值，或其他运行的结果记录")

  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

  125. rs.Update
  126. rs.MoveNext
  127. loop
  128. end if
  129. rs.Close
  130. set rs=nothing


  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

  141. response.Write "success" '请不要修改或删除

  143. '调试用，写文本函数记录程序运行情况是否正常
  144. 'log_result("这里写入想要调试的代码变量值，或其他运行的结果记录")

  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

  154. rs.Update
  155. rs.MoveNext
  156. loop
  157. end if
  158. rs.Close
  159. set rs=nothing

  161. else
  162. response.Write "success" '其他状态判断。普通即时到帐中，其他状态不用判断，直接打印success。
  163. '调试用，写文本函数记录程序运行情况是否正常
  164. 'log_result ("这里写入想要调试的代码变量值，或其他运行的结果记录")

  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

  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. %>
　用ASP接收Paypal的notify_url通知“偶尔”出错
paypal集成到自己购物网站，支付成功，notify_url调用正常，INVALID状态获取成功，但是return页面需要手工点击按钮才能返回自己网站，怎么自动跳回？　

柏港为您推荐了一些相关资讯

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

© Copyright 2014 - 2024 柏港建站平台 ejk5.com. 渝ICP备16000791号-4