demo_textstream 在线工具
<html>
<body>
<FONT COLOR=#ff0000><%
Set FS = Server.CreateObject("Scripting.FileSystemObject")
Set RS = FS.OpenTextFile(Server.MapPath("text") & "TextFile.txt",1)
While not rs.AtEndOfStream
Response.Write RS.ReadLine
Response.Write("<br />")
Wend
%></FONT>
<p>
<a href="text/textfile.txt"><img src="/images/btn_view_text.gif"></a>
</p>
</body>
</html>