<!DOCTYPE html>
<html>
<body>
<%
設定 FS = Server.CreateObject("Scripting.FileSystemObject")
設定 RS = FS.OpenTextFile(Server.MapPath("text") & "\TextFile.txt",1)
當 RS 未到檔案末尾時
Response.Write RS.ReadLine
Response.Write("<br>")
結束迴圈
%>
<p>
<a href="text/textfile.txt"><img src="/images/btn_view_text.gif"></a>
</p>
</body>
</html>