简介：这是一套基于ASP与XML的轻量级文章管理系统v1.13完整源码，定位给ASP初学者、个人站长及动态网站课程设计者，用于快速掌握以XML作存储介质的动态站点开发思路。系统围绕文章内容管理，实现了栏目分类、文章发布、编辑、删除、回复、后台登录、文件上传及安全防护等常见功能，所有数据增删改操作均通过读写XML文件完成，核心脚本清晰呈现了ASP解析XML、追加节点、更新节点与删除节点的实现细节。压缩包共69个文件，整体仅88KB，其中包含39个ASP脚本、5个XML数据/配置文件和19个GIF界面图片，另有JS脚本、TXT说明文档与HTML页面辅助，目录覆盖前台展示、后台管理、安全检测、Ubb编辑器等模块。目前已有93人学习下载，适合对照源码逐行理解XML数据库操作逻辑，体会小型CMS的模块划分与组织方式。资源内还附有程序说明与升级说明，便于在本地IIS环境快速部署、调试及二次扩展。
1. XML文章系统 v1.13：这套 ASP 源码，价值全在“拿 XML 当数据库用”
如果你还停留在“XML 只是配置文件”的印象里，那这套 v1.13 的文章系统源码值得花半个小时拆一遍。它用 XML 文件存储文章数据，完整实现了增删改查，后端走的是 ASP 传统技术栈——没有 MSSQL，没有 Access，一个 XML 文件就是一张表。对老手来说，这套代码是研究“XML 作为轻量级数据层”思路的好样本；对刚接触 ASP 的新手来说，它能让你把 Response、Request、Server.CreateObject 这几个对象在真实业务里串起来，而不是停留在教程的碎片语法里。项目体积小、结构直观，适合本地 IIS 直接跑，也适合改造成小型公司官网、个人知识库的后台。接下来我把存储结构、增删改的实现逻辑、IIS 配置要点和几个容易翻车的地方逐一拆开讲。
2. 先拆存储层：XML 文件的结构设计与读写入口
这个系统的核心不是 ASP 页面，而是数据文件本身的设计。文章系统 v1.13 用 XML 文件替代了关系型数据库，这意味着你先得理解它的“表结构”长什么样，后面所有增删改操作都是围绕这个结构在做字符串级别或 DOM 级别的操作。
2.1 文章 XML 的节点层级：根节点、文章节点与原子字段
典型的文章存储文件会是这样一种层级模型：根节点是 articles，每一条文章记录是 article 节点，内部再挂 id、title、content、author、date 等原子字段。这种设计与关系型数据库的行列概念一一对应：一个 article 节点等于一行记录，一个子节点等于一列。为了让你看得更直观，我按这套系统常见的组织方式还原了文件结构：
<?xml version="1.0" encoding="utf-8"?> <articles> <article> <id>1</id> <title>旧版文章标题</title> <content>这里是正文内容，可能包含 HTML 标签与中文文本。</content> <author>某作者</author> <date>2024-05-12</date> </article> <article> <id>2</id> <title>另一篇文章</title> <content>第二篇正文。</content> <author>A同学</author> <date>2024-06-03</date> </article> </articles>要特别留意 content 节点的特殊性：文章正文长度通常远大于标题，还可能包含段落、图片链接等片段，所以它不适合像普通字段那样用固定长度去解析。系统里对这个字段的读写大多采用“先取整个节点文本，再原样写回”的策略，保证正文里的换行与转义符号不被破坏。
解析这份文件时，ASP 端常见的读法有两种：一种是用 MSXML2.DOMDocument 直接加载整个文件，然后用 selectSingleNode 或 getElementsByTagName 取节点；另一种是直接用 FileSystemObject 把文件当纯文本读出来，再用字符串函数手工定位节点边界。v1.13 的实现偏向 DOM 方式，因为增删改操作天然依赖节点定位能力，纯字符串处理在删除和替换时容易误伤其他节点。
2.2 为什么选 XML 而不是文本文件或 Access
有人会问：既然只是存文章，用纯文本文件按行存不更简单吗？这个问题的答案就是这套系统设计逻辑的起点。纯文本方案在“追加文章”场景下确实简单，只要 append 一行即可，但一旦你要修改第三篇文章的标题，文本方案必须把整个文件读进内存、按行号定位、替换目标行再整体写回，一步出错就会把后续所有行弄乱。XML 方案借助节点树结构，可以精确定位某一个 article 节点下的 title 节点，再修改它的文本，不会影响其他节点。
另外，XML 自带语义层级，title、content、author 这些字段名本身就是可读的，不需要额外维护字段顺序说明。相比之下，纯文本用分隔符（比如逗号或竖线）存字段时，一旦某个字段里出现了分隔符，整行数据就废了。XML 在这点上天然免疫，因为它用标签包围内容而不是靠位置切分内容。
Access 数据库当然更强，但前提是你的 Windows 服务器装了对应驱动，而且数据库文件本身存在并发写锁问题。XML 文件方案的优势是“免安装、免配置、单文件可迁移”，把整个网站目录打包拷贝到另一台机器，数据就跟着走了，这在交付源码类项目时特别方便。代价是数据量大了之后性能会明显下降，所以这套系统的定位很清晰：适合文章量在几百篇以内的轻量场景，不适合做成高并发的 CMS。
2.3 读写文件的两种方式：DOMDocument 与 FSO 的取舍
读 XML 时我建议优先用 DOMDocument，它的属性和方法更贴合 XML 语义，比如 load、documentElement、childNodes 这一套。而写回时常见做法是：先加载到 DOM，完成节点增删改后，再调用 save 方法保存到原文件。示例代码如下：
Dim objDoc Set objDoc = Server.CreateObject("MSXML2.DOMDocument") objDoc.Async = False objDoc.Load Server.MapPath("data/articles.xml") Dim objArticle Set objArticle = objDoc.DocumentElement.SelectSingleNode("article[id='3']") If Not objArticle Is Nothing Then objArticle.SelectSingleNode("title").Text = "修改后的新标题" objDoc.Save Server.MapPath("data/articles.xml") End If逻辑说明：Async=False 是关键，它强制同步加载，避免文件还没读完就开始操作节点。SelectSingleNode 用 XPath 表达式直接命中 id 等于 3 的 article 节点，再通过 SelectSingleNode("title") 取到它的子节点并赋新值。最后 Save 把整个文档树写回磁盘。
参数说明：MapPath 的作用是把虚拟路径转成服务器物理路径。如果你的 XML 文件和 ASP 页面不在同一目录，尽量写相对于站点的路径，不要写死绝对路径，否则换服务器就报错。另外注意 Save 方法的覆盖行为，它是整文件写回，不是局部更新，所以如果文件较大，高频保存时会有磁盘 IO 压力。
FSO 方式则适合做“整文件替换”或“追加内容”的场景。比如初始化数据文件时，可以用 FSO 直接写出一个符合 XML 结构的新文件。但我不建议用 FSO 去定位和修改中间节点，原因很简单：你需要自己写字符串查找逻辑，容易把 里的 HTML 片段误当成节点边界。实践中我一般把 DOM 作为主要读写手段，FSO 只用来做目录检查和文件备份。
3. 增删改查的核心实现：从 selectSingleNode 到 Save 的完整闭环
理解存储结构之后，接下来要看的才是真正干活的部分：ASP 页面里如何把前端的表单数据解析出来，再写进 XML 文件。这套系统的操作页面一般分为文章列表、添加文章、编辑文章、删除文章四个模块，核心逻辑集中在后两个页面里。
3.1 新增文章：创建节点、填充数据与防重复 id
新增文章的惯用流程是：接收表单提交的 title、content、author、date，读取 XML 文件中当前最大的 id 值并加一，创建新的 article 节点，把字段挂到节点下，最后 append 到根节点。参考代码如下：
Dim objDoc, objRoot, objNewArticle Set objDoc = Server.CreateObject("MSXML2.DOMDocument") objDoc.Async = False objDoc.Load Server.MapPath("data/articles.xml") Set objRoot = objDoc.DocumentElement ' 计算新 ID：遍历已有 article 节点，取 id 最大值 Dim maxId, objNodes, i maxId = 0 Set objNodes = objRoot.SelectNodes("article/id") For i = 0 To objNodes.Length - 1 If CInt(objNodes.Item(i).Text) > maxId Then maxId = CInt(objNodes.Item(i).Text) End If Next ' 创建新文章节点 Set objNewArticle = objDoc.CreateElement("article") Dim objField, objId, objTitle, objContent Set objId = objDoc.CreateElement("id") objId.Text = CStr(maxId + 1) Set objTitle = objDoc.CreateElement("title") objTitle.Text = Request.Form("title") Set objContent = objDoc.CreateElement("content") objContent.Text = Request.Form("content") objNewArticle.AppendChild objId objNewArticle.AppendChild objTitle objNewArticle.AppendChild objContent objRoot.AppendChild objNewArticle objDoc.Save Server.MapPath("data/articles.xml") Set objDoc = Nothing逻辑说明：代码分成三个层次。第一层是加载 DOM 并定位根节点；第二层是扫描现有 id 子节点，取最大值来完成自增；第三层是构造新节点并追加到文档树。AppendChild 的顺序就是节点在 XML 文件中的顺序，所以先追加 id，再追加 title，文件里就是 id 在前、title 在后。
这个流程里有几个参数容易出问题。CInt 转换必须保证 XML 文件里 id 一定是纯数字，一旦某条记录被手工改成了非数字字符，整个 For 循环直接报类型不匹配。CreateElement 创建的节点不带文本，必须先给 .Text 赋值再挂到父节点上，顺序反了就会生成空节点。Request.Form 取到的字符串如果包含特殊字符（比如 < 或 &），赋给 .Text 时要注意编码行为，DOM 对象会自动把 < 转义成 <，这是好事，但如果后面只做纯文本读取，你拿到的就是转义后的字符串，展示时需要做反转义。
3.2 编辑文章：XPath 定位与字段级覆盖
编辑操作的难点不在修改，而在定位。编辑页面一般用 querystring 把 id 传过来，比如 edit.asp?id=3，然后后端用 XPath 准确定位到对应 article 节点。定位成功后，把该节点下的 title、content 等字段的 Text 属性依次覆盖为表单提交值。
Dim objDoc, objTarget, strXPath Set objDoc = Server.CreateObject("MSXML2.DOMDocument") objDoc.Async = False objDoc.Load Server.MapPath("data/articles.xml") strXPath = "article[id='" & Request.QueryString("id") & "']" Set objTarget = objDoc.DocumentElement.SelectSingleNode(strXPath) If Not objTarget Is Nothing Then objTarget.SelectSingleNode("title").Text = Request.Form("title") objTarget.SelectSingleNode("content").Text = Request.Form("content") objTarget.SelectSingleNode("author").Text = Request.Form("author") objDoc.Save Server.MapPath("data/articles.xml") End If逻辑说明：SelectSingleNode 的 XPath 表达式里用了一个字符串拼接，把 QueryString 传入的 id 值直接嵌入条件。objTarget 拿到 article 节点后，每次 SelectSingleNode 都是相对路径查找，只在该文章节点内部搜索，不会误改别的文章。Save 之前的多个字段修改都在内存中完成，最后一次写盘，效率比每改一个字段就 Save 一次高得多。
这里必须强调一个坑：Request.QueryString("id") 是用户可控的输入。如果直接拼接进 XPath，遇到单引号、特殊字符时可能解析失败，甚至构造出意外的条件。常见做法是先用正则或类型判断校验 id 必须为纯数字，否则直接 Response.End。我在实际改造中会加一段检查逻辑：如果 IsNumeric(id) 为 False，就跳转到错误页。这套源码 v1.13 在这点上做得比较原始，拿到手后第一件事应该是补上输入校验，别让它裸奔。
3.3 删除文章：RemoveChild 与“软删除”的选择
删除操作看起来是最简单的，一行 RemoveChild 就完事，但它牵涉到数据安全问题。直接物理删除意味着数据不可恢复，这在文章管理场景里有时候是灾难性的。源码里实现的是硬删除，但我在复现和改造时强烈建议加一个“回收站”机制，或者至少先备份一份原文件再操作。
Dim objDoc, objTarget Set objDoc = Server.CreateObject("MSXML2.DOMDocument") objDoc.Async = False objDoc.Load Server.MapPath("data/articles.xml") Set objTarget = objDoc.DocumentElement.SelectSingleNode("article[id='" & Request.QueryString("id") & "']") If Not objTarget Is Nothing Then objDoc.DocumentElement.RemoveChild objTarget objDoc.Save Server.MapPath("data/articles.xml") End If逻辑说明：RemoveChild 的参数是待删除的节点对象，执行后该节点从文档树中脱离，但 objTarget 变量仍然引用着它，理论上还能取回文本。Save 之后磁盘上的文件才真正更新，所以如果你要备份，必须在 Save 之前把 objTarget 的 XML 序列化出来存到别的文件里。
这里有一个值得留意的边界：如果删除的是最后一个 article，根节点下会变成空状态，文件结构仍然合法。但如果你后续用 XPath 搜索 article 节点并假设至少有一条记录，代码里就要做空节点判断。另外，删除操作不触发 id 的重新编号，新增文章时 maxId 取的是剩余记录的最大值，所以删除后新增的文章 id 不会复用被删掉的编号，这个行为正常，不用担心。
3.4 列表查询：SelectNodes 的遍历与分页边界
文章列表页的核心是遍历所有 article 节点，把标题和日期输出成表格。源码这套系统没做复杂查询，就是简单的全量遍历，但你要知道量大了之后该怎么改。
Dim objDoc, objNodes, i Set objDoc = Server.CreateObject("MSXML2.DOMDocument") objDoc.Async = False objDoc.Load Server.MapPath("data/articles.xml") Set objNodes = objDoc.DocumentElement.SelectNodes("article") For i = 0 To objNodes.Length - 1 Response.Write "ID: " & objNodes.Item(i).SelectSingleNode("id").Text & "<br>" Response.Write "标题: " & objNodes.Item(i).SelectSingleNode("title").Text & "<br>" Response.Write "作者: " & objNodes.Item(i).SelectSingleNode("author").Text & "<br><hr>" Next逻辑说明：SelectNodes 返回的是节点集合对象，Length 是总节点数，Item(i) 按下标访问节点，下标从 0 开始。每次 SelectSingleNode 都是相对当前 article 节点查找，所以即使某个 article 节点缺失某个子节点，也只是当前这条记录输出异常，不会导致循环崩溃——前提是你对空节点做了 Is Nothing 判断。
这段代码在文章量少时没有问题，但如果有 1000 篇文章，Response.Write 会产生 1000 次输出缓冲操作，页面响应会明显变慢。常见优化方案是：先构建一个数组或字符串，循环结束后再一次性用 Response.Write 输出，减少与 IIS 的交互次数。分页则是另一个话题，XPath 本身不支持 SQL 的 LIMIT 语法，所以要么用数组缓存后按页切取，要么利用 article 节点顺序按下标分段，在循环里跳过当前页范围之外的记录。
4. 把这套系统跑起来：IIS 配置、权限设置与 v1.13 的隐藏坑
源码到手后第一件事不是看代码，而是把环境跑通。ASP 应用跑在 IIS 上，不同 Windows 版本的 IIS 配置路径略有差异，但核心要点是一样的。这里按我实际部署的经验顺序来讲，每一步都有具体的检查方法。
4.1 IIS 安装与 ASP 功能启用：少勾一个选项就 500
Windows 10 或 Windows Server 上启用 IIS，最常翻车的点是没有启用 ASP 子功能。在“启用或关闭 Windows 功能”里，找到“Internet Information Services”，勾选“Web 管理工具”下的“IIS 管理控制台”，然后务必展开“万维网服务 -> 应用程序开发功能”，勾选“ASP”。如果漏了这一步，别人访问 .asp 页面会直接返回 500 或直接下载文件，页面代码不执行。
启用之后打开 IIS 管理器，在左侧连接树选中站点，双击中间的“ASP”图标，把“启用父路径”设为 True。这套源码里如果有使用相对路径的 include 文件，父路径禁用会直接报错，这是新手最容易踩的第一个坑，症状是页面报“Active Server Pages 错误 'ASP 0131'”。
还有一个常常被忽略的是“应用程序池”的设置。IIS 7.5 及以上版本默认应用池是“集成”模式，如果你的代码兼容旧式 ASP 写法，可以右键应用池选择“基本设置”，把“托管管道模式”设为“经典”。虽然大多数 ASP 代码在集成模式下也能跑，但某些使用 Server.URLEncode 或者自定义 HTTP 头的场景会有行为差异，遇到“无法在集成模式下运行”之类的报错时直接切经典模式。
4.2 XML 文件写入权限：报错“未找到路径”或“拒绝访问”
ASP 读取 XML 文件通常没有问题，但写入时需要 IIS 进程账号对文件所在目录有写权限。这在本地开发机上最隐蔽：你用自己的管理员账号登录系统，IIS 进程却运行在 IIS_IUSRS 或 Network Service 账号下，它没有 data 目录的写权限。于是操作表现是：文章列表正常显示，添加文章却报权限错误。
解决方法是右键 data 目录，进入“安全”选项卡，点击“编辑”，添加 IIS_IUSRS 用户，勾选“修改”和“写入”权限。注意不需要给“完全控制”，给“修改”足够。如果你用的是 IIS 6 及更早版本，进程账号可能是 IUSR_机器名，做法相同。改完权限之后重启一下 IIS 应用池，让权限配置生效。
我见过更隐蔽的情况：data 目录权限没问题，但 XML 文件本身被勾选了“只读”。尤其从压缩包解压出来的文件，如果压缩包里有只读属性标记，解压到磁盘后文件属性会继承。检查方法很简单：右键 XML 文件，看“只读”复选框是否被打勾，有就取消。如果文件多，用命令行批量清除属性更快：attrib -R data*.xml。
4.3 编码问题：UTF-8 声明与 ANSI 数据打架
文章系统 v1.13 的 XML 声明是 utf-8，但有些页面文件可能以 ANSI 编码保存，或者编辑页面 Save 时没有指定编码。后果就是中文标题读出来是乱码，或者写入后整个 XML 文件的结构被破坏。
常见的表现有两种：一种是在浏览器里看到中文正常，但打开 XML 文件看到的是乱码；另一种是编辑器打开 XML 看着正常，网页输出却是乱码。前者说明文件本身是 GBK 编码但声明为 UTF-8，后者说明文件是 UTF-8 但 Response 默认按 GBK 输出。处理办法是统一编码：把 data 目录下的 XML 文件另存为 UTF-8 编码，同时在 ASP 页面顶部加上 Response.Charset="utf-8"，让浏览器按 UTF-8 渲染输出。另外建议用文本编辑器把 .asp 文件本身也批量转为 UTF-8 保存，避免包含文件拼接时出现编码混用。
如果是在修改代码后出现乱码，多半是你用编辑器“追加保存”了某段字符串，编辑器的默认编码和原文件不一致。我的习惯是拿到源码后先不急着看功能，先统一所有文件编码，再进 IIS 调试，这样可以排除一大类乱码干扰。
4.4 常见问题排查：500 错误的定位方法
ASP 页面一旦 500，默认页面往往只显示“服务器错误”，不显示具体哪行代码出错。这时打开 IIS 管理器，选中 ASP 图标，在“调试属性”里把“将错误发送到浏览器”设为 True。刷新页面后就能看到具体的行号、错误代码、出错描述，比如“Microsoft VBScript runtime error '800a01b6'”这类信息。
配置路径因版本而异，IIS 10 里是“ASP -> 调试属性 -> 将错误发送到浏览器”，选 True，点右侧“应用”。开发调完记得改回去，生产环境暴露错误详情是有安全风险的。看到错误代码后，对照常见表排查：“800a01b6”通常是对象不支持该属性或方法，检查对象名是否拼错；“800a000d”是类型不匹配，多半是 CInt 或 CStr 转换失败；“800a01a8”是对象缺失，查 Set 是否忘了 New 或者节点没找到。
还有一个容易被忽略的排查点：global.asa。如果站点根目录有 global.asa 文件，且文件里有语法错误，整个站点所有 ASP 页面都会报错，但错误信息不是指向 global.asa 而是指向访问页面。遇到页面报错但查遍逻辑都没问题时，检查一下 global.asa 里的 Session 事件或 Application 事件代码。
5. 避坑指南：输入校验、路径硬化与数据备份的三个血泪教训
这一章把我拆这套源码时踩过的几个坑集中讲清楚，每一条都是“现象 -> 原因 -> 解决”的结构，照着检查能省不少时间。
5.1 现象：添加文章时中文内容被截断，只存了一半
原因在表单提交的默认编码与服务器解析编码不一致。页面本身是 UTF-8，但 Request.Form 默认按 ANSI 解析 POST 数据，中文长度超过一定字节数时，VBScript 处理字节数组可能截断。另外，
