From 2decf5219e3476e30095fd9dbf6e49c55e105563 Mon Sep 17 00:00:00 2001
From: wlzboy <66905212@qq.com>
Date: 星期六, 06 九月 2025 23:22:49 +0800
Subject: [PATCH] feat: 增加公交广告中的优惠券功能
---
inc/thirdpay.asp | 28 +++++++++++++++++-----------
1 files changed, 17 insertions(+), 11 deletions(-)
diff --git a/inc/thirdpay.asp b/inc/thirdpay.asp
index a469e80..8a1e7de 100644
--- a/inc/thirdpay.asp
+++ b/inc/thirdpay.asp
@@ -1,20 +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")
- if PayQRcodeURL<>"" Then
- PayQRcodeURL = PayQRcodeURL&"?PayMoney="&PayMoney&"&ServiceOrdID="&ServiceOrdID&"&DispatchOrdID="&DispatchOrdID
- Response.Redirect PayQRcodeURL
+ 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
-End If
-rs.close()
+ 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