📄 autoreceive.asp

📁 淘客网上商店网站程序淘客网上商店网站程序淘客网上商店网站程序

💻 ASP

字号:

<!--#include file="../Conn.asp"-->
<!--#include file="../Inc/Cl_ClsSysTem.asp"-->
<!--#include file="../Inc/Cl_Md5.asp"-->
<!--#include file="../Inc/Cl_ClsOnlinePay.asp"-->
<%
Const ChannelID=0
Cl.Get_WebSetting
OnlinePay.ReceiveType=2
Select Case Cl.GetClng(Cl.Product_Setting(3))
Case 1
	Rem 财付通
	OnlinePay.Tenpay
	If OnlinePay.P_IsSucceed=True Then
		OnlinePay.P_PayMsg = "恭喜您支付成功！"
	End If
	Response.write "<meta name=""TENCENT_ONELINE_PAYMENT"" content=""China TENCENT"">" & VbCrlf
	Response.write "<html>" & VbCrlf
	Response.write "<script language=javascript>" & VbCrlf
	Response.write "window.location.href='http://" & Cl.ServerName & Cl.WebDir & "PayOnline/PayReceive.asp?Msg="&P_PayMsg&"';" & VbCrlf
	Response.write "</script>" & VbCrlf
	Response.write "</html>"
Case 2
	Rem 支付宝
	OnlinePay.Alipay
	If OnlinePay.P_IsSucceed=True then
		response.write("success")
	Else
		response.write("fail")
	End If 
Case 3
	Rem 网银在线
	OnlinePay.ChinaBank
	If OnlinePay.P_IsSucceed=True then
		response.write("ok")
	Else
		response.write("error")
	End If 
Case 4
	Rem 云网
	OnlinePay.CnCard
	If OnlinePay.P_IsSucceed=True then
		response.Write("<result>1</result><reURL>http://" & Cl.ServerName & Cl.WebDir & "PayOnline/PayReceive.asp</reURL>")
	Else
		response.write OnlinePay.P_PayMsg
	End If
Case Else
	Response.write "在线支付已经禁用！"
End Select
Set OnlinePay = Nothing
%>
<%
'========================================================================
Rem 创力网站管理系统
Rem 在线支付自动对账接口
Rem 注意：如果采用网银在线，此接口需要通知网银客服来设置该程序的URL地址。
Rem		此接口URL地址为：http://网站安装目录/PayOnline/AutoReceive.asp

Rem Email: Info@Aspoo.cn			http://www.aspoo.com
Rem Date : 2007-3-26				http://bbs.aspoo.com
Rem		        Copyright (c) 2007 Aspoo.Com
'========================================================================
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -