changeroom.asp

基于ASP开发的聊天室源码

<%Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"
Dim room,j
if not IsArray(Session("info")) then Response.Redirect "err.asp?kind=20"
if Request.Form("id")="" then Response.Redirect "err.asp?kind=18"
rooms=Request.Form("id")
info=Session("info")
if InStr(Application("maninfo"),"," & info(0) & ",")<>0 then Response.Redirect "manyou.asp"
If DateDiff("s",info(9),now) < 3 Then
  info(9)=now
  Session("info")=info
  Response.Write "<script language='javascript'>alert('服务器忙！请3秒钟后重新进行操作！');history.back(1);</script>"
  Response.End
End If
info(9)=now
if Trim(rooms)=CStr(info(7)) then Response.Redirect "err2.asp?kind=03"
%>
<!--#INCLUDE FILE="config.asp" -->
<%
roominfo=Application("roominfo")
for j=0 to ubound(roominfo,1)
 if CStr(roominfo(j,0))=CStr(rooms) then
  if info(1)<Int(roominfo(j,4)) and info(0)<>zzbird_master then Response.Redirect "err2.asp?kind=06"
  if ubound(Application("online"&rooms))>=Int(roominfo(j,2)) and info(0)<>zzbird_master then Response.Redirect "err2.asp?kind=07"
  roomname=roominfo(j,1)
  automan=roominfo(j,3)
  exit for
 end if
next
if roomname="" then Response.Redirect "err.asp?kind=19"
myonline = info(0) & "|" & info(4) & "|" & info(5) & "|" & info(1) & "|" & info(9) & "|" & info(12)
Application.Lock
 words=Application("zzbird_words")
 line=Application("zzbird_line")
 Application("zzbird_line")=line+2
 for i=1 to 228
  words(i)=words(i+12)
 next
 words(229)=line+1
 words(230)=info(0)
 words(231)=""
 words(232)="del"
 words(233)="[<img src='images/sys.gif'>公告]<img border='0' height='16' width='16' src='images/ICO/" & info(4) & "-2.gif'><font color='#d90000'>"& info(0) &"</font> 离开 <font color='#008000'>["& info(6) &"]</font> ，进入 <font color='#008000'>[" & roomname & "]</font> 。<font style='font-size: 8pt' color='#808080'>(" & CStr(time) & ")</font><bgsound src='other/out.wav' loop='1'>"
 words(234)=info(6)
 words(235)=line+2
 words(236)=info(0)
 words(237)=myonline
 words(238)="add"
 words(239)="[<img src='images/sys.gif'>公告]<img border='0' height='16' width='16' src='images/ICO/" & info(4) & "-2.gif'><a target=l3 href=javascript:parent.l3.selectuser('[" & info(0) & "]');><font color=#d90000>" & info(0) & "</font></a> 从 <font color='#008000'>[" & info(6) & "]</font> 进入 <font color='#008000'>[" & roomname & "]</font> 。<font style='font-size: 8pt' color='#808080'>(" & CStr(time) & ")</font><bgsound src='other/in.mid' loop='1'>"
 words(240)=roomname
 Application("zzbird_words")=words
 oldonline=Application("online" & info(7))
 onno=ubound(oldonline)
 for i=1 to onno
   if InStr(oldonline(i),info(0)&"|")=1 then
     for j=i to onno-1
      oldonline(j)=oldonline(j+1)
     next
     ReDim Preserve oldonline(onno-1)
     Application("online" & info(7))=oldonline
   exit for
  end if
 next
 Application("zzbird_name_" & info(7))=Replace(Application("zzbird_name_" & info(7)),"," & info(0) & ",","")
 Application("zzbird_name_"&rooms)=Application("zzbird_name_"&rooms) & "," & info(0) & ","
 newonline=Application("online"&rooms)
 onno=ubound(newonline)+1
 ReDim Preserve newonline(onno)
 newonline(onno)=myonline
 Application("online"&rooms)=newonline
Application.UnLock

info(6)=roomname
info(7)=rooms
info(10)=automan

nowline=info(8)
dim show()
Redim Preserve show(0)
j=1
newline=0
for i=1 to 240 step 6
 newline=words(i)
 if newline>nowline and newline>0 and not (words(i+3)="onlysay" and words(i+2)<>info(0) and words(i+1)<>info(0) or words(i+3)="callyou" and instr(words(i+2),info(0)&"|")<>1) then
  Redim Preserve show(j+4)
  show(j)=words(i+1)
  show(j+1)=words(i+2)
  show(j+2)=words(i+3)
  show(j+3)=words(i+4)
  show(j+4)=words(i+5)
  j=j+5
 end if
next
Response.Write "<script Language=JavaScript>"
Response.Write "parent.nowroom=" & chr(34) & info(6) & chr(34) & ";"
for i=1 to UBound(show) step 5
Response.Write "parent.w(" & chr(34) & show(i) & chr(34) & "," & chr(34) & show(i+1) & chr(34) & "," & chr(34) & show(i+2) & chr(34) & "," & chr(34) & show(i+3) & chr(34) & "," & chr(34) & show(i+4) & chr(34) & ");" & chr(13) & chr(10)
next
Response.Write "</script>"
if newline>nowline then info(8)=newline
Session("info")=info
%>
<script language="javascript">
var newonline=new Array();
<%
for o = 1 to onno
 Response.Write "newonline[" & o-1 & "] = " & chr(34) & newonline(o) & chr(34) & ";" & chr(13) & chr(10)
next
%>
parent.online=newonline;
parent.zzbird_name="<%=Application("zzbird_name_" & info(7))%>";
parent.automan="<%=info(10)%>";
parent.w("大家","大家","titlesay",parent.automan+"： 欢迎光临<%=zzbird_chatroomname%>之『<%=info(6)%>』^_^",parent.nowroom);
parent.atview=1;
parent.l3.allsay.hename.value='大家';
parent.timev="<%=time%>";
parent.showplace();
</script>