came.git - Gitblit

			@@ -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,37 +287,47 @@
			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
			' IRPrice=99
			' IRlimit1=5
			' IRDtPrice=6
			elseIf StartArea="越秀区" Or StartArea="荔湾区" Or StartArea="海珠区" Or StartArea="天河区" Or StartArea="番禺区" Or StartArea="黄埔区" Or StartArea="白云区" Then
			IRPrice=169
			elseIf StartArea="越秀区" Or StartArea="荔湾区" Or StartArea="海珠区" Or StartArea="天河区" Or StartArea="黄埔区" Or StartArea="白云区" Then
			IRPrice=99
			IRlimit1=5
			IRDtPrice=6
			elseif StartArea="番禺区" Then
			IRPrice=99
			IRlimit1=5
			IRDtPrice=6
			ElseIf StartArea="花都区" Then
			IRPrice=319
			IRPrice=99
			IRlimit1=5
			IRDtPrice=6
			ElseIf StartArea="增城区" Then
			IRPrice=359
			ElseIf StartArea="增城区" And Isluxury="0" Then
			IRPrice=99
			IRlimit1=5
			IRDtPrice=6
			IsOrdinary="1"
			Elseif StartArea="增城区" And Isluxury="1" Then
			IRPrice=99
			IRlimit1=5
			IRDtPrice=6
			IsOrdinary="1"
			ElseIf StartArea="从化区" Then
			IRPrice=359
			IRlimit1=5
			@@ -328,7 +338,7 @@
			IRDtPrice=6
			IsOrdinary="1"
			ElseIf StartArea="南沙区" And Isluxury="1" Then
			IRPrice=359
			IRPrice=99
			IRlimit1=5
			IRDtPrice=6
			IsOrdinary="1"