主题:  我是个菜鸟

小飞雁2

职务:普通成员
等级:1
金币:0.0
发贴:39
#12003/9/1 11:25:02
各位大哥,我是个菜鸟
我的聊天室是借用尚俊杰老师的代码,可是不能根据在线人数自动刷新,比如原来显示3人在线,现在我进入聊天室,变成4人在线,但当我离开聊天室后,仍然显示4人在线,如此累加,有时显示几百人在线,导致许多客人感觉聊天室很多人,但进去后却没人回应的局面,影响很不好,有朋友提到session的timeout,可是session的timeout在哪里呢?
还是需要自己编写语句,那么语句怎样的格式和插入的位置是怎样的,请指教

后面是源代码:
首页源代码


野战地丛林交流区




野战地丛林地带



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




请输入昵称








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