<%@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=" 正在查看："&Mid(OnlineOAName,2)&" "
|
End If
|
webJson="{""OnlineOAName"":"""&OnlineOAName&""",""UpdateOAName"":"""&UpdateOAName&""""&CarInspectionJson&"}"
|
End If
|
rs.close()
|
End If
|
Response.Write webJson
|
%>
|
