在线人数统计问题 - ASP技术论坛

已结贴√ 问题点数：10 回复次数：3

在线人数统计问题

想在单位局域网的网页中插入“当前在线XX人”的效果，在网上找了一些代码，测试都不成功或很麻烦，请哪些大侠能提供比较简单适用的方法，谢谢！
以下是网上下载的源码，传到根目录后，任何网页都打不开了，总提示global.asa有错，在调用网页（a.asp）中需不需要加一句,
Global.asa：
<script language="VBScript" runat="Server">
Sub Application_onStart
Application("Count")=0
Application("Online")=0
end sub
Sub session_onStart
session.Timeout=5  //这里是设定会话结束时间（5分钟）
    Application.Lock
        Application("Count") = Cint(Application("Count")) + 1    //访问次数加1
        Application("Online") = Cint(Application("Online")) + 1    //在线人数加1
    Application.UnLock
end sub
Sub session_OnEnd
Application.Lock
        Application("Online") = Cint(Application("Online")) - 1   //会话结束时在线人数减1
    Application.UnLock
end sub
</script>
a.asp:
总访问人数:<%response.Write(application("Count"))%>人
当前在线:<%response.Write(application("Online"))%>人

搜索更多相关主题的帖子: 统计　

第 2 楼

得分:5

在调用网页（a.asp）中需不需要加一句,————不需要

<script language="VBScript" runat="Server">
<%
Sub Application_onStart
Application("Count")=0
Application("Online")=0
end sub
Sub session_onStart
session.Timeout=5  //这里是设定会话结束时间（5分钟）
    Application.Lock
        Application("Count") = Cint(Application("Count")) + 1    //访问次数加1
        Application("Online") = Cint(Application("Online")) + 1    //在线人数加1
    Application.UnLock
end sub
Sub session_OnEnd
Application.Lock
        Application("Online") = Cint(Application("Online")) - 1   //会话结束时在线人数减1
    Application.UnLock
end sub%>
</script>

俺不高手，俺也是来学习的。
俺的意见不一定就对，当你不认同时请点忽视按钮。
当走到十字路口不知该如何走时，可在论坛问下路，但你若希望别人能一路把你送到目的地，显然是不现实的，因为别人也有自己要走的路。

第 3 楼

得分:0

不行的，上传global.asa至WEB文件夹后，所有网页都打不行，提示global.aga 第二行错。高手指点

第 4 楼

得分:5

查下资料，看看Global.asa怎么写就行了！

★★★★★为人民服务★★★★★