照着书本上用输入以下代码，但在页面上总是出现一个固定的数字，文件counter.txt里面的数字也没有任何变化（感觉就是没有对它操作），是什么原因呀？
<%
application.Lock()
sub count()
set fs=server.CreateObject("Scripting.FileSystemObject")
counter_file=server.MapPath("/counter.txt")
set txt=fs.openfileobject(counter_file)
application("counter")=txt.Readline
txt.close
application("counter")=application("counter")+1
set txt=fs.openfileobject(counter_file,true)
txt.write(application("counter"))
txt.close
end sub
application.UnLock()
%>
你是本站第<%=application("counter")%>位访客