<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<!--#include virtual="/inc/chkadmin.gds"-->
|
<!--#include virtual="/inc/function.gds"-->
|
<%
|
HospSearchTXT=trim(Request("HospSearchTXT"))
|
OA_CompetencyID=trim(Request("OA_CompetencyID"))
|
HopsCity=trim(Request("HopsCity"))
|
HospType=trim(Request("HospType"))
|
acc1=trim(Request("page"))
|
pagesize=trim(Request("pagesize"))
|
t=trim(Request("t"))
|
if acc1="" then acc1=1
|
If pagesize="" Then
|
pagesize=6
|
Else
|
pagesize=CInt(pagesize)
|
End If
|
acc2=1
|
i=0
|
acc3=0
|
If HopsCity<>"" Then
|
HopsCity=Replace(HopsCity,"服务单","")
|
HopsCity=Replace(HopsCity,"地面","")
|
HopsCity=Replace(HopsCity,"航空","")
|
If HospType<>"ServiceOrdPtOutHosp" And HospType<>"ServiceOrdPtInHosp" Then HospType="ServiceOrdPtOutHosp"
|
End If
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
if len(HospSearchTXT)>0 then
|
sql="select HospID,HospName,HospShort,HopsProvince,HopsCity,HopsArea,HospAddress,HospLevel from HospData where HospState>0 and (HospName like '%"&HospSearchTXT&"%' or HospShort like '%"&HospSearchTXT&"%' or HopsProvince like '%"&HospSearchTXT&"%' or HopsCity like '%"&HospSearchTXT&"%' or HopsArea like '%"&HospSearchTXT&"%' or HospAddress like '%"&HospSearchTXT&"%') order by HospLevel,HospID"
|
ElseIf Len(HopsCity)>0 Then
|
sql="select HospID,HospName,HospShort,HopsProvince,HopsCity,HopsArea,HospAddress,HospLevel from ServiceOrder,HospData where HospID="&HospType&"ID and ServiceOrdState=3 and "&HospType&"ID<>0 and DATEDIFF(dd, ServiceOrd_CC_Time,GETDATE())<=60 and (HospLevel<0 or HopsCity like '%"&HopsCity&"%' or HopsProvince like '%"&HopsCity&"%' or HospName like '%"&HopsCity&"%' or HospShort like '%"&HopsCity&"%') GROUP BY HospID,HospName,HospShort,HopsProvince,HopsCity,HopsArea,HospAddress,HospLevel order by count("&HospType&"ID) desc"
|
Else
|
sql="select HospID,HospName,HospShort,HopsProvince,HopsCity,HopsArea,HospAddress,HospLevel from HospData where HospState>0 order by HospLevel,HospID"
|
end If
|
rs.open Sql,objConn,1,1
|
if not rs.eof then
|
rs.pagesize=pagesize
|
rs.absolutepage=acc1
|
acc2=rs.pagecount
|
acc3=rs.recordcount
|
end If
|
%>
|
<script language=javascript>
|
var HospListArray=new Array()
|
<%
|
do while not rs.Eof and i<pagesize
|
HospID = rs("HospID")
|
HospName = rs("HospName")
|
HospShort = rs("HospShort")
|
HospAddress = rs("HospAddress")
|
HopsProvince= rs("HopsProvince")
|
HopsCity = rs("HopsCity")
|
HopsArea = rs("HopsArea")
|
HospLevelName=HospLevelA(rs("HospLevel"))
|
if HospAddress<>"" then
|
HospAddress=HopsProvince&HopsCity&HopsArea&HospAddress
|
end if
|
%>
|
HospListArray[<%=i%>]=new Array("<%=HospID%>","<%=HospName%>","<%=HospShort%>","<%=HospAddress%>","<%=HospLevelName%>")
|
<%i=i+1
|
rs.movenext
|
loop
|
rs.close()
|
%>
|
parent.JS_HospList(HospListArray,<%=acc1%>,<%=acc2%>,'<%=HospSearchTXT%>',<%=acc3%>);
|
</script>
|
|
|
<%Response.End%>
|
