网页计数器怎么用DW做网页计数器

怎么用DW做网页计数器

<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("Online") = 0 ''在线人数 设置初始值 End Sub Sub Session_OnStart Application.Lock Application("Online") = Application("Online") + 1 ''在线人数累加 Application("Counter") = Application("Counter")+ 1 ''计数器累加 Application.UnLock End Sub Sub Session_OnEnd Application.Lock Application("Online") = Application("Online") - 1 ''在线人数累减 Application.UnLock dim objFSO,objTS set objFSO=Server.CreateObject("scripting.FileSystemObject") set objTS=objFSO.OpenTextFile(Server.MapPath("./images/counter.gif"),2,true) objTS.write Application("Counter") ''将计数器记录到文本中 objTS.close : set objTS=nothing : set objFSO = Nothing End Sub Sub Application_OnEnd End Sub </script>