Question

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

这个是网页考试题~以考试答题形式作答~慎重答题~谢谢~

Answer 1

<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") & "人次访问过此页面")
%>
这是计算总访问量的这个数只会增加不会减少,当服务器重启时这个数会被清空