标题:我做的网站计数统计为什么不起作用?
取消只看楼主
skybirdzw
Rank: 2
等 级:论坛游民
帖 子:189
专家分:12
注 册:2007-3-30
结帖率:66.67%
 问题点数:0 回复次数:5 
我做的网站计数统计为什么不起作用?
这是放在网站根目录下的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
搜索更多相关主题的帖子: 计数 统计 
2008-11-22 09:13
skybirdzw
Rank: 2
等 级:论坛游民
帖 子:189
专家分:12
注 册:2007-3-30
得分:0 
ps:<%=Application("counter")%> 写错了。
2008-11-22 09:15
skybirdzw
Rank: 2
等 级:论坛游民
帖 子:189
专家分:12
注 册:2007-3-30
得分:0 
怎么没人回复啊? 呼叫版主!
2008-11-22 09:49
skybirdzw
Rank: 2
等 级:论坛游民
帖 子:189
专家分:12
注 册:2007-3-30
得分:0 
我实在本地机子测试的,支持FSO。不是个人小网站,是个企业站啊!用数据库的形式我没想过 ,给个思路行不?
2008-11-22 11:16
skybirdzw
Rank: 2
等 级:论坛游民
帖 子:189
专家分:12
注 册:2007-3-30
得分:0 
如何防止刷新? 防止刷新+1是什么意思?
2008-11-22 12:52
skybirdzw
Rank: 2
等 级:论坛游民
帖 子:189
专家分:12
注 册:2007-3-30
得分:0 
没人回答,自己顶!!!!
2008-11-22 14:47



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-245681-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 2.244504 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved