【调度系统】广东民航医疗快线调度系统源代码
wanglizhong
2025-06-24 a51d070d364b0da8e5f8ea9203a6e50c8b4c0af3
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Session.CodePage=65001%>
<!--#include virtual="/inc/chkadmin.gds"-->
<!--#include virtual="/inc/function.gds"-->
<script language=javascript>
<%
searchTXT=trim(Request("CarLicense"))
 
 
i=0
Set rs = Server.CreateObject("ADODB.Recordset")
if searchTXT<>"" then
    sql="select CarID,CarLicense,CarModels,CarState from CarData where CarState>0 and (CarLicense like '%"&searchTXT&"%' or CarModels like '%"&searchTXT&"%') order by CarID"
else
    sql=""
end if
 
if sql<>"" then
    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,"\","\\")
    end if
    rs.close()
end if
 
if CarID<>"" then
%>
parent.JS_CarData('<%=CarID%>','<%=CarLicense%>');
<%else%>
parent.JS_CarData('','车牌号错误');
<%end if%>
</script> 
<%=sql%>
<%Response.End%>