案例:ASP/ADO案例     状态:不可编辑再运行    进入竖版
 运行结果 
x
 
1
2
<html>
3
<body>
4
<p>这是从文本文件中读取的所有行:</p>
5
6
<%
7
Set fs=Server.CreateObject("Scripting.FileSystemObject")
8
Set f=fs.OpenTextFile(Server.MapPath("testread.txt"), 1)
9
10
do while f.AtEndOfStream = false
11
Response.Write(f.ReadLine)
12
Response.Write("<br />")
13
loop
14
15
f.Close
16
Set f=Nothing
17
Set fs=Nothing
18
%>
19
20
</body>
21
</html>
22