drop.asp

基于ASP开发的聊天室源码

<%
Response.Expires=0
Response.ExpiresAbsolute=Now()-1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"
%>
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="function.asp" -->
<%
if IsArray(Session("info")) then
 info=Session("info")
 if InStr(Application("maninfo"),"," & info(0) & ",")<>0 then Response.Redirect "manyou.asp"
 info(3)="o"
 Session("info")=info
 drop=Replace(zzbird_drop,"(name)"," <img border='0' height='16' width='16' src='images/ICO/" & info(4) & "-2.gif'><font color=#008000>" & info(0) & "</font> ")
 w1=info(0)
 w2=""
 w3="drop"
 w4="[<img src='images/sys.gif'>溺水]" & drop & "<font style='font-size: 8pt' color='#808080'>(" & CStr(time) & ")</font><bgsound src='other/drop.wav' loop='1'>"
 w5=info(6)
 saveword w1,w2,w3,w4,w5
 Session.Abandon
 Response.Redirect "err.asp?kind=16"
else
Response.Redirect "err.asp?kind=15"
end if
%>