文件问题

[skyboy0720]

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.OpenTextFile(Server.MapPath(""&filename&""),8,true)
Do while Not fout.AtEndOfStream
strnum=fout.ReadLine()
if strnum="" then
strnum=1
fout.WriteLine(strnum)
else
strnum=CInt(strnum)
strnum=strnum+1
fout.WriteLine(Cstr(strnum))
end if
Loop

filename等价与xxx.txt
我就是想打开一个文件，如果没有就创建，（存放记数）
读出第一行，如果有数字，就加一后写回去，如果没有，就等于一
结果说Do while Not fout.AtEndOfStream
有错，什么文件模式不对？1

[孟子E章]

Set fout = fso.OpenTextFile(Server.MapPath(""&filename&""),1,true)

[skyboy0720]

恩？？我记得1表示的是读文件吧，那能写进去？？！！！

[skyboy0720]

怎么没人来啊，我把参数改成了1，是不出错了
但是我打开文件，什么数字也没有啊

我要的是如果文件不存在，创建后，并记录数字1，哪有问题啊？！！！！！