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

      

@@ -287,19 +287,19 @@
      If IRid<>0 Then

         '手动报价

         If InStr(Address,"白云机场")>0 Or InStr(Address,"白云国际机场")>0 Then

            IRPrice=489

            IRPrice=298

            IRlimit1=5

            IRDtPrice=6   

         ElseIf InStr(Address,"广州南站")>0 Then

            IRPrice=389

            IRPrice=298

            IRlimit1=5

            IRDtPrice=6

         ElseIf InStr(Address,"广州白云站")>0 Then

            IRPrice=389

            IRPrice=298

            IRlimit1=5

            IRDtPrice=6

         ElseIf InStr(Address,"广州东站")>0 Then

            IRPrice=359

            IRPrice=298

            IRlimit1=5

            IRDtPrice=6

         'ElseIf StartArea="白云区" Then

@@ -307,15 +307,15 @@
         '   IRlimit1=5

         '   IRDtPrice=6

         elseIf StartArea="越秀区" Or StartArea="荔湾区" Or StartArea="海珠区" Or StartArea="天河区"  Or StartArea="黄埔区"  Or StartArea="白云区" Then

            IRPrice=169

            IRPrice=99

            IRlimit1=5

            IRDtPrice=6

         elseif StartArea="番禺区" Then

            IRPrice=219

            IRPrice=99

            IRlimit1=5

            IRDtPrice=6

         ElseIf StartArea="花都区" Then

            IRPrice=169

            IRPrice=99

            IRlimit1=5

            IRDtPrice=6

         ElseIf StartArea="增城区" And  Isluxury="0" Then

@@ -338,7 +338,7 @@
            IRDtPrice=6

            IsOrdinary="1"

         ElseIf StartArea="南沙区" And Isluxury="1" Then

            IRPrice=359

            IRPrice=99

            IRlimit1=5

            IRDtPrice=6

            IsOrdinary="1"

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

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

         End If

         If ServiceOrdApptDate<>"" Then   '非工作时间服务费用20250624，周一~周五晚上22点后至早上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)>=22 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