feat(派单模块): 添加敏感信息隐藏功能

wanglizhong

2025-06-24 a51d070d364b0da8e5f8ea9203a6e50c8b4c0af3

 inc/thirdpay.asp

@@ -1,20 +1,26 @@
<%
'第三方支付
Function ThirdPay(PayMoney,ServiceOrdID,DispatchOrdID)
Function ThirdPay(PayType,PayMoney,ServiceOrdID,DispatchOrdID,replaceURL)
'PayType:支付类型
'PayMoney:支付金额
'ServiceOrdID:服务单ID 
'DispatchOrdID:调度单ID
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
%>