asp访问统计

㈠ 利用asp中的application对象编写一段代码，实现页面的访问量的统计

<睁高script language="VBScript" type="text/VBScript" runat="server">
sub Application_OnStart
Application.Lock
Application("APP_OnLine")=0
Application.Unlock
end sub
sub Session_OnStart
Application.Lock
Application("APP_OnLine")=Application("APP_OnLine")+1
Application.Unlock
end sub
sub Session_OnEnd
Application.Lock
Application("APP_OnLine")=Application("APP_OnLine")-1
Application.Unlock
end sub
</script>
上面的命名为 Global.asa 放在站点根目录可以实现统计在线人数,如果你是要实现页面的访问量的统计那么用下面的代码放在需要统计的ASP页面里
<%
Application.Lock
if Application("APP_OnLine")="" then Application("APP_OnLine"悉尘尺)=0
Application("APP_OnLine")=Application("APP_OnLine")+1
Application.Unlock
Response.Write("已经有"兄老 & Application("APP_OnLine") & "人次访问过此页面")
%>
这是计算总访问量的这个数只会增加不会减少,当服务器重启时这个数会被清空

㈡ asp网站或普通html网站如何实现统计浏览次数

这是由服务器端脚本加数据库实现的。
简单的访问量统计可以这样做：
1、当服务器响应访问请求时，访问统计代码会读取响应统计表里的数值
2、[响应成功]该数值加1
3、访问统计代码将新值更新到响应统计表（替换原来的值）
4、将新值发送给客户端

javascript是客户端脚本，不能操作服务器端的表，所以这个单用javascript无法实现，必须用到弯历服务器端脚本（程序），比如PHP、JSP、ASP.net等掘如。

如果网站是asp的，就用asp实现吧。
纯html页面是不能实现访问统计的。埋散搜

㈢ ASP.net怎么实现网站访问量统计数据得保存到数据库里面

在网页加载时，连接数据库的某张表的某个记录（如Page：1.aspx，Count：25），使用更新SQL，更新访问量Update 25++

㈣ asp统计用户访问次数

添加一个数字字段 chaxun
加上一下代码：
if session("flag")="" then
rs("chaxun")=rs("chaxun")+1
rs.update
session("flag")=true
end if

效果：每当查询成功一次，数据库chaxun字段自动增加1，这就达到了你所要的结果。

㈤ 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>
//////////////////index.asp文件部分代码///////////////////
总访问人数:<%response.Write(application("Count"))%>人
当前在线:<%response.Write(application("Online"))%>人

㈥ ASP 访问次数统计

<% if Request.Cookies(homeurl)("jz1024")="" then ipcheck=true Response.Cookies(homeurl)("jz1024")=now() elseif DateDiff("s",Request.Cookies(homeurl)("jz1024"),now())<stime then ipcheck=false else Response.Cookies(homeurl)("feiyueip")=now() ipcheck=true end if '--------写进cookies-------- if request.Cookies(homeurl)("jz1024")="" then response.Cookies(homeurl)("jz1024")=1 response.Cookies(homeurl).Expires=date()+cookies_time else response.Cookies(homeurl)("feiyue")=cint(request.Cookies(homeurl)("jz1024"))+1 end if '--------结束写进cookies-------- if request.Cookies(homeurl)("jz1024")<>"" then if request.Cookies(homeurl)("jz1024")=1 then response.write "欢迎光临！" elseif request.Cookies(homeurl)("凯洞jz1024")=2 then response.write "欢姿枝迎再次光临盯册枯！" elseif request.Cookies(homeurl)("jz1024")=3 then response.write "欢迎您再次光临！" ...... end if end if %>

麻烦采纳，谢谢!