请问错在哪
<%
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile("d:\test\aspcounter.txt")
counter= Clng(a.ReadLine)
counter = counter + 1
a.close
Set a = fs.OpenTextFile("d:\test\aspcounter.txt")
a.WriteLine(counter)
a.Close
Set a=nothing
Set fs=nothing
%>
现已点击: <% =ct %> 次
运行时出错, a.WriteLine(counter)
请问为什么.谢谢