Question

网页人数统计代码

我想知道我的网页总共有多少人访问
但是不知道怎么写代码
要用到后面计术么？？？

谁知道给提拱源代码给我。。
我会加分的哈~~

Answer 1

*global.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>

这个页面需要服务器的ASP语言支持,请详细参考自己的服务器情况.

Answer 2

*global.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>

这个页面需要服务器的ASP语言支持,请详细参考自己的服务器情况.

Answer 3

最简单了
<Script LANGUAGE="VBScript" RUNAT="Server">
sub Application_OnStart
End sub
Sub Application_OnEnd
End Sub
Sub Session_OnStart
Session.timeout=5
Application.Lock
application("zzzonline")=application("zzzonline")+1
Application.Unlock
End sub

Sub Session_OnEnd
Application.Lock
Application("zzzonline")=application("zzzonline")-1
Application.Unlock
End sub
</Script>

将上面这段另存为 global.asa 放在你网站根目录下。

调用时： 当前在线<%=application("zzzonline")%>人

Answer 4

使用cnzz，网页链接，安全、可靠、公正、第三方的网站流量统计分析系统。登陆之后，可以下载统计代码放到网站中。