exitchat.asp

来自「聊天室源码呵呵你好用~~~~~~2.0版本」· ASP 代码 · 共 85 行

<%@ LANGUAGE=VBScript%>
<%Server.ScriptTimeout=1000
Response.Expires=0
username=Session("a_c_user_name")
if username="" or Session("a_c_user_outchat")=1 then
 Response.Redirect "close.asp"
end if
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
  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
  sj=s & ":" & f & ":" & m
  sj2= n & "-" & y & "-" & r & " " & sj
  addvalue_name=username
  addvalue_ip=Request.ServerVariables("REMOTE_ADDR")
  Session("a_c_user_ip")=addvalue_ip
  addvalue_value=Session("a_c_user_value")+DateDiff("n",online(i+2),sj2)
  Session("a_c_user_value")=addvalue_value
  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>【聊吧公告】" & username &"</font><font color=F08000>依依不舍推门而去……</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
Session("a_c_user_alreadylogin")=0
input=Application("a_c_reg_data")
regnum=Application("a_c_reg_num")
for i=5 to regnum step 8
 if input(i)=addvalue_name then
  if addvalue_value>=300 and input(i+2)<2 then input(i+2)=2
  if addvalue_value>=1000 and input(i+2)<3 then input(i+2)=3
  if addvalue_value>=5000 and input(i+2)<4 then input(i+2)=4
  if addvalue_value>=10000 and input(i+2)<5 then input(i+2)=5
  Session("a_c_user_level")=input(i+2)
  input(i+4)=addvalue_value
  input(i+6)=sj2
  input(i+7)=addvalue_ip
 end if
next
Application("a_c_reg_data")=input
if int(Application("a_c_user_inthechat"))<=0 then
 Set FileOutObject=Server.CreateObject("Scripting.FileSystemObject")
 Set RegOut=FileOutObject.CreateTextFile(Application("a_c_userdatafile"),TRUE,FALSE)
 for i=0 to regnum
  RegOut.WriteLine input(i)
 next
 RegOut.Close
 Set FileOutObject=nothing
end if
Application.UnLock%><script language="JavaScript">
window.close();
</script>