【调度系统】广东民航医疗快线调度系统源代码
parent: a0a942c6 | 补丁 | 提交 | ignore whitespace
wanglizhong
2025-05-05 8a7dab004bc3eca7808d0cc196a329464402bbc9 
fix:pay update
2个文件已修改
8 ■■■■■ 已修改文件
API/inc/thirdpay.asp 2 ●●●●● 补丁 | 查看 | 原始文档 | blame | 历史
inc/thirdpay.asp 6 ●●●●● 补丁 | 查看 | 原始文档 | blame | 历史 
 API/inc/thirdpay.asp


@@ -11,7 +11,7 @@


If not rs.Eof then     


      PayQRcodeURL = rs("PayQRcodeURL")


      if PayQRcodeURL<>"" Then


         PayQRcodeURL = PayQRcodeURL&"?PayType="&PayType&"&PayMoney="&PayMoney&"&ServiceOrdID="&ServiceOrdID&"&DispatchOrdID="&DispatchOrdID


         PayQRcodeURL = PayQRcodeURL&"?PayMoney="&PayMoney&"&ServiceOrdID="&ServiceOrdID&"&DispatchOrdID="&DispatchOrdID


         Response.Redirect PayQRcodeURL


      End If


End If




 inc/thirdpay.asp


@@ -10,8 +10,10 @@


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


      if PayQRcodeURL<>"" Then


         PayQRcodeURL = PayQRcodeURL&"?PayMoney="&PayMoney&"&ServiceOrdID="&ServiceOrdID&"&DispatchOrdID="&DispatchOrdID


         Response.Redirect PayQRcodeURL


      End If


End If


rs.close()


End Function