隐藏

asp支付宝主动通知调用的页面(通知页)

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

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

  8. ''''''''''''页面功能说明'''''''''''''''''''
  9. '创建该页面文件时,请留心该页面文件中无任何HTML代码及空格。
  10. '该页面不能在本机电脑测试,请到服务器上做测试。请确保外部可以访问该页面。
  11. '该页面调试工具请使用写文本函数log_result,该函数已被默认开启,见alipay_notify.asp中的函数notify_verify
  12. 'WAIT_BUYER_PAY(表示买家已在支付宝交易管理中产生了交易记录,但没有付款);
  13. 'WAIT_SELLER_SEND_GOODS(表示买家已在支付宝交易管理中产生了交易记录且付款成功,但卖家没有发货);
  14. 'WAIT_BUYER_CONFIRM_GOODS(表示卖家已经发了货,但买家还没有做确认收货的操作);
  15. 'TRADE_FINISHED(表示买家已经确认收货,这笔交易完成);
  16. '该通知页面主要功能是:对于返回页面(return_url.asp)做补单处理。如果没有收到该页面返回的 success 信息,支付宝会在24小时内按一定的时间策略重发通知
  17. '''''''''''''''''''''''''''''''''''''''''''
  18. %>
  19. <!--#include file="../../conn.asp"-->
  20. <!--#include file="../../config.asp"-->
  21. <!--#include file="alipay/Alipay_md5.asp"-->
  22. <% dim opayid

  23. opayid=1
  24. set rs=server.CreateObject("adodb.recordset")
  25. rs.open "select opayid,opayname,opaypassword,opayrturl,opayparter from sdx_opay where opayid="&opayid,conn,1,1
  26. payid=rs("opayname")
  27. paypwd=rs("opaypassword")
  28. payurl="http://"&Request.ServerVariables("HTTP_HOST")&"/"&rs("opayrturl")
  29. payparter=rs("opayparter")
  30. rs.close
  31. set rs=nothing

  32. %>

  33. <%
  34. '计算得出通知验证结果
  35. verify_result = notify_verify()

  36. if verify_result then '验证成功
  37. '获取支付宝的通知返回参数
  38. order_no = request.Form("out_trade_no") '获取订单号
  39. total_fee = request.Form("price") '获取总金额
  40. sOld_trade_status = 2 '获取商户数据库中查询得到该笔交易当前的交易状态

  41. '假设:
  42. 'sOld_trade_status="0" 表示订单未处理;
  43. 'sOld_trade_status="1" 表示买家已在支付宝交易管理中产生了交易记录,但没有付款
  44. 'sOld_trade_status="2" 表示买家已在支付宝交易管理中产生了交易记录且付款成功,但卖家没有发货
  45. 'sOld_trade_status="3" 表示卖家已经发了货,但买家还没有做确认收货的操作
  46. 'sOld_trade_status="4" 表示买家已经确认收货,这笔交易完成

  47. if request.Form("trade_status") = "WAIT_BUYER_PAY" then
  48. '表示买家已在支付宝交易管理中产生了交易记录,但没有付款
  49. '放入订单交易完成后的数据库更新程序代码,请务必保证response.Write出来的信息只有success
  50. '为了保证不被重复调用,或重复执行数据库更新程序,请判断该笔交易状态是否是订单未处理状态
  51. '注:该交易状态下,也可不做数据库更新程序,此时,建议把该状态的通知信息记录到商户通知日志数据库表中。
  52. if sOld_trade_status = 0 then
  53. '根据订单号更新订单,把订单处理成交易成功
  54. end if

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

  56. '调试用,写文本函数记录程序运行情况是否正常
  57. 'log_result("这里写入想要调试的代码变量值,或其他运行的结果记录")
  58. elseif request.Form("trade_status") = "WAIT_SELLER_SEND_GOODS" then
  59. '表示买家已在支付宝交易管理中产生了交易记录且付款成功,但卖家没有发货
  60. '放入订单交易完成后的数据库更新程序代码,请务必保证response.Write出来的信息只有success
  61. '为了保证不被重复调用,或重复执行数据库更新程序,请判断该笔交易状态是否是WAIT_BUYER_PAY状态
  62. if sOld_trade_status = 1 or sOld_trade_status = 0 then
  63. '根据订单号更新订单,把订单处理成交易成功
  64. end if

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

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


  68. set rs=server.CreateObject("adodb.recordset")
  69. rs.Open "select state,score,id,productnum from orders where goods='"&order_no&"'",conn,1,3
  70. if rs.eof and rs.bof then
  71. strnetpayresult1="支付订单号有错,请联系商家!"
  72. else
  73. do while not rs.EOF
  74. rs("state")=3

  75. rs.Update
  76. rs.MoveNext
  77. loop
  78. end if
  79. rs.Close
  80. set rs=nothing



  81. elseif request.Form("trade_status") = "WAIT_BUYER_CONFIRM_GOODS" then
  82. '表示卖家已经发了货,但买家还没有做确认收货的操作
  83. '放入订单交易完成后的数据库更新程序代码,请务必保证response.Write出来的信息只有success
  84. '为了保证不被重复调用,或重复执行数据库更新程序,请判断该笔交易状态是否是WAIT_SELLER_SEND_GOODS状态
  85. if sOld_trade_status = 2 then

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





  87. end if

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

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

  91. set rs=server.CreateObject("adodb.recordset")
  92. rs.Open "select state,score,id,productnum from orders where goods='"&order_no&"'",conn,1,3
  93. if rs.eof and rs.bof then
  94. strnetpayresult1="支付订单号有错,请联系商家!"
  95. else
  96. do while not rs.EOF
  97. rs("state")=4

  98. rs.Update
  99. rs.MoveNext
  100. loop
  101. end if
  102. rs.Close
  103. set rs=nothing


  104. elseif request.Form("trade_status") = "TRADE_FINISHED" then
  105. '表示买家已经确认收货,这笔交易完成
  106. '放入订单交易完成后的数据库更新程序代码,请务必保证response.Write出来的信息只有success
  107. '为了保证不被重复调用,或重复执行数据库更新程序,请判断该笔交易状态是否是WAIT_BUYER_CONFIRM_GOODS状态
  108. if sOld_trade_status = 3 then
  109. '根据订单号更新订单,把订单处理成交易成功
  110. end if

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

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

  114. set rs=server.CreateObject("adodb.recordset")
  115. rs.Open "select state,score,id,productnum from orders where goods='"&order_no&"'",conn,1,3
  116. if rs.eof and rs.bof then
  117. strnetpayresult1="支付订单号有错,请联系商家!"
  118. else
  119. do while not rs.EOF
  120. rs("state")=5

  121. rs.Update
  122. rs.MoveNext
  123. loop
  124. end if
  125. rs.Close
  126. set rs=nothing

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

  131. set rs=server.CreateObject("adodb.recordset")
  132. rs.Open "select state,score,id,productnum from orders where goods='"&order_no&"'",conn,1,3
  133. if rs.eof and rs.bof then
  134. strnetpayresult1="支付订单号有错,请联系商家!"
  135. else
  136. do while not rs.EOF
  137. rs("state")=3

  138. rs.Update
  139. rs.MoveNext
  140. loop
  141. end if
  142. rs.Close
  143. set rs=nothing
  144. end if
  145. else '验证失败
  146. response.Write "fail"
  147. '调试用,写文本函数记录程序运行情况是否正常
  148. 'log_result ("这里写入想要调试的代码变量值,或其他运行的结果记录")
  149. end if
  150. %>