源代码:
<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>
运行结果：
<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>