主题:  ◢█大哥,救救我的网站吧█◣

小飞雁2

职务:普通成员
等级:1
金币:0.0
发贴:39
#12003/8/29 0:03:39
尊敬的各位大哥:
我的聊天室是借用尚俊杰老师的代码,位置位于这里进去
可是不能根据在线人数自动刷新,比如原来显示3人在线,现在我进入聊天室,变成4人在线,但当我离开聊天室后,仍然显示4人在线,如此累加,有时显示几百人在线,导致许多客人感觉聊天室很多人,但进去后却没人回应的局面,影响很不好,应该怎样解决刷新问题,请指教。
首页源代码如下:


    野战地丛林交流区
    



野战地丛林地带


    

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



    
请输入昵称

        

    
    





小飞雁2

职务:普通成员
等级:1
金币:0.0
发贴:39
#22003/8/29 9:38:31
可是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" '重定向回首页
    %>

编辑历史:[这消息被小飞雁2编辑过(编辑时间2003-08-29 09:48:11)]