| | |
|---|
| | |
|
|---|
| | | '地区报价方案
|
|---|
| | | appUrl="https://api.map.baidu.com/reverse_geocoding/v3/"
|
|---|
| | | args1="location="&Region_lat&","&Region_lng&"&output=json&latest_admin=1&ak=itVkbEKpECSqWgP9u8Po7ZiBkUHR9p2p"
|
|---|
| | | args1="coordtype=gcj02ll&location="&Region_lat&","&Region_lng&"&output=json&latest_admin=1&ak=itVkbEKpECSqWgP9u8Po7ZiBkUHR9p2p"
|
|---|
| | | HTMLCODE= GetBody(appUrl,args1)
|
|---|
| | | json = HTMLCODE
|
|---|
| | | 'Response.Write HTMLCODE
|
|---|
| | |
|---|
| | | OrderPriceFRM = OrderPriceFRM & "+"&WaitingInt&"*"&IRWaitingCost
|
|---|
| | | OrderPriceTXT = OrderPriceTXT&"等待费用:"&WaitingInt*IRWaitingCost&"元\n"
|
|---|
| | | End If
|
|---|
| | | If ServiceOrdApptDate<>"" Then '非工作时间服务费用，周一~五的0800-2000 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
|
|---|
| | |
|---|
| | | OrderPriceFRM = OrderPriceFRM & OrderPrice*(SpecialRatio-1)
|
|---|
| | | OrderPriceTXT = OrderPriceTXT&"节假日时间服务费用:"&OrderPrice*(SpecialRatio-1)&"元\n"
|
|---|
| | | OrderPrice=OrderPrice*SpecialRatio
|
|---|
| | | ElseIf (hour(ServiceOrdApptDate)<=8 Or hour(ServiceOrdApptDate)>=20) 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
|
|---|
