exitchat.asp

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

<%Response.Expires=0%>
<!--#include file="../config/config.asp"-->
<%nickname=Session("hxf_u_nickname")
if nickname="" or Session("hxf_u_inthechat")<>"1" then Response.Redirect "close.asp"
Session("hxf_u_inthechat")="0"
n=Year(date())
y=Month(date())
r=Day(date())
s=Hour(time())
f=Minute(time())
m=Second(time())
if len(y)=1 then y="0" & y
if len(r)=1 then r="0" & r
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
sj=n & "-" & y & "-" & r & " " & t
ip=Request.ServerVariables("REMOTE_ADDR")
Application.Lock
onlinelist=Application("hxf_c_onlinelist")
dim newonlinelist()
useronlinename=""
onliners=0
js=1
ubl=UBound(onlinelist)
for i=1 to ubl 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)="对"
 if Application("hxf_c_disnewuser")=1 or nickname<>lyy then
 sd(180)="<font color=black>【离开】</font><font color=F08000>" & Replace(userout,"%%","<font color=black>" & nickname & "</font>") & "</font><font class=t>(" & t & ")</font>"
Application("hxf_c_sd")=sd
end if 
End if
Application.UnLock
Response.Redirect "close.asp"%>