这是一段经典的 ASP 文件操作代码，用 VBScript 实现，涵盖了创建、删除、读取、写入和追加五种基本功能。虽然现在用 ASP 的人少了，但这套逻辑在不少遗留系统里依然跑得稳稳的。下面把代码拆开聊一聊，你会看到每个操作背后都做了哪些边界检查——比如文件是否存在、大小是否超限，这些细节才是生产环境里真正需要的东西。
先看整体结构。页面通过表单提交一个 operation 参数，然后根据参数值调用对应的子过程。每个子过程都先拼出完整路径（Server.MapPath("data") & "\" & filename），再执行具体操作。
<%@ LANGUAGE="VBScript" %>
<%
' 设置文件 I/O 常量
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
filename = "test.txt"
path = Server.MapPath("data") & "\" & filename
' 从表单获取操作类型
operation = Request.Form("operation")
%>
然后是一个 HTML 表单，用户选择要执行的操作（创建、删除、读取、写入、添加），提交后触发后台逻辑。
千花飞舞之处理文件
表单提交后，根据操作类型调用对应的子过程，并自动执行一次读取来展示结果。注意，这里的设计是“先执行操作，再读取显示”，方便用户看到效果。
<%
if operation = "create" then
call CreateFile(path)
call ReadFile(path)
elseif operation = "delete" then
call DeleteFile(path)
elseif operation = "read" then
call ReadFile(path)
elseif operation = "write" then
call WriteFile(path)
call ReadFile(path)
elseif operation = "append" then
call AppendFile(path)
call ReadFile(path)
end if
' 执行请求操作
%>
接下来是五个子过程的实现，每个都做了充分的错误处理。
创建文件
如果文件已经存在，直接提示失败，避免覆盖。否则创建新文件，并写入样例数据。
<%
sub CreateFile(path)
dim fs, file
set fs = CreateObject("Scripting.FileSystemObject")
if fs.FileExists(path) then
Response.Write("噢，文件" & filename & "已经存在，创建失败！
" & vbCrLf)
' 如果文件早已存在则显示一个错误信息
else
Response.Write("恭喜，" & filename & "创建成功！
" & vbCrLf)
' 否则创建它并写入数据
set file = fs.CreateTextFile(path)
Response.Write("向" & filename & "写入数据...
" & vbCrLf)
file.WriteLine("Line 1 added " & Now() & ".")
file.WriteLine("Line 2 added " & Now() & ".")
file.WriteLine("Line 3 added " & Now() & ".")
file.WriteLine("Line 4 added " & Now() & ".")
file.WriteLine("Line 5 added " & Now() & ".")
file.Close()
end if
end sub
删除文件
先检查文件是否存在，不存在则报错，否则删除。
sub DeleteFile(path)
dim fs, file
set fs = CreateObject("Scripting.FileSystemObject")
if not fs.FileExists(path) then
' 如果文件不存在则显示一个错误信息
Response.Write("噢，文件" & filename & "不存在，您删除什么！
" & vbCrLf)
else
Response.Write("恭喜，" & filename & "删除成功！
" & vbCrLf)
' 否则删除它
fs.DeleteFile(path)
end if
end sub
读取文件
同样先检查文件是否存在，存在则逐行读取并显示在 标签中。
sub ReadFile(path)
dim fs, file
set fs = CreateObject("Scripting.FileSystemObject")
if not fs.FileExists(path) then
Response.Write("噢，文件" & filename & "不存在，您读取什么！
" & vbCrLf)
' 如果文件不存在则显示一个错误信息
else
set file = fs.OpenTextFile(path, ForReading)
Response.Write("恭喜，" & filename & "读取成功！" & vbCrLf)
' 否则打开它并显示内容
Response.Write("" & vbCrLf)
Response.Write("
" & vbCrLf)
Response.Write("" & vbCrLf)
do while not file.AtEndOfStream
Response.Write(file.ReadLine & vbCrLf)
loop
Response.Write("" & vbCrLf)
Response.Write("
" & vbCrLf)
file.Close()
end if
end sub
写入文件（覆盖）
文件不存在时报错，否则用新内容覆盖原有内容。
sub WriteFile(path)
dim fs, file
set fs = CreateObject("Scripting.FileSystemObject")
if not fs.FileExists(path) then
Response.Write("噢，文件" & filename & "不存在，您写入什么！
" & vbCrLf)
' 如果文件不存在则显示一个错误信息
else
set file = fs.OpenTextFile(path, ForWriting)
' 否则，改写内容
Response.Write("Rewriting file " & filename & ".
" & vbCrLf)
file.WriteLine("Rewritting file with line 1 added " & Now() & ".")
file.WriteLine("Rewritting file with line 2 added " & Now() & ".")
file.WriteLine("Rewritting file with line 3 added " & Now() & ".")
file.Close()
end if
end sub
追加文件
这个子过程比较特别：如果文件存在，先检查大小是否超过 500K（注意注释写的是 500K，但实际是 file.size > 500，单位是字节，小于 1K 的限制，这可能是代码里的小bug——实际生产环境建议用 file.size > 500 * 1024）。如果文件不存在，则自动创建后再追加。
sub AppendFile(path)
dim fs, file
set fs = CreateObject("Scripting.FileSystemObject")
if fs.FileExists(path) then
set file = fs.GetFile(path)
if file.size > 500 then
' 如果文件存在，检查它的大小并退出，如果它超过500K
Response.Write("噢，文件" & filename & "超过了大小限制，添加失败！
" & vbCrLf)
exit sub
end if
else
Response.Write("噢，文件" & filename & "不存在！但它将会被创建...
" & vbCrLf)
end if
' 如果文件不存在，显示一个提示信息
Response.Write("添加内容到文件" & filename & "...
" & vbCrLf)
set file = fs.OpenTextFile(path, ForAppending, true)
file.WriteLine("添加的新内容:" & Now() & ".")
' 当需要给它添加新内容时打开或创建文件
file.Close()
end sub
%>
整段代码逻辑清晰，每条分支都做了防御性检查，适合初学者理解文件操作的基本流程。唯一需要注意的是上面提到的文件大小判断，实际限制的是 500 字节而不是 500K，这在生产环境里很容易踩坑。另外，错误信息用了中文提示，对用户友好，但代码里的英文注释可以保留，方便不同语言背景的开发者阅读。
[1]
