skybirdzw 发表于 2008-11-22 09:13
我做的网站计数统计为什么不起作用？
这是放在网站根目录下的Global.asa文件，同时在相同目录下还有一个counter.txt文件，里边的内容是1
请大家帮我分析一下为什么我在网站首页加上<%Application("counter")%>却不起任何作用呢？ 是不是代码写错了？还是有其他的方法？谢谢！
sub Application_Onstart
Application.Lock
txtpath="counter.txt"
set fso=server.CreateObject("Scripting.FileSystemObject")
set mytxt=fso.Opentextfile(txtpath,1,false)
mycount=mytxt.readLine
if mycount="" or len(mycount)=0 then
mycount=1
Application("counter")=mycount
else
Application("counter")=mycount
end if
Application.UnLock
end sub
sub Application_OnEnd
end sub
sub Session_Onstart
txtpath=server.MapPath("counter.txt")
set fso=server.CreateObject("Scripting.FileSystemObject")
set mytxt=fso.Opentextfile(txtpath,1,false)
mycount=mytxt.readLine
Application("counter")=mycount
Application.Lock
Application("counter")=Application("counter")+1
Application.UnLock
end sub
sub Session_OnEnd
txtpath=server.MapPath("counter.txt")
set fso=server.CreateObject("Scripting.FileSystemObject")
set mytxt=fso.Opentextfile(txtpath,2,false)
mytxt.writeLine(Application("counter"))
end sub
skybirdzw 发表于 2008-11-22 09:15
ps:<%=Application("counter")%> 写错了。
skybirdzw 发表于 2008-11-22 09:49
[em06] 怎么没人回复啊？ 呼叫版主！
hmhz 发表于 2008-11-22 10:38
服务器不支持FSO
谁与争疯 发表于 2008-11-22 10:59
[em09] 个人小网站，搞个更新数据的这种形式就算了，不增加什么负担，又方便，又不是大网站，还要加锁解锁
skybirdzw 发表于 2008-11-22 11:16
[em04] 我实在本地机子测试的，支持FSO。不是个人小网站，是个企业站啊！用数据库的形式我没想过 ，给个思路行不？
谁与争疯 发表于 2008-11-22 12:18
建个表，建个字段count，默认0，然后链接数据库，访问就更新+1，还有防止刷新+1，就这样。
skybirdzw 发表于 2008-11-22 12:52
如何防止刷新？ 防止刷新+1是什么意思？
skybirdzw 发表于 2008-11-22 14:47
没人回答，自己顶！！！！
页:
[1] 