payreceive.asp

网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。

<!--#include file="../inc/Conn.asp"-->
<!--#include file="../Inc/Cls.Common.asp"-->
<!--#include file="../Inc/Cls.Templates.asp"-->
<!--#include file="Channel_Config.asp"-->
<%
  Dim Order,OrderList,PayOutcome,Price
  Dim v_mid,v_amount,v_moneytype,style,v_url,remark1,remark2,curdate,v_oid,v_md5info,text,v_pmode,v_pstatus,v_pstring,v_md5str,md5text
  
  If Int(WR_Other(2)) < 1 Then Call WRMPS.ErrView("·系统目前不支持在线支付<br>·<a href="&WR_Setting(3)&ChannelDir&">查看其它支付方式？</a>", 0)
  If IsEmpty(WRMPS.GetCookies("Pay")) = False Then Call WRMPS.ErrView("·请不要重复刷新此页面", 0)

  v_oid=Request.Form("v_oid")
  v_pmode=Request.Form("v_pmode")
  v_pstatus=Int(Request.Form("v_pstatus"))
  v_pstring=Request.Form("v_pstring")
  v_amount=Cstr(Request.Form("v_amount"))
  v_moneytype=Request.Form("v_moneytype")
  remark1=Request.Form("remark1")
  remark2=Request.Form("remark2")
  v_md5str=Request.Form("v_md5str")

  Key=WR_Other(5)

  If v_md5str="" Then Call WRMPS.ErrView("·非法操作", 0)

  Text = v_oid&v_pstatus&v_amount&v_moneytype&Key
  md5text = Ucase(trim(md5(0,Text)))

  Call DBConnBegin()
  Set Rs = Server.Createobject("adodb.recordset")
  If md5text<>v_md5str Then
    Call WRMPS.ErrView("·非法操作", 0)
  Else
    If v_pstatus<>20 then '支付失败
      Rs.Open "Select WM_OrderNum From WM_OnlinePay Where WM_PayNum = '"&v_oid&"' and WM_PayPrice = "&v_amount&"",Conn,1,1
      If Not Rs.EOF Then
	    Order = Rs(1)
	  Else
	    Rs.Close
	    Call WRMPS.ErrView("·非法操作", 0)
	  End If
	  Rs.Close
    Else '支付成功
	  Rs.Open "Select WM_Outcome,WM_OrderNum,WM_Price From WM_OnlinePay Where WM_PayNum = '"&v_oid&"' and WM_PayPrice = "&v_amount&"",Conn,1,3
      If Not Rs.EOF Then
	    Order = Rs(1)
		Price = Rs(2)
		Rs(0) = 1
		Rs.Update
	  Else
	    Rs.Close
	    Call WRMPS.ErrView("·非法操作", 0)
	  End If
	  Rs.Close
      If Order = "" or Isnull(Order) Then
	    '没有订单号则存入用户账户
	    If WRUser.ChkLogin Then
		  Call WRDB.SaveConsume(0,MemName,v_amount,0,0,0,"账户充值(网上支付，支付号："&v_oid&")")
	    End If
	  Else
	    '有订单号则操作订单状态
		'先进账，再出账
	  End If
    End If
  End if

  SitePath = ",<a href="&WR_Setting(3)&ChannelDir&">"&ChannelName&"</a>,<a href="&WR_Setting(3)&ChannelDir&"/PayOnline.asp>在线支付</a>,<a href="&WR_Setting(3)&ChannelDir&"/PayReceive.asp>支付成功</a>"
  SitePath = WRMPS.GetSitePath(0,SitePath)
  Call WRMPS.FsoBegin()
  TempStr = WRTemp.SiteTemplates(1,0,53,0)
  Call WRMPS.FsoEnd()
  If v_pstatus=20 then 
    PayOutcome = "<font color=red><strong>恭喜您：您的订单支付成功</strong></font><br>" 
  Else 
    PayOutcome = "<font color=red><strong>对不起：支付失败</strong></font><br>" 
  End If 
  TempStr = WRMPS.GetReplace(TempStr,"{$PayOutcome}",PayOutcome)
  If Order = "" Or Isnull(Order) Then Order = "无订单直接付款"
  TempStr = WRMPS.GetReplace(TempStr,"{$OrderNumber}",Order)
  TempStr = WRMPS.GetReplace(TempStr,"{$PayNum}",v_oid)
  TempStr = WRMPS.GetReplace(TempStr,"{$OrderPrice}",WRMPS.GetFormatNumber(v_amount,2))
  TempStr = WRTemp.SiteChannel(TempStr)
  TempStr = WRTemp.SiteLabel(TempStr)
  Call ClassEnd()
  Set Rs = Nothing
  Call DBConnEnd()
  WRMPS.SCookies "Pay","True",0
  Response.write TempStr
%>