nosayactive.asp

聊天室源码呵呵你好用~~~~~~2.0版本

<%@ LANGUAGE=VBScript%>
<%Response.Expires=0
username=Session("a_c_user_name")
if username="" then Response.Redirect "close.asp"
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
sj=s & ":" & f & ":" & m
Session("a_c_user_outchat")=1
Dim all_saysdata(400), user_online()
Application.Lock
online=Application("a_c_user_online")
saysdata=Application("a_c_all_saysdata")
inthechat=Application("a_c_user_inthechat")
uoc=1
for i=1 to inthechat*4 step 4
 if online(i)=username then
  all_saysdata(1)=1
  all_saysdata(2)=0
  all_saysdata(3)=username
  all_saysdata(4)="大家"
  all_saysdata(5)="660099"
  all_saysdata(6)="660099"
  all_saysdata(7)="对"
  all_saysdata(8)="<font color=000000>【默哀】</font><font color=F08000><font color=000000>" & username &"</font>由于潜水时间过长，不幸沉入海底……</font><font class=p9>(" & sj & ")</font>"
  for j=9 to 400
   all_saysdata(j)=saysdata(j-8)
  next
  Application("a_c_all_saysdata")=all_saysdata
  Application("a_c_user_inthechat")=Application("a_c_user_inthechat")-1
 else
  Redim Preserve user_online(uoc),user_online(uoc+1),user_online(uoc+2),user_online(uoc+3)
  user_online(uoc)=online(i)
  user_online(uoc+1)=online(i+1)
  user_online(uoc+2)=online(i+2)
  user_online(uoc+3)=online(i+3)
  uoc=uoc + 4
 end if
next
Application("a_c_user_online")=user_online
Application.UnLock
Session("a_c_user_name")=""
Session("a_c_user_alreadylogin")=0
Response.Redirect "login.asp"%>