怎么加站点记数器？

Question

http://www.xcinfo.ha.cn/jsq/login.asp或写代码以文件形式保存

Answer 1

<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 SubSub Session_OnStart   Application.Lock
   Application("Online")  = Application("Online") + 1  '在线人数累加
   Application("Counter") = Application("Counter")+ 1  '计数器累加
   Application.UnLock
End SubSub 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 SubSub Application_OnEndEnd Sub
</SCRIPT>