Merge branch 'main' of http://8.134.184.104:10801/r/came

hzj

1 天以前 d10ed72968a41dfc2c963101eaa16276a7f7b1a6

 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=itVkbEKpECSqWgP9u8Po7ZiBkUHR9p2p"

      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=itVkbEKpECSqWgP9u8Po7ZiBkUHR9p2p"

      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="coordtype=gcj02ll&location="&Region_lat&","&Region_lng&"&output=json&latest_admin=1&ak=itVkbEKpECSqWgP9u8Po7ZiBkUHR9p2p"

   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=itVkbEKpECSqWgP9u8Po7ZiBkUHR9p2p"

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

               OrderPriceFRM = OrderPriceFRM & OrderPrice*0.3

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

               OrderPrice=OrderPrice*1.3