exit.asp

简单ＡＳＰ实现聊天室 简单ＡＳＰ实现聊天室

<% 
'下面几句返回离开者信息 
Dim sayStr 
sayStr="来自" & Request.ServerVariables("Remote_Addr")& "的" '来访者IP地址 
sayStr=sayStr & "<b>" & Session("user_name") & "</b>" '来访者昵称 
sayStr=sayStr & "于" & Time & "高兴而去" '离开时间 
sayStr="<font color='red'>" & sayStr & "</font>" '红色显示 
'下面几句将来访信息保存到application中 
Application.Lock '先锁定 
Application("show")= sayStr & "<br>" & Application("show") 
Application("user_online")=Application("user_online")-1 '在线人数减1 
Application.Unlock '解除锁定 
Response.Redirect "index.asp" '重定向回首页 
%>