autosay.asp

基于ASP开发的聊天室源码

<%Response.Expires=0
Response.Expires=0
Response.ExpiresAbsolute=Now()-1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"%>
<!--#INCLUDE FILE="function.asp" -->
<%
if not IsArray(Session("info")) then Response.Redirect "err.asp?kind=20"
 info=Session("info")
 if InStr(Application("maninfo"),"," & info(0) & ",")<>0 then Response.Redirect "manyou.asp"
 If DateDiff("s",info(9),now) < 3 Then
  Response.Write "<script language='javascript'>alert('目前你的信息流量太大啦！系统已经来不及一个一个自动回复啦！快切换到正常状态和大家说话吧！');</script>"
  Response.End
 End If
 info0="<a href=javascript:parent.l3.selectuser('[" & info(0) & "]'); target='l3'><font color=#ff6600>" & info(0) & "</font></a>"
 id=int(Request("id"))
 tot=Request("tot")
 mode=Request("mode")
 tot1="<a href=javascript:parent.l3.selectuser('[" & tot & "]'); target='l3'><font color=#ff6600>" & tot & "</font></a>"
 select case id
 case 0
 words="[失败]" & info0 & " 不接受呼叫，呼叫失败(但发送呼叫这一信息已经传递)。"
 case 1
 words="[失败]" & info0 & " 不接受点歌，点歌失败(但发送点歌这一信息已经传递)。"
 case 2
autoword=Request("autoword")
autowords=Replace(autowords,"\","\\")
autowords=Replace(autowords,chr(34),"\"&chr(34))
autowords=Replace(autowords,"/","\/")
autowords=Left(autowords,60)
if autoword="" then autoword="你好，我现在有事不在，一会儿再联系。"
 words="<img src='images/ico/" & info(4) & "-2.gif' height='16' width='16'>[密谈]" & info0 & " 对 " & tot1 & " 说(自动)：" & server.HTMLEncode(autoword)
 case 3
   select case mode
   case "friendonly"
   showmode="只理会好友"
   case "nobadman"
   showmode="屏蔽坏人"
   end select
 words="[失败]" & info0 & " 目前的模式为“" & showmode & "”，你的任何发言和信息都无法传递给该聊友。"
 end select
w1=info(0)
w2=tot
if id=2 then
w3="system"
else
w3="hiddensystem"
end if
w4=words & "<font style='font-size: 8pt' color='#808080'>(" & CStr(time) & ")</font>"
w5=info(6)
saveword w1,w2,w3,w4,w5
if id=2 then
newsay=Application("zzbird_words")
nowline=info(8)
dim show()
Redim Preserve show(0)
j=1
newline=0
for i=1 to 240 step 6
 newline=newsay(i)
 if newline>nowline and newline>0 and not (newsay(i+3)="onlysay" and newsay(i+2)<>info(0) and newsay(i+1)<>info(0) or newsay(i+3)="callyou" and instr(newsay(i+2),info(0)&"|")<>1) then
  Redim Preserve show(j+4)
  show(j)=newsay(i+1)
  show(j+1)=newsay(i+2)
  show(j+2)=newsay(i+3)
  show(j+3)=newsay(i+4)
  show(j+4)=newsay(i+5)
  j=j+5
 end if
next
Response.Write "<script Language=JavaScript>"
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
info(9)=now
Session("info")=info
else
info(9)=now
Session("info")=info
end if
%>