From d10ed72968a41dfc2c963101eaa16276a7f7b1a6 Mon Sep 17 00:00:00 2001
From: hzj <1831054011@qq.com>
Date: 星期一, 13 十月 2025 14:20:51 +0800
Subject: [PATCH] Merge branch 'main' of http://8.134.184.104:10801/r/came
---
weixin_pay_QR.asp | 5 +++++
1 files changed, 5 insertions(+), 0 deletions(-)
diff --git a/weixin_pay_QR.asp b/weixin_pay_QR.asp
index 0bb4a3c..562fbbf 100644
--- a/weixin_pay_QR.asp
+++ b/weixin_pay_QR.asp
@@ -4,12 +4,15 @@
<!--#include virtual="/inc/odbc.asp"-->
<!--#include virtual="/inc/function.gds"-->
<!--#include virtual="/inc/core.asp"-->
+<!--#include virtual="/inc/thirdpay.asp"-->
<%
Set rs = Server.CreateObject("ADODB.Recordset")
DispatchOrdID = SafeRequest(trim(request("DispatchOrdID")))
ServiceOrdID = SafeRequest(trim(request("ServiceOrdID")))
Total_fee = SafeRequest(trim(request("Total_fee")))
pc = SafeRequest(trim(request("pc")))
+
+
if pc="1" and DispatchOrdID="" then
replaceURL="/ServiceOrder.gds?ServiceOrdID="&ServiceOrdID
@@ -19,6 +22,8 @@
replaceURL="/m_DispatchOrder_PaidMoney.gds?DispatchOrdID="&DispatchOrdID
end if
+ThirdPay "weixin",Total_fee,ServiceOrdID,DispatchOrdID,replaceURL
+
APPPayID = "Pay966120"
trade_type = "NATIVE"
If ServiceOrdID<>"" Then
--
Gitblit v1.9.1