这是放在网站根目录下的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

ps:<%=Application("counter")%> 写错了。

怎么没人回复啊？ 呼叫版主！

服务器不支持FSO

个人小网站，搞个更新数据的这种形式就算了，不增加什么负担，又方便，又不是大网站，还要加锁解锁

我实在本地机子测试的，支持FSO。不是个人小网站，是个企业站啊！用数据库的形式我没想过 ，给个思路行不？

建个表，建个字段count，默认0，然后链接数据库，访问就更新+1，还有防止刷新+1，就这样。

如何防止刷新？ 防止刷新+1是什么意思？

没人回答，自己顶！！！！

跳转地址和当前地址一样就不加1 这样就是防刷新