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