各位大哥,我是个菜鸟
我的聊天室是借用尚俊杰老师的代码,可是不能根据在线人数自动刷新,比如原来显示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" '重定向回首页
%>