payonline.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,User
    Dim v_mid,v_amount,v_moneytype,style,v_url,remark1,remark2,curdate,v_oid,v_md5info,text,Remark,Amount,PayPrice
	Call DBConnBegin()
    If Int(WR_Other(2)) < 1 Then Call WRMPS.ErrView("·系统目前不支持在线支付<br>·<a href="&WR_Setting(3)&ChannelDir&">查看其它支付方式？</a>", 0)

Select Case WRMPS.CheckStr(Request("Action"),0)
  Case "Send"
    Order = WRMPS.CheckStr(Request("Order"),0)
    Remark = WRMPS.CheckStr(Request("Remark"),2)
    Amount = WRMPS.CheckStr(Request("Amount"),8)
	If Order = "" Or IsNull(Order) Then
      v_amount = Amount
	  If v_amount = "" Then Call WRMPS.ErrView("·请输入汇款金额", 0)
	  User = MemName
	  If User = "" Then User = NULL
	  Order = NULL
	Else
	  '如果有单号则检查订单是否存在
	  'Rs.Open "Select SMT_OrderPrice,SMT_Name From SMT_Order Where SMT_OrderNum = '"&Order&"'",Conn,1,1
      'If Not Rs.EOF Then
      '  v_amount = Rs(0)
	  '  If S("User_Admin") <> "" Then
	  '    User = S("User_Admin")
	  '  Else
	  '    User = Rs(1)
	  '  End If
      'Else
	  '  Call WRMPS.ErrView("·订单不存在", 0)
      'End If
	  'Rs.Close
	End If
	
	PayPrice = v_amount*(WR_Other(6)/100)+v_amount
	
	key = WR_Other(5)
	v_mid = WR_Other(4)
	v_moneytype = "0"
	style="0"
	v_url=WR_Setting(4)&ChannelDir&"/PayReceive.asp"
	remark1=Remark
	remark2=""
	curdate=Now()
	v_oid = year(curdate)&month(curdate)&day(curdate)&"-"&v_mid&"-"&hour(curdate)&minute(curdate)&second(curdate)
	text  = WRMPS.GetFormatNumber(PayPrice,2)&v_moneytype&v_oid&v_mid&v_url&key
	v_md5info=Ucase(trim(md5(0,text)))
	'写入支付记录
	SQL = "Insert Into WM_OnlinePay(WM_OrderNum,WM_PayNum,WM_Price,WM_PayPrice,WM_Outcome,WM_Time,WM_User,WM_Remark)values('"&Order&"','"&v_oid&"',"&v_amount&","&v_amount*(WR_Other(6)/100)+v_amount&",0,"&ConnTime&",'"&User&"','"&Remark&"')"
	Conn.Execute(SQL)
    SitePath = ",<a href="&WR_Setting(3)&ChannelDir&">"&ChannelName&"</a>,<a href="&WR_Setting(3)&ChannelDir&"/PayOnline.asp>在线支付</a>,<a href="&WR_Setting(3)&ChannelDir&"/PayOnline.asp?Action=Send&Order="&Order&">支付确认</a>"
	SitePath = WRMPS.GetSitePath(0,SitePath)
	Call WRMPS.FsoBegin()
	TempStr = WRTemp.SiteTemplates(1,0,52,0)
	Call WRMPS.FsoEnd()
    TempStr = WRMPS.GetReplace(TempStr,"{$PayForm}","<input type=hidden name=v_md5info value="&v_md5info&"><input type=hidden name=v_mid value="&v_mid&"><input type=hidden name=v_oid value="&v_oid&"><input type=hidden name=v_amount value="&WRMPS.GetFormatNumber(PayPrice,2)&"><input type=hidden name=v_moneytype value="&v_moneytype&"><input type=hidden name=v_url value='"&v_url&"'><input type=hidden name=style value="&style&"><input type=hidden name=remark1 value='"&remark1&"'><input type=hidden name=remark2 value='"&remark2&"'>")
    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 = WRMPS.GetReplace(TempStr,"{$PoundagePrice}",WR_Other(6))
    TempStr = WRMPS.GetReplace(TempStr,"{$PayPrice}",PayPrice)
    TempStr = WRTemp.SiteChannel(TempStr)
    TempStr = WRTemp.SiteLabel(TempStr)
	Call ClassEnd()
	WRMPS.DelCookies "Pay"
	Response.write TempStr

  Case Else
    SitePath = ",<a href="&WR_Setting(3)&ChannelDir&">"&ChannelName&"</a>,<a href="&WR_Setting(3)&ChannelDir&"/PayOnline.asp>在线支付</a>"
	SitePath = WRMPS.GetSitePath(0,SitePath)
	Call WRMPS.FsoBegin()
	TempStr = WRTemp.SiteTemplates(1,0,51,0)
	Call WRMPS.FsoEnd()
	TempStr = WRTemp.SiteChannel(TempStr)
	TempStr = WRTemp.SiteLabel(TempStr)
	Call ClassEnd()
	Response.write TempStr
End Select
Call DBConnEnd()
%>