<!DOCTYPE html>
<html>
<body>
<p>这是文本文档中的所有行：</p>
<%
Set fs=Server.CreateObject ("Scripting.FileSystemObject")
Set f=fs.OpenTextFile (Server.MapPath ("testread.txt"), 1)
do while f.AtEndOfStream = false
Response.Write (f.ReadLine)
Response.Write ("<br>")
loop
f.Close
Set f=Nothing
Set fs=Nothing
%>
</body>
</html>