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

<%
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
%>

<% 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编辑过]

哦，多谢哈