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"                                  '重定向回首页
	%>