尊敬的各位大哥：
我的聊天室是借用尚俊杰老师的代码，位置位于这里进去
可是不能根据在线人数自动刷新，比如原来显示3人在线，现在我进入聊天室，变成4人在线，但当我离开聊天室后，仍然显示4人在线，如此累加，有时显示几百人在线，导致许多客人感觉聊天室很多人，但进去后却没人回应的局面，影响很不好，应该怎样解决刷新问题，请指教。
首页源代码如下：

野战地丛林地带

现在共有<%=Application("user_online"%>人在线

---

请输入昵称

有朋友提到session的timeout，可是session的timeout在哪里呢？
其中exit.asp是这样的（用的Application语句）：
<%
'下面几句返回离开者信息
Dim sayStr
sayStr="来自" & Request.ServerVariables("Remote_Addr")& "的" '来访者IP地址
sayStr=sayStr & "" & session("user_name") & "" '来访者呢称
sayStr=sayStr & "于" & time & "高兴而去" '来访时间
sayStr="" & sayStr & "" '红色显示

'下面几句将来访信息保存到application中
Application.Lock '先锁定
Application("show")= sayStr & "
" & Application("show")
Application("user_online")=Application("user_online")-1 '在线人数减1
Application.Unlock '解除锁定

Response.Redirect "index.asp" '重定向回首页
%>

如果是正常离开,也就是执行了exit.asp,不会出现你说的错误.
可能是直接关掉的浏览器吧,可以改改,强迫在窗口关闭的时候执行exit.asp,很简单吧,windows.close

对不起，我说错了，我原来的意思是在里面加入onUnload="openwin()"，openwin()是打开新窗口（exit.asp）的函数
后来发现刷新也要导致这个函数的执行，这样不行。。。
不过也有解决的办法，我自己做的论坛也有同样问题，已经通过数据库解决那，就象楼上说的一样，今天时间来不及详细说了，要上班了，明天再说。

谢谢你，老乡，我是大坪的，现在广州