From d08ed14d6a4589c034140fdc8ac04a277c8e4b36 Mon Sep 17 00:00:00 2001
From: hzj <1831054011@qq.com>
Date: 星期一, 13 十月 2025 11:24:07 +0800
Subject: [PATCH] 添加福祉车爬楼机费和向转运隐藏成交价格
---
inc/thirdpay.asp | 28 ++++++++++++++++++----------
1 files changed, 18 insertions(+), 10 deletions(-)
diff --git a/inc/thirdpay.asp b/inc/thirdpay.asp
index 2d40a68..8a1e7de 100644
--- a/inc/thirdpay.asp
+++ b/inc/thirdpay.asp
@@ -1,18 +1,26 @@
<%
'绗笁鏂规敮浠�
-Function ThirdPay(PayMoney,ServiceOrdID,DispatchOrdID)
+Function ThirdPay(PayType,PayMoney,ServiceOrdID,DispatchOrdID,replaceURL)
'PayType:鏀粯绫诲瀷
'PayMoney:鏀粯閲戦
'ServiceOrdID:鏈嶅姟鍗旾D
'DispatchOrdID:璋冨害鍗旾D
-Set rs = Server.CreateObject("ADODB.Recordset")
-sql="select * from ServiceOrder where ServiceOrdID="&ServiceOrdID
-rs.open sql,objConn,1,1
-If not rs.Eof then
- PayQRcodeURL = rs("PayQRcodeURL")
- PayQRcodeURL = PayQRcodeURL&"?PayType="&PayType&"&PayMoney="&PayMoney&"&ServiceOrdID="&ServiceOrdID&"&DispatchOrdID="&DispatchOrdID
- Response.Redirect PayQRcodeURL
-End If
-rs.close()
+ Set rs = Server.CreateObject("ADODB.Recordset")
+ sql="select * from ServiceOrder where ServiceOrdID="&ServiceOrdID
+ rs.open sql,objConn,1,1
+ If not rs.Eof then
+ PayQRcodeURL = rs("PayQRcodeURL")
+ if PayQRcodeURL<>"" Then
+ PayQRcodeURL = PayQRcodeURL&"?PayType="&PayType&"&PayMoney="&PayMoney&"&ServiceOrdID="&ServiceOrdID&"&DispatchOrdID="&DispatchOrdID&"&returnUrl="&replaceURL
+ 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