实例：本实例说明如何利用 TextStream 对象的属性和方法读取文本文件的内容。代码如下：

　　1) 现有的文本文件 text.txt 的内容如下(text.txt)：

红豆

　　[唐] 王维

　　红豆生南国，春来发几枝。

　　愿君多采撷，此物最相思。　　　　

　　 　　　　 2) 读取上面文本文件的代码如下(read/1.asp)：

<% @ language="vbscript" %>


<%
set fso=server.CreateObject("Scripting.FileSystemObject")
Set txtFile=fso.OpenTextFile(Server.MapPath("text.txt"))
Response.Write "

文本文件text.txt的内容如下：

"
Response.Write "

---

"
'使用

...

标记包含预先格式化的文件
Response.Write "

"
While Not txtFile.AtEndOfStream
Response.Write "" & txtFile.ReadLine & "
"
Wend
txtFile.Close
Response.Write "
"
%>