<% Application.lock
path=Server.MapPath("counter.txt")
Set f_Object=Server.CreateObject("Scripting.FileSystemObject")
     Set file1=f_Object.OpenTextFile(path)
     application("counter")=file1.ReadLine
     file1.close
     application("counter")= application("counter")+ 1
counter=application("counter")
set file2= f_Object.CreatTextFile(path,True)********************
     file2.WriteLine counter
     file2.close
Application.unlock
Response.Write(counter)

%>

Microsoft VBScript 运行时错误 (0x800A01B6)
/dwnew/TMP4ihpe72od.asp, 第 13 行 标有********************的那一行，什么原因？