<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>
'在根目录下有一个 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>
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货