[求助]这里是一段读取记事本中的数，来统计访问数的代码。帮我看看哪里出错了，谢谢 - ASP技术论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → WEB开发 → 『 ASP技术论坛』 → [求助]这里是一段读取记事本中的数，来统计访问数的代码。帮我看看哪里出错了，谢谢

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 878 人关注过本帖

标题：[求助]这里是一段读取记事本中的数，来统计访问数的代码。帮我看看哪里出错 ...

只看楼主加入收藏

风中的承诺

等　级：新手上路
帖　子：331
专家分：0
注　册：2004-10-31

楼主

问题点数：0 回复次数：2

[求助]这里是一段读取记事本中的数，来统计访问数的代码。帮我看看哪里出错了，谢谢

<%
Application.Lock
Set fs=Server.CreateObject("Scripting.FileSystemObject")
counter_file=Server.MapPath("/counter.txt")
Set txt=fs.OpenTextFile(counter_file)
Application("counter")=txt.ReadLine
txt.Close
Application("counter")=Application("counter")+1
Set txt=fs.CreateTextFile(counter_file,true)
txt.WriteLine(Application("counter"))
txt.Close
Application.UnLock
%>

搜索更多相关主题的帖子: counter　txt　Application　记事本　 Set　

2005-03-29 12:22

griefforyou

等　级：贵宾
威　望：27
帖　子：3336
专家分：0
注　册：2004-4-15

第 2 楼

得分:0

<% on error resume next Application.Lock Set fs=Server.CreateObject("Scripting.FileSystemObject") counter_file=Server.MapPath("counter.txt") Set txt=fs.OpenTextFile(counter_file,1,true) '错误在于，如果开始没有这个counter.txt打开文件会出错，此时我们可以加上参数使其创建文件

Application("counter")=txt.ReadLine txt.Close if Application("counter")="" then Application("counter")=1 else Application("counter")=Application("counter")+1 end if Set txt=fs.CreateTextFile(counter_file,true) txt.WriteLine(Application("counter")) txt.Close Response.Write Application("counter") Application.UnLock

if err then response.write err.Description end if

[此贴子已经被作者于2005-3-29 14:43:50编辑过]