fix: update init

wanglizhong

2025-04-22 72c0df785d4838d35dc694071c61e3f9a54e7e81

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
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> 
<%Session.CodePage=65001%> 
<!--#include virtual="/inc/chkadmin.gds"--> 
<!--#include virtual="/inc/function.gds"--> 
<% 
Set rs = Server.CreateObject("ADODB.Recordset") 
DispatchOrdID=Request("DispatchOrdID") 
DispatchOrdCarID=Request("DispatchOrdCarID") 
UpdateTime=Request("UpdateTime") 
'If DispatchOrdID="1016165235" Then UpdateTime="2019-05-24 11:26:58" 
CarInspectionJson=",""isCarInspection"":""0""" 
If DispatchOrdCarID<>"" And DispatchOrdCarID<>"0" And IsNumeric(DispatchOrdID) Then 
        sql="select id,DispatchOrdIDPK,CarInspection from CarInspection where InspectionDate>='"&Date()&" 7:00:00' and InspectionState=1 and DispatchOrdIDPK="&DispatchOrdID&" and InspectionCarID="&DispatchOrdCarID 
        rs.open sql,objConn,1,1 
        If not rs.Eof Then 
            CarInspectionJson=",""isCarInspection"":""1""" 
        End If 
        rs.close() 
End If 
If IsNumeric(DispatchOrdID) And IsDate(UpdateTime) Then 
    sql="select DispatchOrdUpdateOAid,DATEDIFF(ss,'"&UpdateTime&"',DispatchOrdUpdateTime),DispatchOrdOnlineOAName from DispatchOrd where DispatchOrdID="&DispatchOrdID 
    rs.open sql,objConn,1,1 
    If not rs.Eof then 
        UpdateOAid=rs(0) 
        UpdateTimeSS=rs(1) 
        DispatchOrdOnlineOAName=rs("DispatchOrdOnlineOAName") 
        If session("adminName")="" Then 
            adminName=OAUser(session("adminID"),"UserName") 
        Else 
            adminName=session("adminName") 
        End If 
        OnlineUnixTime=ToUnixTime(now(),+8) 
        OnlineOAName=","&adminName 
        If DispatchOrdOnlineOAName<>"" Then 
            OnlineOANameSP=split(DispatchOrdOnlineOAName,",") 
            DispatchOrdOnlineOAName=","&adminName&"|"&OnlineUnixTime 
            for i = 1 to UBOUND(OnlineOANameSP) 
                OnlineOASP=split(OnlineOANameSP(i),"|") 
                If OnlineOASP(0)<>adminName And (OnlineUnixTime-OnlineOASP(1))<15 Then 
                    DispatchOrdOnlineOAName=DispatchOrdOnlineOAName&","&OnlineOASP(0)&"|"&OnlineOASP(1) 
                    OnlineOAName=OnlineOAName&","&OnlineOASP(0) 
                End If 
            Next 
        Else 
            DispatchOrdOnlineOAName=","&adminName&"|"&OnlineUnixTime 
        End If 
        sql="update DispatchOrd set DispatchOrdOnlineOAName='"&DispatchOrdOnlineOAName&"' where DispatchOrdID="&DispatchOrdID 
        objConn.Execute sql 
         
        If UpdateTimeSS>0 Then '22.12.04停止提示 
            'UpdateOAName=OAUser(UpdateOAid,"UserName") 
        End If 
        If OnlineOAName<>"" Then 
            OnlineOAName="&nbsp;正在查看："&Mid(OnlineOAName,2)&"&nbsp;" 
        End If 
        webJson="{""OnlineOAName"":"""&OnlineOAName&""",""UpdateOAName"":"""&UpdateOAName&""""&CarInspectionJson&"}" 
    End If 
    rs.close() 
End If 
Response.Write webJson 
%>