redirect.asp

基于ASP开发的聊天室源码

<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="function.asp" -->
<%
Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"
Dim w1,w2,w3,w4,w5
if not IsArray(Session("info")) then Response.Redirect "err.asp?kind=10"
info=Session("info")
info(3)="o"
Session("info")=info
Session.Abandon
changename=Replace(zzbird_changename,"(name)"," <img border='0' height='16' width='16' src='images/ICO/" & info(4) & "-2.gif'><font color=#0000ff>" & info(0) & "</font> ")
w1=info(0)
w2=""
w3="del"
w4="<bgsound src='other/out.wav' loop='1'>[<img src='images/sys.gif'>换名]" & changename & "<font style='font-size: 8pt' color='#808080'>(" & CStr(time) & ")</font>"
w5=info(6)
saveword w1,w2,w3,w4,w5
Response.Redirect "default.asp?user=" & Request("user")
%>