restart.asp

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

<%@ LANGUAGE=VBScript%>
<%Response.Expires=0
username=Session("a_c_user_name")
Session("a_c_user_alreadylogin")=0
if Session("a_c_user_outchat")=0 and username<>"" then
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
  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
  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
end if
Session("a_c_user_name")=""
Session("a_c_user_level")=""
Session("a_c_user_value")=""
Session("a_c_user_times")=""
Session("a_c_chat_count")=""
Response.Redirect "login.asp"%>