关于网站计数器的问题
请教各位大侠，我做的主页上放了一个FRONTPAGE的计数器，发布后，可以正常使用，但是计数器的重设值显示不了，只能从零开始，请问是什么原因？ 问题点数：50、回复次数：6Top
1 楼meizz（梅花雪）回复于 2002-11-21 17:07:49 得分 29
你还是老老实实自己写一个网站记数器得了，不过分依赖FP扩展：
<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("counter.txt"),1,false)
if not objTS.atendofstream then
Application("Counter") = CLng(objTS.ReadLine) '网站计数器
end if
objTS.close : set objTS=nothing : set objFSO = Nothing
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
End Sub
Sub Application_OnEnd
dim objFSO,objTS
set objFSO=Server.CreateObject("Scripting.FileSystemObject")
set objTS=objFSO.OpenTextFile(Server.MapPath("counter.txt"),2,true)
objTS.writeline(Application("Counter")) '将计数器记录到文本中
objTS.close : set objTS=nothing : set objFSO = Nothing
End Sub
</SCRIPT>Top
2 楼bomee（）回复于 2002-11-22 09:44:11 得分 0
请问梅花雨，那我如何将这个数字显示在网页上呢？Top
3 楼bomee（）回复于 2002-11-22 09:56:39 得分 0
还有那个global.asa是个什么文件啊？（不好意思，没用过vbscript)Top
4 楼wind0209（风のFeeling）回复于 2002-11-22 10:39:23 得分 8
ASP 的文件Top
5 楼tueyaer（亚亚）回复于 2002-11-23 18:11:26 得分 8
是公共文件，最先执行Top
6 楼haring（沉默的羔羊）回复于 2002-11-24 01:39:54 得分 5
如果你的网站不支持ASP的话，那么上面的程序就对你无效了。
不如，你去看一下，什么地方还有计数器呀！！Top
