exitchat.asp

来自「聊天室工具」· ASP 代码 · 共 34 行

<%
if isarray(session("dv_user")) then 
dv_user=session("dv_user")

	Application.lock
	Application("onlinelist")=replace(Application("onlinelist"),session("dv_user")(0)&" ","")
	Application.Unlock
	saystr="parent.getmsg('"&session("dv_user")(0)&"','大家','对','<font color=#ff0000>【系统提示】</font>"&session("dv_user")(0)&"我有事先GO了，说完消失在人海中......！','2','AA00CC','AA00CC','0','"&time()&"'); "
	Application.Lock
	sd=Application("chat_sd")
	line=int(Application("chat_line"))
	Application("chat_line")=line+1
	Dim newsd(50)
	j=1
	for i=3 to 50 step 2
	newsd(j)=sd(i)
	newsd(j+1)=sd(i+1)
	j=j+2
	next
	newsd(49)=line+1
	newsd(50)=SayStr
	Application("chat_sd")=newsd
	Application.UnLock	
dv_user(1)=	Application("chat_line")
session("dv_user")=""
session("netname")=""
session("chatadmin")=""
end if
%>
<script LANGUAGE="JavaScript">
if(window!=window.top){top.location.href=location.href;}
window.close();
</script>