nosaytimeout.asp

此程序为网上下载

<%@ codepage ="936" %>
<%Response.Expires=0
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("wsaxhxf_c_onlinelist")
 dim newonlinelist()
 useronlinename=""
 onliners=0
 js=1
 for i=1 to UBound(onlinelist) step 8
  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+6),newonlinelist(js+7)
   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)
   newonlinelist(js+6)=onlinelist(i+6)
   newonlinelist(js+7)=onlinelist(i+7)
  js=js+8
  else
   savetime=onlinelist(i+5)
  end if
 next
 useronlinename=useronlinename&" "
 if savetime<>"" then
  if onliners=0 then
   dim listnull(0)
   Application("wsaxhxf_c_onlinelist")=listnull
  else
   Application("wsaxhxf_c_onlinelist")=newonlinelist
  end if
  Application("wsaxhxf_c_useronlinename")=useronlinename
  Application("wsaxhxf_c_chatrs")=onliners
  sd=Application("wsaxhxf_c_sd")
  line=int(Application("wsaxhxf_c_line"))
  Application("wsaxhxf_c_line")=line+1
  Dim newsd(540)
  j=1
  for i=10 to 540 step 9
   newsd(j)=sd(i)
   newsd(j+1)=sd(i+1)
   newsd(j+2)=sd(i+2)
   newsd(j+3)=sd(i+3)
   newsd(j+4)=sd(i+4)
   newsd(j+5)=sd(i+5)
   newsd(j+6)=sd(i+6)
   newsd(j+7)=sd(i+7)
   newsd(j+8)=sd(i+8)
   j=j+9
  next
  newsd(532)=line+1
  newsd(533)=1
  newsd(534)=0
  newsd(535)=nickname
  newsd(536)="大家"
  newsd(537)="660099"
  newsd(538)="660099"
  newsd(539)="对"
  newsd(540)="<font color=black>【默哀】" & nickname &"</font><font color=F08000>由于潜水超过" & Application("wsaxhxf_c_maxtimeout") & "分钟，不幸沉入海底……</font><font class=t>(" & t & ")</font>"
  Application("wsaxhxf_c_sd")=newsd
 end if
 Application.UnLock
end if
Response.Redirect "chaterr.asp?id=002"%>