案例:ASP/ADO案例     状态:不可编辑再运行    进入竖版
 运行结果 
x
 
1
2
<html>
3
<body>
4
5
<%
6
Set FS = Server.CreateObject("Scripting.FileSystemObject")
7
Set RS = FS.OpenTextFile(Server.MapPath("/example/aspe") & "\textfile.txt",1)
8
While not rs.AtEndOfStream
9
      Response.Write RS.ReadLine
10
      Response.Write("<br />")
11
Wend 
12
%>
13
14
<p>
15
<a href="/example/aspe/textfile.txt">查看此文本文件</a>
16
</p>
17
18
</body>
19
</html>
20