From 1d7dd32c553ee98caa22ca7203d85135221b19bb Mon Sep 17 00:00:00 2001
From: wlzboy <66905212@qq.com>
Date: 星期四, 14 八月 2025 22:35:09 +0800
Subject: [PATCH] feat: update orderprice.gds
---
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