FileSystemobject组件

---

<%
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
Set MyTextFile=MyFileObject.OpenTextFile("d:story.txt")
WHILE NOT MyTextFile.AtEndOfStream
Response.Write(" "&MyTextFile.ReadLine)
WEND
MyTextFile.Close
%>

---

Enter a new line for the story: