【调度系统】广东民航医疗快线调度系统源代码
wlzboy
2025-08-14 1d7dd32c553ee98caa22ca7203d85135221b19bb
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=s4tr59feoRqyWUfRZKnmCnmCyqHKDvd8"
      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=s4tr59feoRqyWUfRZKnmCnmCyqHKDvd8"
      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=s4tr59feoRqyWUfRZKnmCnmCyqHKDvd8"
   args1="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=s4tr59feoRqyWUfRZKnmCnmCyqHKDvd8"
      args1="origin="&StartAddress_lat&","&StartAddress_lng&"&destination="&EndAddress_lat&","&EndAddress_lng&"&coord_type=wgs84&ak=itVkbEKpECSqWgP9u8Po7ZiBkUHR9p2p"
      HTMLCODE= GetBody(appUrl,args1)
      json   = HTMLCODE