这个计数器怎么了？？？？？？？？？？？？？？

[刘云涛]

Dim Fso_ReadFile
Dim Read_File
Dim Fso_WriteFile
Dim Write_File

application.lock
set Fso_ReadFile=server.createobject("scripting.filesystemobject")
set Read_File=Fso_ReadFile.OpenTextFile(Server.MapPath("./count/count.txt"))
application("counter")=Read_File.readline

Read_File.close
application.unlock


set Fso_WriteFile=server.createobject("scripting.filesystemobject")

application("counter")=application("counter")+1
counter=application("counter")
set Write_File=Fso_WriteFile.OpenTextFile(Server.MapPath("./count/count.txt"))

Write_File.writeline counter '说这错误的文件模式
Write_File.close

[刘云涛]

不好意思！解决了！！自己UP

[zhangking]

自己解决了就好！ ：）

[dafei0320]

自己实践是最好的的了！!!!!!1

[这笑容依然真实]

那就散分吧：）