发新话题
打印

如何一行一行的读取文本文件内容?

<%  
Set  MyFileObject=Server.CreateObject(“Scripting.FileSystemObject”)  
Set  MyTextFile=MyFileObject.OpenTextFile(“c:\mydir\test.txt”)  
While  not  MyTextFile.AtEndOfStream  
Response.Write(MyTextFile.ReadLine)  
Wend  
MyTextFile.Close  
%>

TOP

发新话题