我想对文本文件进行读写(文件已存在d:\hell\asp\book.txt)，先看代码： <% dim objfilesys dim myfile set objfilesys=Server.CreateObject("Scripting.FileSystemObject") '创建一个FileSystemObject对象的实例 Set myfile=objfilesys.getfile("D:\hell\asp\book.txt") '利用所创建的实例的getfile方法创建myfile以对book.txt进行读写操作 response.write myfile.Path&"<br>" '返回文件的绝对路径信息 response.write myfile.DateCreated&"<br>" '显示文件book.txt的创建日期 Set mytext=myfile.OpenAsTextStream ----???????'利用OpenAsTextStream方法以纯文本格式打开book.txt) response.write mytext.Read(5)&"<br>" '读出文件中的前5个字符 mytext.Skip(3) '将文件指针跳到3个字符之后 response.write mytext.Read(4)&"<br>" '读出文件指针处向后4个字符 mytext.SkipLine '将文件指针跳到下一行的开始处 response.write mytext.ReadLine&"<br>" '从当前指针位置读取一行字符

mytext.WriteBlankLines(1) '(---这里出错：错误的文件模式)向文件中写入1个空白换行 %> 加入这一行: mytext.WriteBlankLine(1) 运行后，运行报错提示: 错误的文件模式 问题应该就在第7行: Set mytext=myfile.OpenAsTextStream 处，因为没有在这里没置文件打开的模式(如只读，可写，追加等，)我试过了，就是不成功！

改OpenAsTextStream为下面那样，试试看！

Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 Set mytext = myfile.OpenAsTextStream(ForWriting, TristateUseDefault)

感谢醉猫大侠！十分感谢! Set mytext = myfile.OpenAsTextStream(1,-2) 以只读模式打开 Set mytext = myfile.OpenAsTextStream(2,-2) 以只写模式打开(更准确的说是替换模式) Set mytext = myfile.OpenAsTextStream(8,-2) 以追加模式打开 只是：当以只写模式打开时不能执行读操作对吗？我在该状态加入读代码就出错了！或许这属正常！

[此贴子已经被作者于2004-06-16 18:54:36编辑过]

ForReading 1                       以只读模式打开文件。不能对此文件进行写操作。  
ForWriting 2                         以只写方式打开文件。不能对此文件进行读操作。  
ForAppending 8                   打开文件并在文件末尾进行写操作。  

感谢regedit朋友！

fso

还不大会？

你想攻击服务器呀

你把Set myfile=objfilesys.getfile("D:\hell\asp\book.txt")

修改成Set myfile=objfilesys.getfile("c:\Inetpub\wwwroot\default.asp")

黑客一般是这样攻击服务器的哦