论坛: 网站建设 标题: 请如何做出像本站首页上的计数统计 复制本贴地址    
作者: asusmlan2 [asusmlan2]    论坛用户   登录
就在20CN首页的上面有一个统计在线人数,和累计人数以及当时你的IP,不知道大家有没有注意到。
我觉得做的不错,不知道是用什么方法做到的,是不是很难,我也从网上下载了几个可是都没有搞定,想找一个简单的计数器,最好是做好的或者配制不要太难的。能统计当前在线人数就OK了


地主 发表时间: 06-09-26 21:25

回复: asusmlan2 [asusmlan2]   论坛用户   登录
以下是我从网上找的代码,但还是不得很清楚,主要是第4步里的代码是不是新建一个文件,在里面添加代码啊大家帮忙看一哈
最好是能解说一下,比如说先新一个USERNUM。ASP 的文件
再在index.asp首页上添加如下的代码:…………

************************************************************************************
最普通的方法是用SESSION,但缺点是无法即时反应在线情况(有超时时间)和占用服务器资源(如果有100人在线就有100个SESSION,想想看8);上次(好象间隔很久了耶)介绍了一种采用APPLICATION+COOKIES的方法,但实现方法有些烦琐同时还要设一个隐藏的自刷新页面。
这种方法则避免了以上的弊病,经实践,效果不错(例子:WWW。ATERSOFT。COM/BBS),具体如下:
假定INDEX。HTM为框架网页,包含ID=LEFT,ID=TOP和ID=BOTTOM的三个框架
1、做个统计页面USERNUM。ASP
<p>正在统计数据。。。</p>
<%
user=request.querystring("user")
if user=0 then '如果离开则人数-1
application.lock
application("num")=application("num")-1
application.unlock
response.write "<script>self.close();</script>"
elseif user=1 then '如果进入则+1
application.lock
application("num")=application("num")+1
application.unlock
end if
%>

2、在框架页面中如(INDEX。HTM)嵌入USERNUM。ASP
<body onbeforeunload="window.open('usernum.asp?user=0','num','menubar=no')">
......
<iframe src="usernum.asp?user=1" frameborder=0 width=0 height=0></iframe>
3、在需要显示人数的页面(假定在LEFT显示)中加入
<div id=num><%=application("num")%></div>
4、设定需要更新数据的页面(如BOTTOM)
function tj(){
top.left.num.innerHTML=<%=application("num")%>;
}
<body onload="tj()">
完毕,这只是一个例子,具体应用可以灵活,另外,为什么当离开时要WINDOW。OPEN USERNUM。ASP呢?因为如果同样放在IFRME中,窗口关得太快,USERNUM。ASP页面来不及装载就关掉了无法减少人数,

B1层 发表时间: 06-09-26 21:35

回复: asusmlan2 [asusmlan2]   论坛用户   登录
我不想用到这个文件
gobal.asa这个文件
**************************************************************************************
在浏览网页的时侯,常常可以看见一些“当前网站上的人数是XXX人”的在线人数同计。如何用ASP来做一个呢?首先,分析一下它的做法,一般来说,这些线上人数统计都是指一个时段内的访客人数统计。比如(5分钟内,10分钟内)而这个时间的长短,是由设计者设定的。

  在这个时段内同计各个不同IP的访客总数,就可以得出当前的线上人数了,但这里有一个精确问题需要解决,至于用什么办法来精确地统计,那就是各人不同的做法了,比如可以用自动提交的页面,隔一段时间读取COOKIES等等,而在ASP中,有一个更好的技巧,就是使用session对象来统计,这里介绍一下gobal.asa这个文件,这是一个很重要的一个文件,请看看它的结构。

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">

Sub Session_OnStart

End Sub

Sub Session_OnEnd

End Sub

sub Application_OnStard

End Sub

sub Application_OnEnd

End Sub</SCRIPT>


  当有一个会话发生时(用户浏览网页,向Web服务器发出请求)那么,如果自服务器启动后第一个用户的话,就会同时发生Application_OnStard和Session_OnStart这两个事件,之后,再有别的用户发出请求的话,就只发生Session_OnStart这个事件,而session的生存期是多长,是可以设定的,Session.timeout=X(分钟)

  好了,有了这个很好用的方法,我们就能准确地统计出在线人数了,而人数总计是用一个application变量来保存,当在第一个会话开始时,在Application_OnStard事件中放置一条清空计数器的语句application("online")=0,然后,在Session_OnStart事件中,放置一条增加在线人数的语句application("online")=application("online")+1,而在Session_OnEnd事件相应地放一条减少在线人数的语句,令计数值减一。

  这样,这个文件就改为如下

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">

Sub Session_OnStart

application("online")=application("online")+1

End Sub

Sub Session_OnEnd

application("online")=application("online")-1

End Sub

sub Application_OnStard

application("online")=0

End Sub

sub Application_OnEnd

application("online")=0

End Sub</SCRIPT>

  接下来编一个显示图形数字的程序,把在线人数显示在指定的页面上。这样就能得出在人数了

*online.asp

<% @language="vbscript" %>
<%
tmp=application("online")
tmp=Cstr(tmp)
dim disp(20)
dim images(20)
dbbits=len(tmp)
for I= 1 to dbbits
disp(I)=left(right(tmp,I),I-(I-1))
next

for I=dbbits to 1 step -1
images(I)="<img src="&"http://xxxx.com.cn/pic"&"/"&disp(I)&".gif>"

response.write "document.write("&images(I)&");"

next

%>

  上面的程序很简单,这里不作分析了,请大家自己阅读一下。在调用在线统计的页面上用一句script语句引用online.asp文件,以显示图形统计器。

<script language="JavaScript" src="http://xxxx.com.cn/online.asp"></script>

  现在可以了,记住要点,你必须把gobal.asa放在正确的web应用程序根目录上,而最好单独为这个统计新建一个web应用程序,不要与其它别的程序混乱了,不然得出的数据是不准确的,而把这个程序修改为多用户的在线统计也很简单。这样就可以提供在线统计服务了,如何实现请又大家去思考一下吧....


B2层 发表时间: 06-09-26 21:42

回复: poemail [poemail]   论坛用户   登录
楼上的好像自问自答的哦…………

B3层 发表时间: 06-09-27 10:37

回复: NetFog [q70213526]   版主   登录
原理可这样。

建立一个在线用户表:表中有用户IP,上次操作时间,所在页面
用户每查看一个页面。更新操作时间和所在面页

用Application存储上次在线人数检查时间。在页面中,如果发现上次检查在线人数时间超过时间间隔,则执行超时用户清理。未超时用户则不清理。时间间隔可以设置为10分钟,或者其他的也可以。反正合适就行。

B4层 发表时间: 06-09-27 14:50

回复: windflower [windflower]   论坛用户   登录
知道session 的on_start()和on_end()两个事件么
在这里做做文章。
要什么在线统计表呢。

B5层 发表时间: 06-10-07 13:41

回复: asusmlan2 [asusmlan2]   论坛用户   登录
不知道,???

B6层 发表时间: 06-10-18 19:15

论坛: 网站建设

20CN网络安全小组版权所有
Copyright © 2000-2010 20CN Security Group. All Rights Reserved.
论坛程序编写:NetDemon

粤ICP备05087286号