Add existing code files

克樊道人

2024-12-02 61ce8cc6883e5f94e6470141df3484167caf31ed

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
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> 
<%Session.CodePage=65001%> 
<!--#include virtual="/inc/chkadmin.gds"--> 
<!--#include virtual="/inc/function.gds"--> 
<% 
ServiceOrdClass=trim(Request("ServiceOrdClass")) 
DispatchOrdClass=trim(Request("DispatchOrdClass")) 
Set rs = Server.CreateObject("ADODB.Recordset") 
if ServiceOrdClass<>"" then 
    sql="select * from dictionary where vtitle='OrderClass' and vOrder2 in ('"&ServiceOrdClass&"')" 
    rs.open Sql,objConn,1,1 
    if not rs.eof then 
        ServiceOrdClassName=rs("vtext") 
        OrdClass=Replace(ServiceOrdClassName,"服务单","") 
    End If 
    rs.close() 
    If OrdClass<>"" Then 
        sql="select vOrder2 from dictionary where vtitle='OrderClass' and vType=2 and vtext='"&OrdClass&"调度单'" 
        rs.open Sql,objConn,1,1 
        if not rs.eof then 
            DispatchOrdClass=rs("vOrder2") 
        End If 
        rs.close() 
    End If 
 
ElseIf DispatchOrdClass<>"" Then 
    sql="select * from dictionary where vtitle='OrderClass' and vOrder2 in ('"&DispatchOrdClass&"')" 
    rs.open Sql,objConn,1,1 
    if not rs.eof then 
        DispatchOrdClassName=rs("vtext") 
        OrdClass=Replace(DispatchOrdClassName,"调度单","") 
    End If 
    rs.close() 
    If OrdClass<>"" Then 
        sql="select vOrder2 from dictionary where vtitle='OrderClass' and vType=1 and vtext='"&OrdClass&"服务单'" 
        rs.open Sql,objConn,1,1 
        if not rs.eof then 
            DispatchOrdClass=rs("vOrder2") 
        End If 
        rs.close() 
    End If 
End If 
webJson="{""result"":1,""ServiceOrdClass"":"""&ServiceOrdClass&""",""DispatchOrdClass"":"""&DispatchOrdClass&"""}" 
Response.Write webJson 
%>