<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<!--#include virtual="/inc/chkadmin.gds"-->
|
<!--#include virtual="/inc/function.gds"-->
|
<%
|
CarSearchTXT=trim(Request("CarSearchTXT"))
|
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")
|
ClassSql=""
|
if admin_OrderClass<>"" then
|
ClassSql=" and ("
|
admin_OrderClassPS = SPLIT(admin_OrderClass,",")
|
for s = 0 to UBOUND(admin_OrderClassPS)
|
if admin_OrderClassPS(s)<>"" then
|
if InStr(ClassSql,"CarOrdClass")<=0 then
|
ClassSql=ClassSql&" CarOrdClass like '%"&admin_OrderClassPS(s)&"%' "
|
else
|
ClassSql=ClassSql&" or CarOrdClass like '%"&admin_OrderClassPS(s)&"%' "
|
end if
|
end if
|
Next
|
ClassSql=ClassSql&")"
|
end If
|
|
sql="select top 1 CarID,CarLicense,CarModels,CarState from CarData,DispatchOrd where CarID=DispatchOrdCarID and DispatchOrd_NS_ID="&session("adminID")&" and DispatchOrdState<>10 and CarState>0 and DispatchOrdTraEndMileage>0 order by DispatchOrd_NS_Time desc"
|
rs.open Sql,objConn,1,1
|
if not rs.eof Then
|
CarID = rs("CarID")
|
CarLicense = rs("CarLicense")
|
CarModels = rs("CarModels")
|
CarState = rs("CarState")
|
CarModels=replace(CarModels,"\","\\")
|
|
CarListArray=",{""CarID"":"&CarID&",""CarLicense"":"""&CarLicense&""",""CarModels"":""<label style='color: #04BE02;'>上次用车</label>""}"
|
j=9
|
Else
|
j=10
|
End If
|
rs.close()
|
|
if len(CarSearchTXT)>0 then
|
sql="select CarID,CarLicense,CarModels,CarState from CarData where CarState>0 "&ClassSql&" and (CarLicense like '%"&CarSearchTXT&"%' or CarModels like '%"&CarSearchTXT&"%') order by CarTop,CarID"
|
else
|
if OrdClass<>"" then
|
If ClassSql<>"" Then
|
ClassSql=Replace(ClassSql," )"," or CarOrdClass like '%"&OrdClass&"%')")
|
Else
|
ClassSql=" and CarOrdClass like '%"&OrdClass&"%' "
|
End If
|
ClassSql=ClassSql&" and CarOrdClass like '%"&OrdClass&"%' "
|
End If
|
sql="select CarID,CarLicense,CarModels,CarState from CarData where CarState>0 "&ClassSql&" order by CarTop,CarLicense,CarID"
|
end If
|
rs.open Sql,objConn,1,1
|
if not rs.eof then
|
rs.pagesize=j
|
rs.absolutepage=acc1
|
acc2=rs.pagecount
|
end if
|
do while not rs.Eof and i<j
|
CarID = rs("CarID")
|
CarLicense = rs("CarLicense")
|
CarModels = rs("CarModels")
|
CarState = rs("CarState")
|
CarModels=replace(CarModels,"\","\\")
|
|
CarListArray=CarListArray&",{""CarID"":"&CarID&",""CarLicense"":"""&CarLicense&""",""CarModels"":"""&CarModels&"""}"
|
i=i+1
|
rs.movenext
|
loop
|
rs.close()
|
|
if CarListArray<>"" then
|
CarListArray=mid(CarListArray,2)
|
webJson="{""result"":1,""SearchTXT"":"""&CarSearchTXT&""",""Header"":[""车牌号"",""车型""],""CarList"":["&CarListArray&"],""acc1"":"&acc1&",""acc2"":"&acc2&"}"
|
else
|
webJson="{""result"":2,""SearchTXT"":"""&CarSearchTXT&""",""Error"":""车牌号错误""}"
|
end if
|
|
Response.Write webJson
|
Response.End%>
|
