init.asp

关于聊天系统的源代码 asp编程 未完整版

<%
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>