如何在客户端统计页面访问量
来源:百度知道 编辑:UC知道 时间:2024/05/14 18:24:04
听说javascript可以实现,求代码
是纯html页,静态的,不用asp《fso》实现的,可以吗
<script Language="vbscript" RunAt="server">
Sub Application_OnStart
''global.asa 一定是放在网站的虚拟根目录下的
''在根目录下有一个 counter.txt 记录访问总量
''Application("Counter") ''计数器的变量名
''Application("Online") ''在线人数的变量名
dim objFSO,objTS
set objFSO = Server.CreateObject("scripting.FileSystemObject")
set objTS = objFSO.OpenTextFile(Server.MapPath("./images/counter.gif"),1,false)
if not objTS.atendofstream then
Application("Counter") = CLng(objTS.ReadLine) ''网站计数器
end if
objTS.close : set objTS=nothing : set objFSO = Nothing
if IsEmpty(Application("Counter")) then Application("Counter") = 0 ''置初始值
Application("O