<!--#include virtual="/inc/chkadmin.gds"-->
|
<!--#include virtual="/inc/function.gds"-->
|
<%
|
ClassSearchTXT=trim(Request("ClassSearchTXT"))
|
OA_CompetencyID=trim(Request("OA_CompetencyID"))
|
OrdClass=trim(Request("OrdClass"))
|
acc1=trim(Request("page"))
|
if acc1="" then acc1=1
|
acc2=1
|
i=0
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
|
admin_OrderClassPS=SPLIT(admin_OrderClass,",")
|
isOrderClass=0
|
ClassAddressS=""
|
for z = 0 to UBOUND(admin_OrderClassPS)
|
If OrderClassB(admin_OrderClassPS(z),"UnitState")<>"0" Then
|
sql="select UnitShort,ServiceAddress,ServiceAddress_lat,ServiceAddress_lng from IntroducerUnitData where UnitState>0 and ServiceAddress_lat is not null and ServiceAddress_lng is not null and ServiceBranch='"&admin_OrderClassPS(z)&"'"
|
rs.open sql,objConn,1,1
|
if not rs.Eof Then
|
ClassAddress=rs("ServiceAddress")
|
UnitShort=rs("UnitShort")
|
Address_lat_lng=rs("ServiceAddress_lat")&","&rs("ServiceAddress_lng")
|
If Instr(ClassAddress,"省")<=0 Then ClassAddress="广东省"&ClassAddress
|
ClassAddressPS = SPLIT(Replace(Replace(Replace(ClassAddress,"省","|"),"市","|"),"区","|"),"|")
|
If ubound(ClassAddressPS)>=3 Then
|
StartProvince = ClassAddressPS(0)&"省"
|
StartCity = ClassAddressPS(1)&"市"
|
StartArea = ClassAddressPS(2)&"区"
|
elseIf ubound(ClassAddressPS)>=2 Then
|
StartProvince = ClassAddressPS(0)&"省"
|
StartCity = ClassAddressPS(1)&"市"
|
StartArea = ""
|
else
|
StartProvince = ClassAddressPS(0)&"省"
|
StartCity = ""
|
StartArea = ""
|
End If
|
|
Else
|
ClassAddress=""
|
UnitShort=""
|
End If
|
rs.close()
|
ClassAddressS=ClassAddressS&"|"&admin_OrderClassPS(z)&";"&ClassAddress
|
|
If ServiceOrdClass=admin_OrderClassPS(z) Then
|
isOrderClass=1
|
FromAddress=ClassAddress
|
End If
|
ClassName=OrderClassB(admin_OrderClassPS(z),"vtext")
|
'acc2=acc2+1
|
If ClassSearchTXT<>"" Then
|
If Instr(ClassName,ClassSearchTXT)>0 Or Instr(ClassAddress,ClassSearchTXT)>0 Then
|
OrderClassListArray=OrderClassListArray&",{""ClassID"":"""&admin_OrderClassPS(z)&""",""ClassName"":"""&ClassName&""",""UnitShort"":"""&UnitShort&""",""ClassAddress"":"""&ClassAddress&""",""StartProvince"":"""&StartProvince&""",""StartCity"":"""&StartCity&""",""StartArea"":"""&StartArea&""",""Address_lat_lng"":"""&Address_lat_lng&"""}"
|
End If
|
Else
|
OrderClassListArray=OrderClassListArray&",{""ClassID"":"""&admin_OrderClassPS(z)&""",""ClassName"":"""&ClassName&""",""UnitShort"":"""&UnitShort&""",""ClassAddress"":"""&ClassAddress&""",""StartProvince"":"""&StartProvince&""",""StartCity"":"""&StartCity&""",""StartArea"":"""&StartArea&""",""Address_lat_lng"":"""&Address_lat_lng&"""}"
|
End If
|
End If
|
Next
|
|
if OrderClassListArray<>"" then
|
OrderClassListArray=mid(OrderClassListArray,2)
|
webJson="{""result"":1,""SearchTXT"":"""&ClassSearchTXT&""",""Header"":[""服务单位"",""派车地址""],""ClassList"":["&OrderClassListArray&"],""acc1"":"&acc1&",""acc2"":"&acc2&"}"
|
else
|
webJson="{""result"":2,""SearchTXT"":"""&ClassSearchTXT&""",""Error"":""无相关服务单位""}"
|
end if
|
|
Response.Write webJson
|
Response.End%>
|
