From b3f8789cf8bf0d934f8431b1d7b564a756576b4b Mon Sep 17 00:00:00 2001 From: wlzboy <66905212@qq.com> Date: 星期四, 14 八月 2025 22:18:35 +0800 Subject: [PATCH] feat: new upload file php --- API/v3/OrderPrice.gds | 28 ++++++++++++++-------------- 1 files changed, 14 insertions(+), 14 deletions(-) diff --git a/API/v3/OrderPrice.gds b/API/v3/OrderPrice.gds index b832f77..c08913c 100644 --- a/API/v3/OrderPrice.gds +++ b/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 -- Gitblit v1.9.1