
<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>