fso显示文本文件的所有内容

asp利用fso来显示文本文件的所有内容的代码。注：1.txt为当前目录下的文本文件，如果要显示其他文本文件，需要更换地址。
<%
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
path=server.mappath("1.txt")
Set MyTextFile=MyFileObject.OpenTextFile(path)
While NOT MyTextFile.AtEndOfLine
Response.Write(MyTextFile.Readline)&#38;"<br>"
WEND
MyTextFile.Close
%>