asp FSO 读写文件本文件实现代码

封面图 • 2025-10-06 • asp

在 ASP（Active Server Pages）中，`FileSystemObject`（FSO）是一个非常常用的对象，用于读取和写入文件。下面我将为你提供一个完整的 ASP 示例代码，展示如何使用 FSO 来读写文本文件。

---

## ✅ 一、ASP FSO 读写文件示例代码

### 1. **写入文件（Write to File）**

```asp
<%
' 创建 FileSystemObject 对象
Set fso = Server.CreateObject("Scripting.FileSystemObject")

' 定义文件路径
filePath = Server.MapPath("example.txt")

' 打开或创建文件（如果不存在则创建）
Set file = fso.CreateTextFile(filePath, True)

' 写入内容
file.WriteLine "这是第一行。"
file.WriteLine "这是第二行。"

' 关闭文件
file.Close

' 释放对象
Set file = Nothing
Set fso = Nothing

Response.Write "文件已成功写入！"
%>
```

---

### 2. **读取文件（Read from File）**

```asp
<%
' 创建 FileSystemObject 对象
Set fso = Server.CreateObject("Scripting.FileSystemObject")

' 定义文件路径
filePath = Server.MapPath("example.txt")

' 检查文件是否存在
If fso.FileExists(filePath) Then
    ' 打开文件
    Set file = fso.OpenTextFile(filePath, 1) ' 1 表示只读模式

' 逐行读取并输出到页面
    Response.Write "<pre>"
    Do While Not file.AtEndOfStream
        Response.Write file.ReadLine() & "<br>"
    Loop
    Response.Write "</pre>"

' 关闭文件
    file.Close
Else
    Response.Write "文件不存在！"
End If

' 释放对象
Set file = Nothing
Set fso = Nothing
%>
```

---

## 📌 说明：

- `Server.MapPath("example.txt")`：将虚拟路径转换为服务器上的物理路径。
- `CreateTextFile(path, True)`：创建新文件，如果文件已存在则覆盖（`True` 表示允许覆盖）。
- `OpenTextFile(path, 1)`：以只读方式打开文件（`1` 是常量，表示 `ForReading`）。
- `file.ReadLine()`：读取一行内容。
- `file.AtEndOfStream`：判断是否到达文件末尾。

---

## ⚠️ 注意事项：

- FSO 在 IIS 中默认可用，但某些服务器可能禁用。
- 如果你使用的是 ASP.NET（不是 classic ASP），请改用 `System.IO` 命名空间的类。
- 确保 Web 服务器对目标目录有写入权限。

---

如果你需要更高级的功能（比如追加写入、读取二进制文件等），也可以告诉我，我可以继续扩展这个功能。