<html> <body> <% Set FS = Server.CreateObject("Scripting.FileSystemObject") Set RS = FS.OpenTextFile(Server.MapPath("/example/aspe") & "\textfile.txt",1) While not rs.AtEndOfStream Response.Write RS.ReadLine Response.Write("<br />") Wend %> <p> <a href="/example/aspe/textfile.txt">查看此文本文件</a> </p> </body> </html>