f1.asp

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

<%@ LANGUAGE=VBScript%>
<%Response.Buffer=true
Response.Expires=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
sj=n & "-" & y & "-" & r & " " & s & ":" & f & ":" & m
if DateDiff("n",Session("a_c_user_lasttime"),sj)>=20 then Response.Redirect "nosay.asp"
fontsize=Session("a_c_user_fontsize")
if fontsize="" then
 fontsize="10.5pt"
else
 fontsize=fontsize&"pt"
end if
sift=Session("a_c_user_sift")
username=Session("a_c_user_name")
filname=Session("a_c_user_filname")
if username="" or Session("a_c_user_outchat")=1 then
 Response.Redirect "close.asp"
end if
out=1
Application.Lock
icqdata=Application("a_c_icq_data")
icqline=Application("a_c_icq_line")
online=Application("a_c_user_online")
inthechat=Application("a_c_user_inthechat")
Application.UnLock
for i=1 to inthechat*4 step 4
 if online(i)=username then out=0
next
if out=1 then Response.Redirect "close.asp"
icq=0
for i=1 to icqline step 4
 if username=icqdata(i) then
  icq=1
  Exit for
 end if
next
saystemp=Application("a_c_all_saysdata")
dim saysdata(200)
h=1
if sift=1 then
 for i=1 to 400 step 8
  if saystemp(i+2)=username or (saystemp(i+3)=username or saystemp(i+3)="大家") and Instr(filname," "&saystemp(i+2)&",")=0 then
   saysdata(h)=saystemp(i)
   saysdata(h+1)=saystemp(i+1)
   saysdata(h+2)=saystemp(i+2)
   saysdata(h+3)=saystemp(i+3)
   saysdata(h+4)=saystemp(i+4)
   saysdata(h+5)=saystemp(i+5)
   saysdata(h+6)=saystemp(i+6)
   saysdata(h+7)=saystemp(i+7)
   h=h+8
   if h>200 then Exit for
  end if
 next
else
 for i=1 to 400 step 8
  if saystemp(i+2)=username or (saystemp(i+1)<>"1" or saystemp(i+3)=username) and Instr(filname," "&saystemp(i+2)&",")=0 then
   saysdata(h)=saystemp(i)
   saysdata(h+1)=saystemp(i+1)
   saysdata(h+2)=saystemp(i+2)
   saysdata(h+3)=saystemp(i+3)
   saysdata(h+4)=saystemp(i+4)
   saysdata(h+5)=saystemp(i+5)
   saysdata(h+6)=saystemp(i+6)
   saysdata(h+7)=saystemp(i+7)
   h=h+8
   if h>200 then Exit for
  end if
 next
end if
bztitle=Application("a_c_all_bztitle")
if bztitle="" then
 user_show=Application("a_c_chatroom_f1") & "<div style='font-size:" & fontsize & "'><center>" & Application("a_c_all_title") & "</center>"
else
 user_show=Application("a_c_chatroom_f1") & "<div style='font-size:" & fontsize & "'><center><font style='font-size:9pt'>" & bztitle & "</font><br>" & Application("a_c_all_title") & "</center>"
end if
for i=1 to 200 step 8
if saysdata(i)="" then Exit for
if saysdata(i+1)=0 or saysdata(i+3)="大家" then
 if saysdata(i)=1 then
   user_show=user_show & saysdata(i+7) & "<br>"
 else
  user_show=user_show&"<a href=javascript:sw('" & saysdata(i+2) & "');><font color=" & saysdata(i+4) & ">"
  user_show=user_show & saysdata(i+2) & "</font></a>" & saysdata(i+6)
  if username=saysdata(i+3) then user_show=user_show & "<font color=red>"
  user_show=user_show & saysdata(i+3)
  if username=saysdata(i+3) then user_show=user_show & "</font>"
  if saysdata(i+5)="660099" then
   user_show=user_show & "说：" & saysdata(i+7) & "<br>"
  else
   user_show=user_show & "说：<font color=" & saysdata(i+5) & ">" & saysdata(i+7) & "</font><br>"
  end if
 end if
end if
if saysdata(i+1)=1 and (username=saysdata(i+2) or username=saysdata(i+3)) and saysdata(i+3)<>"大家" then
 if saysdata(i)=1 then
  user_show=user_show & saysdata(i+7) & "<br>"
 else
  user_show=user_show & "【私聊】<a href=javascript:sw('" & saysdata(i+2) & "');><font color=" & saysdata(i+4) & ">"
  user_show=user_show & saysdata(i+2) & "</font></a>" & saysdata(i+6)
  if username=saysdata(i+3) then user_show=user_show & "<font color=red>"
  user_show=user_show & saysdata(i+3)
  if username=saysdata(i+3) then user_show=user_show & "</font>"
  if saysdata(i+5)="660099" then
   user_show=user_show & "说：" & saysdata(i+7) & "<br>"
  else
   user_show=user_show & "说：<font color=" & saysdata(i+5) & ">" & saysdata(i+7) & "</font><br>"
  end if
 end if
end if
next
user_show=user_show & "</div>"
if icq=1 then user_show=user_show & "<script language=JavaScript>window.open('read.asp','','Status=no,scrollbars=yes,resizable=no,width=420,height=140');</script>"
user_show=user_show & "</body></html>"
Response.Write user_show
Response.End%>