网站上线一段时间后，目录里会积累很多零散文件：模板、上传图片、配置文件、后台脚本。备份时如果只凭FTP手动拖动，很容易漏掉某个不起眼的子目录。ASP环境本身没有现成的打包命令，但可以借助XML把文件结构序列化，再通过Base64把二进制内容塞进节点，最终生成一个独立、可传输、可还原的XML文件。这一方案适合小中型站点做完整快照，也方便把代码搬到新服务器或做版本归档。
实现过程可以拆成四步：先用递归遍历生成目录清单，再把文件内容转成Base64写入XML节点，然后输出下载并编写还原脚本，最后针对大文件和安全问题做控制。下面逐个展开。
一、先用递归生成网站的目录清单
要生成XML包，第一步是把网站根目录的文件和子目录完整记录下来。FileSystemObject提供了GetFolder、Files、SubFolders等接口，可以方便地做递归遍历。递归函数接收一个XML父节点和一个物理路径，逐层创建file节点和folder节点。每个file节点记录文件名、大小、修改时间，这些信息后续可以用来做增量备份判断。
下面这一段代码会从当前脚本所在目录开始，递归建立一份XML结构。为了防止上一次生成的清单文件被再次打包进去，循环里对站点自身生成的site_manifest.xml做了跳过处理。实际项目中还可以把上传目录、缓存目录也排除掉，避免XML体积失控。
<%
Dim xmlDoc
Set xmlDoc = Server.CreateObject("MSXML2.DOMDocument")
xmlDoc.async = False
Dim rootNode
Set rootNode = xmlDoc.createElement("website")
xmlDoc.appendChild rootNode
Sub BuildFileList(parentNode, folderPath)
Dim fso, folder, file, fileNode, subFolder, folderNode
Set fso = Server.CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(folderPath) Then Exit Sub
Set folder = fso.GetFolder(folderPath)
For Each file In folder.Files
If LCase(file.Name) = "site_manifest.xml" Then
' 跳过自身生成的清单文件
Else
Set fileNode = xmlDoc.createElement("file")
fileNode.setAttribute "name", file.Name
fileNode.setAttribute "size", file.Size
fileNode.setAttribute "modified", file.DateLastModified
parentNode.appendChild fileNode
End If
Next
For Each subFolder In folder.SubFolders
Set folderNode = xmlDoc.createElement("folder")
folderNode.setAttribute "name", subFolder.Name
parentNode.appendChild folderNode
BuildFileList folderNode, subFolder.Path
Next
End Sub
BuildFileList rootNode, Server.MapPath(".")
xmlDoc.save Server.MapPath("site_manifest.xml")
Set xmlDoc = Nothing
%>上面的代码先把目录结构保存成了一个独立的XML文件，便于随时查看站点里到底有哪些文件。如果只是想生成一份清单，到这里就可以结束。但如果要完整还原站点，还需要继续把文件内容也放进去。
二、把文件内容以Base64写入XML节点
光有文件名和路径不能还原站点，必须把文件内容也放进XML。直接写入二进制会导致XML解析失败，所以需要Base64编码。Base64能把任意字节转换成纯文本字符，XML节点完全可以容纳。ASP下可以用ADODB.Stream读取文件为字节数组，再借助MSXML2.DOMDocument的bin.base64数据类型把字节数组转成Base64字符串。
下面的FileToBase64函数负责读取一个文件的字节内容，并返回Base64字符串。它先用ADODB.Stream以二进制模式打开文件，再用MSXML的临时节点把字节数组转换成Base64文本。这个方法的优点是不需要自己实现Base64算法，代码短且可靠。
<%
Function FileToBase64(filePath)
Dim stream, xml, node, bytes
Set stream = Server.CreateObject("ADODB.Stream")
stream.Type = 1
stream.Open
stream.LoadFromFile filePath
bytes = stream.Read
stream.Close
Set stream = Nothing
Set xml = Server.CreateObject("MSXML2.DOMDocument")
Set node = xml.createElement("tmp")
node.dataType = "bin.base64"
node.nodeTypedValue = bytes
FileToBase64 = node.text
End Function
%>在递归遍历文件的循环中，可以调用FileToBase64把返回的字符串赋给fileNode.text。这样每个file节点就同时包含了文件属性和完整编码内容。但要注意，Base64会让文件体积膨胀约三分之一，对于图片和视频等大文件会迅速撑大XML，增加内存压力。因此不是所有文件都适合塞进XML。数据库文件、上传目录、日志文件通常很大且不是代码，可以只记录路径，不写入内容，或者单独用文件复制方式备份。
实际使用时可以加一个扩展名白名单，比如只对.asp、.html、.css、.js、.xml等文本类文件写入Base64内容，其余文件只保留路径和大小信息。这样既能保证核心代码可还原，又能让XML包保持在可管理的范围。
三、输出XML包并还原到目标服务器
生成完整XML后，可以保存到服务器临时目录，也可以直接使用Response对象输出下载。直接输出时设置Content-Type为application/xml或application/octet-stream，加上Content-Disposition附件头，浏览器就会弹出下载。注意设置Response.Buffer为True，避免边生成边发送导致HTTP头已经发送。
<% Response.Buffer = True Response.Clear Response.ContentType = "application/xml" Response.AddHeader "Content-Disposition", "attachment; filename=website_pack.xml" xmlDoc.save Response Response.End %>
xmlDoc.save Response能工作的原因是MSXML的save方法支持IStream接口，而Response对象恰好实现了该接口。如果项目运行环境不支持这种写法，可以先把XML保存到一个临时文件，再用FileSystemObject读取后用Response.BinaryWrite输出。
还原时执行相反过程：加载XML，遍历folder节点创建目录，遍历file节点读取Base64文本，转回字节数组后写入目标路径。下面的Base64ToBytes和WriteFileFromBase64用来完成解码和写文件的工作。还原脚本要严格控制执行权限，不能通过URL公开访问。
<%
Function Base64ToBytes(base64Str)
Dim xml, node
Set xml = Server.CreateObject("MSXML2.DOMDocument")
Set node = xml.createElement("tmp")
node.dataType = "bin.base64"
node.text = base64Str
Base64ToBytes = node.nodeTypedValue
End Function
Sub WriteFileFromBase64(filePath, base64Str)
Dim bytes, stream
bytes = Base64ToBytes(base64Str)
Set stream = Server.CreateObject("ADODB.Stream")
stream.Type = 1
stream.Open
stream.Write bytes
stream.SaveToFile filePath, 2
stream.Close
Set stream = Nothing
End Sub
%>还原时要注意先创建文件夹再写文件，路径必须使用Server.MapPath限定到目标根目录，并对XML中的name属性做安全检查，避免出现..这样的路径穿越字符。即使是管理员操作，也要假设XML文件可能被篡改过。
四、性能、权限与安全注意事项
整个方案最大的瓶颈是内存。MSXML DOM会把整份XML加载到内存，如果网站有几百MB文件，加上Base64膨胀，可能直接耗尽ASP进程内存。建议只对代码和文本文件使用XML打包，图片和媒体文件通过ZIP或FTP单独传输。同时设置Server.ScriptTimeout足够大，否则大目录遍历可能超时中断。
安全方面，这个打包脚本相当于给了访问者导出整个网站源码的能力，必须放在管理目录下，并做登录验证或IP白名单。还原脚本更要严格限制，只允许管理员在服务器本地执行，不能通过普通URL请求触发。路径拼接时检查是否包含..，并始终MapPath到固定根目录，防止任意文件写入。
为了减少风险，可以在生成XML时排除web.config、数据库连接字符串等敏感文件，或者只记录路径不写入内容。执行打包前最好记录日志，包括执行时间、文件数量、总大小，方便排查问题。如果将来站点变大，可以考虑把XML清单与文件实体分开，清单只存路径和哈希，文件用压缩工具单独打包。这样XML依然保持轻量，同时还能校验文件完整性。
ASP虽然已经不算新技术，但通过组合FileSystemObject、MSXML和ADODB.Stream，同样能实现灵活的网站文件打包。只要控制好规模和权限，这套方案足以应对日常备份和迁移需求，也为老项目维护提供了一个低成本的自动化思路。