From 1ce68427c1d414c39261a26bca710fbf4fd9a6e5 Mon Sep 17 00:00:00 2001
From: hzj <1831054011@qq.com>
Date: 星期四, 14 八月 2025 09:56:11 +0800
Subject: [PATCH] feat:新增旧单据编号搜索单据和修改福祉车价格计算
---
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