<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<!--#include virtual="/inc/chkadmin.gds"-->
|
<!--#include virtual="/inc/function.gds"-->
|
<%
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
ServiceOrdID=Request("ServiceOrdID")
|
UserUpTime=Request("UserUpTime")
|
UpdateTime=Request("UpdateTime")
|
'If ServiceOrdID="1016165235" Then UserUpTime="2019-05-24 11:26:58"
|
|
If IsNumeric(ServiceOrdID) And IsDate(UserUpTime) And IsDate(UpdateTime) Then
|
sql="select ServiceOrdUpdateOAid,DATEDIFF(ss,'"&UpdateTime&"',ServiceOrdUpdateTime),DATEDIFF(ss,'"&UserUpTime&"',ServiceOrdUserUpdateTime),ServiceOrdOnlineOAName from ServiceOrder where ServiceOrdID="&ServiceOrdID
|
rs.open sql,objConn,1,1
|
If not rs.Eof then
|
UpdateOAid=rs(0)
|
UpdateTimeSS=rs(1)
|
UserUpTimeSS=rs(2)
|
ServiceOrdOnlineOAName=rs("ServiceOrdOnlineOAName")
|
If session("adminName")="" Then
|
adminName=OAUser(session("adminID"),"UserName")
|
Else
|
adminName=session("adminName")
|
End If
|
OnlineUnixTime=ToUnixTime(now(),+8)
|
OnlineOAName=","&adminName
|
If ServiceOrdOnlineOAName<>"" Then
|
OnlineOANameSP=split(ServiceOrdOnlineOAName,",")
|
ServiceOrdOnlineOAName=","&adminName&"|"&OnlineUnixTime
|
for i = 1 to UBOUND(OnlineOANameSP)
|
OnlineOASP=split(OnlineOANameSP(i),"|")
|
If OnlineOASP(0)<>adminName And (OnlineUnixTime-OnlineOASP(1))<15 Then
|
ServiceOrdOnlineOAName=ServiceOrdOnlineOAName&","&OnlineOASP(0)&"|"&OnlineOASP(1)
|
OnlineOAName=OnlineOAName&","&OnlineOASP(0)
|
End If
|
Next
|
Else
|
ServiceOrdOnlineOAName=","&adminName&"|"&OnlineUnixTime
|
End If
|
sql="update ServiceOrder set ServiceOrdOnlineOAName='"&ServiceOrdOnlineOAName&"' where ServiceOrdID="&ServiceOrdID
|
objConn.Execute sql
|
|
If UpdateTimeSS>0 Then
|
UpdateOAName=OAUser(UpdateOAid,"UserName")
|
End If
|
If OnlineOAName<>"" Then
|
OnlineOAName=" 正在查看："&Mid(OnlineOAName,2)&" "
|
End If
|
webJson="{""OnlineOAName"":"""&OnlineOAName&""",""UpdateOAName"":"""&UpdateOAName&""",""UserUpTimeSS"":"&UserUpTimeSS&"}"
|
End If
|
rs.close()
|
End If
|
Response.Write webJson
|
%>
|
