如何使用ASP TextStream对象

封面图 • 2025-09-19 • asp

在 ASP（Active Server Pages）中，`TextStream` 对象是 `FileSystemObject` 的一部分，用于读取或写入文本文件。它通常与 `OpenTextFile` 方法一起使用，可以对文件进行逐行读取、写入等操作。

下面是使用 `TextStream` 对象的基本步骤和示例代码：

---

## ✅ 一、创建 FileSystemObject 实例

```asp
Set fso = Server.CreateObject("Scripting.FileSystemObject")
```

---

## ✅ 二、打开一个文本文件（读取）

```asp
Set ts = fso.OpenTextFile("C:\path\to\yourfile.txt", 1, False)
```

- **第一个参数**：文件路径。
- **第二个参数**：模式：
  - `1`：只读（Read）
  - `2`：写入（Write）
  - `8`：追加（Append）
- **第三个参数**：是否创建新文件（如果文件不存在）。

---

## ✅ 三、读取文件内容

```asp
Do While Not ts.AtEndOfStream
    Response.Write ts.ReadLine() & "<br>"
Loop
```

- `ReadLine()`：读取一行。
- `AtEndOfStream`：判断是否到达文件末尾。

---

## ✅ 四、关闭 TextStream 和 FileSystemObject

```asp
ts.Close()
Set ts = Nothing
Set fso = Nothing
```

---

## ✅ 五、完整示例（读取文件）

```asp
<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("C:\test.txt", 1, False)

Do While Not ts.AtEndOfStream
    Response.Write ts.ReadLine() & "<br>"
Loop

ts.Close()
Set ts = Nothing
Set fso = Nothing
%>
```

---

## ✅ 六、写入文件（使用 TextStream）

```asp
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("C:\test.txt", 2, True) ' 2 = 写入，True = 创建文件

ts.WriteLine("这是第一行")
ts.WriteLine("这是第二行")

ts.Close()
Set ts = Nothing
Set fso = Nothing
```

---

## ✅ 七、追加内容到文件

```asp
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("C:\test.txt", 8, True) ' 8 = 追加

ts.WriteLine("这是新增的一行")

ts.Close()
Set ts = Nothing
Set fso = Nothing
```

---

## ⚠️ 注意事项：

1. **权限问题**：确保 IIS 或 ASP 脚本有权限访问指定的文件路径。
2. **路径问题**：使用绝对路径（如 `C:\`）时要确保路径正确。
3. **安全性**：不要让用户随意输入文件路径，避免路径遍历攻击（如 `..\`）。
4. **错误处理**：建议加上错误处理逻辑（如 `On Error Resume Next`）来捕获异常。

---

如果你需要更具体的例子（如读取 CSV 文件、写入日志等），欢迎继续提问！