init.asp

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

<%
if isarray(session("dv_user")) then 
dv_user=session("dv_user")
	Application.lock
	Application("onlinelist")=replace(Application("onlinelist"),dv_user(0)&" ","")
	Application.Unlock
'Response.Write "<script language=javascript>top.location.href='chat.asp';</script>"
end if
%>
<script LANGUAGE="JavaScript">
if(window!=window.top){top.location.href=location.href;}
window.close();
</script>