exit.asp

来自「这是聊天室的源代码 很好实现的 看看吧」· ASP 代码 · 共 15 行

<!--#INCLUDE FILE="function.asp"-->
	<%
	'下面将该用户离去的信息保存到发言信息中
	Dim sayStr
	sayStr=Time() & "<font color='blue'>来自" & Session("IP") & "的" & Session("username") & "悄悄走了</font>"
	Application.Lock                        '先锁定
	Application(session("chatroom"))= Application(session("chatroom")) & "<br>" & sayStr    
	Application.Unlock                       '解除锁定
	'调用函数，从当前聊天室名单中删除自己
	Call DelUserName(Session("username"),Session("chatroom"))
	Session.Abandon
	'然后自动关闭本窗口
	Response.Write "<script language='javascript'>self.close();</script>"
	%>