From e40f86fb35ffe1535bb66181fb0ec0c6b10e3fa8 Mon Sep 17 00:00:00 2001
From: wanglizhong <wlz>
Date: 星期二, 24 六月 2025 15:27:20 +0800
Subject: [PATCH] fix:v3 orderprice update 22 ~7 1.3
---
API/inc/thirdpay.asp | 10 ++++++++--
1 files changed, 8 insertions(+), 2 deletions(-)
diff --git a/API/inc/thirdpay.asp b/API/inc/thirdpay.asp
index a469e80..2685b08 100644
--- a/API/inc/thirdpay.asp
+++ b/API/inc/thirdpay.asp
@@ -1,6 +1,6 @@
<%
'绗笁鏂规敮浠�
-Function ThirdPay(PayMoney,ServiceOrdID,DispatchOrdID)
+Function ThirdPay(PayType,PayMoney,ServiceOrdID,DispatchOrdID)
'PayType:鏀粯绫诲瀷
'PayMoney:鏀粯閲戦
'ServiceOrdID:鏈嶅姟鍗旾D
@@ -11,10 +11,16 @@
If not rs.Eof then
PayQRcodeURL = rs("PayQRcodeURL")
if PayQRcodeURL<>"" Then
- PayQRcodeURL = PayQRcodeURL&"?PayMoney="&PayMoney&"&ServiceOrdID="&ServiceOrdID&"&DispatchOrdID="&DispatchOrdID
+ PayQRcodeURL = PayQRcodeURL&"?PayType="&PayType&"&PayMoney="&PayMoney&"&ServiceOrdID="&ServiceOrdID&"&DispatchOrdID="&DispatchOrdID
Response.Redirect PayQRcodeURL
End If
End If
rs.close()
End Function
+
+Function buildPayURL(PayType,PayMoney,ServiceOrdID,DispatchOrdID,PayQRcodeURL)
+ Dim PayURL
+ PayURL = PayQRcodeURL&"?PayType="&PayType&"&PayMoney="&PayMoney&"&ServiceOrdID="&ServiceOrdID&"&DispatchOrdID="&DispatchOrdID
+ buildPayURL = PayURL
+End Function
%>
\ No newline at end of file
--
Gitblit v1.9.1