feat: new upload file php

wlzboy

2025-08-14 b3f8789cf8bf0d934f8431b1d7b564a756576b4b

 API/v3/OrderPrice.gds

@@ -158,7 +158,7 @@
   

   If StartAddress_lat=0 And errcode=0 Then

      appUrl="https://api.map.baidu.com/geocoding/v3/"

      args1="address="&StartAddress&"&output=json&ak=rGQBbHKGjAtVQy23OckafQkC6nNlaGmi"

      args1="address="&StartAddress&"&output=json&ak=s4tr59feoRqyWUfRZKnmCnmCyqHKDvd8"

      HTMLCODE= GetBody(appUrl,args1)

      'Response.Write HTMLCODE

      'Response.End

@@ -186,7 +186,7 @@
   End If

   If EndAddress_lat=0 And errcode=0 Then

      appUrl="https://api.map.baidu.com/geocoding/v3/"

      args1="address="&EndAddress&"&output=json&ak=rGQBbHKGjAtVQy23OckafQkC6nNlaGmi"

      args1="address="&EndAddress&"&output=json&ak=s4tr59feoRqyWUfRZKnmCnmCyqHKDvd8"

      HTMLCODE= GetBody(appUrl,args1)

      'Response.Write HTMLCODE

      'Response.End

@@ -213,7 +213,7 @@
         

   '地区报价方案

   appUrl="https://api.map.baidu.com/reverse_geocoding/v3/"

   args1="location="&Region_lat&","&Region_lng&"&output=json&latest_admin=1&ak=rGQBbHKGjAtVQy23OckafQkC6nNlaGmi"

   args1="location="&Region_lat&","&Region_lng&"&output=json&latest_admin=1&ak=s4tr59feoRqyWUfRZKnmCnmCyqHKDvd8"

   HTMLCODE= GetBody(appUrl,args1)

   json   = HTMLCODE

   'Response.Write HTMLCODE

@@ -229,7 +229,7 @@
   If TraDistance=0 Then

      '路线规划距离(公里)

      appUrl="https://api.map.baidu.com/directionlite/v1/driving"

      args1="origin="&StartAddress_lat&","&StartAddress_lng&"&destination="&EndAddress_lat&","&EndAddress_lng&"&coord_type=wgs84&ak=rGQBbHKGjAtVQy23OckafQkC6nNlaGmi"

      args1="origin="&StartAddress_lat&","&StartAddress_lng&"&destination="&EndAddress_lat&","&EndAddress_lng&"&coord_type=wgs84&ak=s4tr59feoRqyWUfRZKnmCnmCyqHKDvd8"

      HTMLCODE= GetBody(appUrl,args1)

      json   = HTMLCODE

      

@@ -390,7 +390,7 @@
            OrderPriceFRM = OrderPriceFRM & "+"&WaitingInt&"*"&IRWaitingCost

            OrderPriceTXT = OrderPriceTXT&"等待费用:"&WaitingInt*IRWaitingCost&"元\n"

         End If

         If ServiceOrdApptDate<>"" Then   '非工作时间服务费用20250812，周一~周五晚上21点30分后至早上7点整前为1.3倍

         If ServiceOrdApptDate<>"" Then   '非工作时间服务费用，周一~五的0800-2000 1.3倍

            sql="select SpecialRatio from SpecialDates where SpecialDates='"&formatdatetime(ServiceOrdApptDate,2)&"'"

            rs.open sql,objConn,1,1

            if not rs.Eof Then

@@ -398,7 +398,7 @@
               OrderPriceFRM = OrderPriceFRM & OrderPrice*(SpecialRatio-1)

               OrderPriceTXT = OrderPriceTXT&"节假日时间服务费用:"&OrderPrice*(SpecialRatio-1)&"元\n"

               OrderPrice=OrderPrice*SpecialRatio

            ElseIf (hour(ServiceOrdApptDate)>=21 And minute(ServiceOrdApptDate)>=30) Or hour(ServiceOrdApptDate)<7  Then

            ElseIf (hour(ServiceOrdApptDate)<=8 Or hour(ServiceOrdApptDate)>=20)  Then

               OrderPriceFRM = OrderPriceFRM & OrderPrice*0.3

               OrderPriceTXT = OrderPriceTXT&"非工作时间服务费用:"&OrderPrice*0.3&"元\n"

               OrderPrice=OrderPrice*1.3