📄 autoreceive.asp

📁 正版创力4.1SQL商业版!!!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
Select Case Cl.GetClng(Cl.Product_Setting(3))
Case 1
	Rem 网银在线
	OnlinePay.ChinaBank
	If OnlinePay.P_IsSucceed=True then
		response.write("ok")
	Else
		response.write("error")
	End If 
Case 2
	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 3
	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 4
	Rem 支付宝
	OnlinePay.Alipay
	If OnlinePay.P_IsSucceed=True then
		response.write("success")
	Else
		response.write("fail")
	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 + -