【调度系统】广东民航医疗快线调度系统源代码
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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Session.CodePage=65001%>
<!--#include virtual="/inc/chkadmin.gds"-->
<!--#include virtual="/inc/function.gds"-->
<%
searchTXT=SafeRequest(Replace(trim(Request("OrdSearch")),Chr(9),""))
OrdSearchType=SafeRequest(trim(Request("OrdSearchType")))
 
Set rs = Server.CreateObject("ADODB.Recordset")
if searchTXT<>"" Then
    '调度单查询
    searchSql=""
    If OrdSearchType="2" And Len(searchTXT)=11 And Left(searchTXT,2)="20" And IsNumeric(searchTXT) Then
        searchSql=" CONVERT(VARCHAR(10),DispatchOrd_NS_Time,120)=CONVERT(VARCHAR(10),'"&Mid(searchTXT,1,4)&"-"&Mid(searchTXT,5,2)&"-"&Mid(searchTXT,7,2)&"',120) and Right('00'+convert(varchar(3),DispatchOrdNo),3)='"&Right(searchTXT,3)&"' "
    ElseIf OrdSearchType="2" And Len(searchTXT)=9 And Left(searchTXT,1)="2" And IsNumeric(searchTXT) Then
        searchSql=" CONVERT(VARCHAR(10),DispatchOrd_NS_Time,120)=CONVERT(VARCHAR(10),'20"&Mid(searchTXT,1,2)&"-"&Mid(searchTXT,3,2)&"-"&Mid(searchTXT,5,2)&"',120) and Right('00'+convert(varchar(3),DispatchOrdNo),3)='"&Right(searchTXT,3)&"' "
    ElseIf OrdSearchType="2" And Len(searchTXT)=7 And (Left(searchTXT,1)="1" Or Left(searchTXT,1)="0") And IsNumeric(searchTXT) Then
        searchSql=" CONVERT(VARCHAR(10),DispatchOrd_NS_Time,120)=CONVERT(VARCHAR(10),'"&Year(now())&"-"&Mid(searchTXT,1,2)&"-"&Mid(searchTXT,3,2)&"',120) and Right('00'+convert(varchar(3),DispatchOrdNo),3)='"&Right(searchTXT,3)&"' "
    ElseIf OrdSearchType="2" And Len(searchTXT)=5 And IsNumeric(searchTXT) Then
        searchSql=" CONVERT(VARCHAR(10),DispatchOrd_NS_Time,120)=CONVERT(VARCHAR(10),'"&Year(now())&"-"&Right("0"&Month(now()),2)&"-"&Mid(searchTXT,1,2)&"',120) and Right('00'+convert(varchar(3),DispatchOrdNo),3)='"&Right(searchTXT,3)&"' "
    ElseIf Len(searchTXT)=14 And Not IsNumeric(Left(searchTXT,2)) And IsNumeric(Mid(searchTXT,3,8)) And IsNumeric(Right(searchTXT,3)) And Mid(searchTXT,11,1)="-" Then
        searchSql=" DispatchOrdClass='"&Left(searchTXT,2)&"' and CONVERT(VARCHAR(10),DispatchOrd_NS_Time,120)=CONVERT(VARCHAR(10),'"&Mid(searchTXT,3,4)&"-"&Mid(searchTXT,7,2)&"-"&Mid(searchTXT,9,2)&"',120) and Right('00'+convert(varchar(3),DispatchOrdNo),3)='"&Right(searchTXT,3)&"' "
    ElseIf Len(searchTXT)=10 And IsNumeric(searchTXT) Then
        searchSql=" DispatchOrdID="&Right(searchTXT,10)&" "
    ElseIf OrdSearchType="2" Then
        searchSql=" DispatchOrdCoName = '"&searchTXT&"' or DispatchOrdCoPhone = '"&searchTXT&"' "
    End If
    If searchSql<>"" Then
        sql="select top 1 DispatchOrdID from DispatchOrd where "&searchSql
        rs.open sql,objConn,1,1
        if not rs.eof then
            Response.Redirect "/DispatchOrder_List.gds?h_menu1_1=1&UnitNameID=0&OrdClassList=0&OrdSearchType="&OrdSearchType&"&searchTXT="&searchTXT
            Response.End()
        end if
        rs.close()
    End If
 
    '服务单查询
    searchSql=""
    If OrdSearchType="1" And Len(searchTXT)=11 And Left(searchTXT,2)="20" And IsNumeric(searchTXT) Then
        searchSql=" CONVERT(VARCHAR(10),ServiceOrd_CC_Time,120)=CONVERT(VARCHAR(10),'"&Mid(searchTXT,1,4)&"-"&Mid(searchTXT,5,2)&"-"&Mid(searchTXT,7,2)&"',120) and Right('00'+convert(varchar(3),ServiceOrdNo),3)='"&Right(searchTXT,3)&"' "
    ElseIf OrdSearchType="1" And Len(searchTXT)=9 And Left(searchTXT,1)="2" And IsNumeric(searchTXT) Then
        searchSql=" CONVERT(VARCHAR(10),ServiceOrd_CC_Time,120)=CONVERT(VARCHAR(10),'20"&Mid(searchTXT,1,2)&"-"&Mid(searchTXT,3,2)&"-"&Mid(searchTXT,5,2)&"',120) and Right('00'+convert(varchar(3),ServiceOrdNo),3)='"&Right(searchTXT,3)&"' "
    ElseIf OrdSearchType="1" And Len(searchTXT)=7 And (Left(searchTXT,1)="1" Or Left(searchTXT,1)="0") And IsNumeric(searchTXT) Then
        searchSql=" CONVERT(VARCHAR(10),ServiceOrd_CC_Time,120)=CONVERT(VARCHAR(10),'"&Year(now())&"-"&Mid(searchTXT,1,2)&"-"&Mid(searchTXT,3,2)&"',120) and Right('00'+convert(varchar(3),ServiceOrdNo),3)='"&Right(searchTXT,3)&"' "
    ElseIf OrdSearchType="1" And Len(searchTXT)=5 And IsNumeric(searchTXT) Then
        searchSql=" CONVERT(VARCHAR(10),ServiceOrd_CC_Time,120)=CONVERT(VARCHAR(10),'"&Year(now())&"-"&Right("0"&Month(now()),2)&"-"&Mid(searchTXT,1,2)&"',120) and Right('00'+convert(varchar(3),ServiceOrdNo),3)='"&Right(searchTXT,3)&"' "
    ElseIf Len(searchTXT)=14 And Not IsNumeric(Left(searchTXT,2)) And IsNumeric(Mid(searchTXT,3,8)) And IsNumeric(Right(searchTXT,3)) And Mid(searchTXT,11,1)="-" Then
        searchSql=" ServiceOrdClass='"&Left(searchTXT,2)&"' and CONVERT(VARCHAR(10),ServiceOrd_CC_Time,120)=CONVERT(VARCHAR(10),'"&Mid(searchTXT,3,4)&"-"&Mid(searchTXT,7,2)&"-"&Mid(searchTXT,9,2)&"',120) and Right('00'+convert(varchar(3),ServiceOrdNo),3)='"&Right(searchTXT,3)&"' "
    ElseIf Len(searchTXT)=10 And IsNumeric(searchTXT) Then
        searchSql=" ServiceOrdID="&Right(searchTXT,10)&" "
    ElseIf OrdSearchType="1" Then
        searchSql=" ServiceOrdCoName = '"&searchTXT&"' or ServiceOrdCoPhone = '"&searchTXT&"' or ServiceOrdPtName = '"&searchTXT&"'"
    End If
    If searchSql<>"" Then
        sql="select top 1 ServiceOrdID from ServiceOrder where "&searchSql
        rs.open sql,objConn,1,1
        if not rs.eof then
            Response.Redirect "/ServiceOrder_List.gds?h_menu1_1=1&UnitNameID=0&OrdClassList=0&OrdSearchType="&OrdSearchType&"&searchTXT="&searchTXT
            Response.End()
        end if
        rs.close()
    End If
Else%>
    <script lnguage=javascript>
    window.history.go(-1)
    </script>
<%End If%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta name="viewport" content="width=device-width, height=device-height, initial-scale=1, maximum-scale=1, user-scalable=no">  
<title><%=ServiceOrdStateTXT%></title>
<link href="css/main.css" type="text/css" rel="stylesheet">
<style>
.os_shopname{ line-height:45px; font-weight:700; margin-left:10px; border-bottom:1px solid #f1f1f1}
</style>
</head>
<script lnguage=javascript>
    alert("没相关记录!!");
    window.history.go(-1)
</script>