ASP TextStream 对象

ASP TextStream 对象（中文讲解）

在经典Active Server Pages（ASP）中，TextStream对象是FileSystemObject（FSO）的一个子对象，用于读写文本文件的内容。它通过FileSystemObject的CreateTextFile或OpenTextFile方法创建，提供了对文本文件的逐行或整体读写操作。以下是对ASP TextStream对象的详细讲解，包括属性、方法、示例和注意事项。

1. TextStream 对象概述

作用：TextStream对象用于操作文本文件，支持读取、写入或追加内容。
用途：
写入日志（如用户操作记录）。
读取配置文件或数据文件。
追加内容到现有文件（如访问日志）。
创建方式：通过FileSystemObject的CreateTextFile或OpenTextFile方法生成。
依赖：依赖Scripting.FileSystemObject组件，默认随Windows安装。

2. 创建 TextStream 对象

TextStream对象通过FileSystemObject创建。以下是两种常见方式：

创建新文件：

   Set fs = Server.CreateObject("Scripting.FileSystemObject")
   Set file = fs.CreateTextFile(Server.MapPath("log.txt"), True, True)

True（overwrite）：允许覆盖现有文件。
True（unicode）：创建Unicode格式文件（支持中文）。

打开现有文件：

   Set fs = Server.CreateObject("Scripting.FileSystemObject")
   Set file = fs.OpenTextFile(Server.MapPath("log.txt"), 8, True, -1)

8：追加模式（1=读取，2=写入，8=追加）。
True：如果文件不存在则创建。
-1：Unicode格式（0=ASCII，-1=Unicode，-2=系统默认）。

3. 常用属性

以下是TextStream对象的常用属性：

AtEndOfStream：布尔值，指示是否到达文件末尾（读取时）。

  If file.AtEndOfStream Then
      Response.Write("已到达文件末尾")
  End If

AtEndOfLine：布尔值，指示是否到达当前行末尾。

  If file.AtEndOfLine Then
      Response.Write("当前行已结束")
  End If

Line：当前行号（从1开始）。

  Response.Write("当前行号：" & file.Line)

Column：当前列号（从1开始）。

  Response.Write("当前列号：" & file.Column)

4. 常用方法

以下是TextStream对象的常用方法：

写入方法：
Write(text)：写入文本，不添加换行。
asp file.Write("用户：" & Session("userName"))
WriteLine(text)：写入文本并添加换行。
asp file.WriteLine("[" & Now() & "] 访问记录")
WriteBlankLines(lines)：写入指定数量的空行。 file.WriteBlankLines(2)
读取方法：
Read(characters)：读取指定数量的字符。
asp content = file.Read(10) ' 读取10个字符
ReadLine()：读取一行内容。
asp line = file.ReadLine
ReadAll()：读取整个文件内容。
asp content = file.ReadAll
Skip(characters)：跳过指定数量的字符。
asp file.Skip(5)
SkipLine()：跳过一行。 file.SkipLine
关闭文件：
Close()：关闭文件，释放资源。
asp file.Close

5. 示例代码

(1) 写入日志文件

记录用户访问信息到日志文件：

<%@ Language=VBScript CodePage=65001 %>
<xaiArtifact artifact_id="5dbb5af3-2b4f-4ad5-846c-7ae6d93b3522" artifact_version_id="5d3bb306-216d-465d-8c15-72fa897e8438" title="log_writer.asp" contentType="text/asp">
<%
Response.Charset = "UTF-8"
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set file = fs.CreateTextFile(Server.MapPath("logs/access.log"), True, True)
file.WriteLine("[" & Now() & "] 用户IP：" & Request.ServerVariables("REMOTE_ADDR"))
file.Close
Set file = Nothing
Set fs = Nothing
Response.Write("日志写入成功！")
%>
</xaiArtifact>

说明：创建access.log并写入访问时间和IP，Unicode格式支持中文。

(2) 追加日志

追加内容到现有日志文件：

<%@ Language=VBScript CodePage=65001 %>
<xaiArtifact artifact_id="8e53e25a-079c-40ed-b928-8b0cd02b5e76" artifact_version_id="176bbacf-e121-4726-8d7d-31c4a6228054" title="log_appender.asp" contentType="text/asp">
<%
Response.Charset = "UTF-8"
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set file = fs.OpenTextFile(Server.MapPath("logs/access.log"), 8, True, -1)
file.WriteLine("[" & Now() & "] 用户：" & Server.HTMLEncode(Session("userName")))
file.Close
Set file = Nothing
Set fs = Nothing
Response.Write("日志追加成功！")
%>
</xaiArtifact>

说明：使用追加模式（8）写入新行。

(3) 读取文件内容

逐行读取并显示日志文件：

<%@ Language=VBScript CodePage=65001 %>
<xaiArtifact artifact_id="4d0b4a1f-6c64-44ee-9f82-08f4b66d8db9" artifact_version_id="9c07328a-d507-4d1c-9967-c20865a395af" title="log_reader.asp" contentType="text/asp">
<%
Response.Charset = "UTF-8"
Set fs = Server.CreateObject("Scripting.FileSystemObject")
If fs.FileExists(Server.MapPath("logs/access.log")) Then
    Set file = fs.OpenTextFile(Server.MapPath("logs/access.log"), 1, False, -1)
    Response.Write("<h1>日志内容</h1><pre>")
    Do Until file.AtEndOfStream
        Response.Write(Server.HTMLEncode(file.ReadLine) & "<br>")
    Loop
    file.Close
    Set file = Nothing
Else
    Response.Write("日志文件不存在")
End If
Set fs = Nothing
%>
</xaiArtifact>

输出：逐行显示access.log内容，防止XSS。

(4) 读取部分内容

读取文件的前10个字符：

<%@ Language=VBScript CodePage=65001 %>
<xaiArtifact artifact_id="b696d8ca-8861-4241-ab8b-197948f6b720" artifact_version_id="27b4476a-9c5d-4aa6-8233-a3711e406121" title="partial_reader.asp" contentType="text/asp">
<%
Response.Charset = "UTF-8"
Set fs = Server.CreateObject("Scripting.FileSystemObject")
If fs.FileExists(Server.MapPath("logs/access.log")) Then
    Set file = fs.OpenTextFile(Server.MapPath("logs/access.log"), 1, False, -1)
    content = file.Read(10)
    Response.Write("前10个字符：" & Server.HTMLEncode(content))
    file.Close
    Set file = Nothing
Else
    Response.Write("文件不存在")
End If
Set fs = Nothing
%>
</xaiArtifact>

6. 注意事项

权限：

TextStream操作需要服务器对目标文件的读写权限（IIS用户，如IUSR）。
在IIS中配置应用程序池权限，确保可访问目标路径。

中文编码：

使用Unicode格式（True或-1）支持中文：
asp Set file = fs.CreateTextFile(Server.MapPath("log.txt"), True, True)
设置<%@ Language=VBScript CodePage=65001 %>和Response.Charset = "UTF-8"。

安全性：

对输出内容使用Server.HTMLEncode防止XSS：
asp Response.Write(Server.HTMLEncode(file.ReadAll))
验证文件路径，防止路径遍历攻击：
asp filePath = Replace(Request.QueryString("file"), "..", "")

性能：

读取大文件时避免ReadAll，改用ReadLine逐行处理。
始终关闭文件（file.Close）和释放对象（Set file = Nothing）。

错误处理：

使用On Error Resume Next捕获文件操作错误：
asp On Error Resume Next Set file = fs.OpenTextFile(Server.MapPath("log.txt"), 1) If Err.Number <> 0 Then Response.Write("错误：" & Err.Description) End If On Error GoTo 0

文件模式：

读取（1）：文件必须存在。
写入（2）：覆盖文件。
追加（8）：在文件末尾添加内容。

调试：

检查FileExists避免操作不存在的文件。
使用Response.Write输出TextStream属性（如Line、AtEndOfStream）。

7. 与Request/Response/Application/Session的关系

Request：提供用户输入，写入TextStream。

  file.WriteLine(Server.HTMLEncode(Request.Form("comment")))

Response：输出TextStream读取的内容。

  Response.Write(Server.HTMLEncode(file.ReadAll))

Application：存储全局文件路径。

  Application("logPath") = Server.MapPath("logs/access.log")

Session：记录用户特定的文件操作。

  Session("lastLogLine") = file.ReadLine

8. 总结

ASP的TextStream对象是FileSystemObject的子对象，专注于文本文件的读写操作。通过CreateTextFile或OpenTextFile创建，支持写入日志、读取配置等功能。注意权限、中文编码、安全性（如XSS防护）和错误处理，确保代码健壮。更多细节可参考微软官方文档中的TextStream对象说明。