exitchat.asp

来自「关于聊天系统的源代码 asp编程 未完整版」· ASP 代码 · 共 31 行

<%
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)&"','大家','对','【公告】"&session("dv_user")(0)&"有事先走了，说完消失在人海中。。！','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")=""
end if
%>
<script LANGUAGE="JavaScript">
if(window!=window.top){top.location.href=location.href;}
window.close();
</script>