change.asp

来自「与asp相关的技术 如数据库和网页设计 很有用的哦」· ASP 代码 · 共 12 行

<!--#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                       '解除锁定
'重定向首页
response.redirect "index.asp"
%>