| | |
| | |
|
| | | 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
|
| | |
| | | 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
|
| | |
| | |
|
| | | '地区报价方案
|
| | | 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
|
| | |
| | | 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
|
| | |
|