nosaytimeout.asp

来自「网佳网络办公系统（以下简称OA）是一套基于B/S模式的无纸化办公系统。[显著特点」· ASP 代码 · 共 64 行

<%Response.Expires=0%>
<!--#include file="../config/config.asp"-->
<%if Session("hxf_u_inthechat")="1" then
 Application.Lock
 Session("hxf_u_inthechat")="0"
 s=Hour(time())
 f=Minute(time())
 m=Second(time())
 if len(s)=1 then s="0" & s
 if len(f)=1 then f="0" & f
 if len(m)=1 then m="0" & m
 t=s & ":" & f & ":" & m
 nickname=Session("hxf_u_nickname")
 onlinelist=Application("hxf_c_onlinelist")
 dim newonlinelist()
 useronlinename=""
 onliners=0
 js=1
 for i=1 to UBound(onlinelist) step 6
  if CStr(onlinelist(i+1))<>CStr(nickname) then
   onliners=onliners+1
   useronlinename=useronlinename & " " & onlinelist(i+1)
   Redim Preserve newonlinelist(js),newonlinelist(js+1),newonlinelist(js+2),newonlinelist(js+3),newonlinelist(js+4),newonlinelist(js+5)
   newonlinelist(js)=onlinelist(i)
   newonlinelist(js+1)=onlinelist(i+1)
   newonlinelist(js+2)=onlinelist(i+2)
   newonlinelist(js+3)=onlinelist(i+3)
   newonlinelist(js+4)=onlinelist(i+4)
   newonlinelist(js+5)=onlinelist(i+5)
   js=js+6
  else
   savetime=onlinelist(i+5)
  end if
 next
 useronlinename=useronlinename&" "
 if savetime<>"" then
  if onliners=0 then
   dim listnull(0)
   Application("hxf_c_onlinelist")=listnull
  else
   Application("hxf_c_onlinelist")=newonlinelist
  end if
  Application("hxf_c_useronlinename")=useronlinename
  Application("hxf_c_chatrs")=onliners
  sd=Application("hxf_c_sd")
  line=int(Application("hxf_c_line"))
  Application("hxf_c_line")=line+1
  for i=1 to 171
   sd(i)=sd(i+9)
  next
  sd(172)=line
  sd(173)=1
  sd(174)=0
  sd(175)=nickname
  sd(176)="大家"
  sd(177)="660099"
  sd(178)="660099"
  sd(179)="对"
  sd(180)="<font color=black>【做梦】" & nickname &"</font><font color=F08000>由于打瞌睡超过" & timeout & "分钟，会周公的女儿去了……</font><font class=t>(" & t & ")</font>"
  Application("hxf_c_sd")=sd
 end if
 Application.UnLock
end if
Response.Redirect "chaterr.asp?id=002"%>