简介：面向网络公司、建站工作室以及科技与SEO优化企业的官网搭建需求，这套ASP企业网站整站源码可作为蓝色风格企业站的二次开发基础。其定位偏向中小型官网快速落地，适合需要参考整站结构、后台管理与页面组织方式的建站从业者及ASP学习者。压缩包为rar格式，约15.43MB，上游未提供文件总数与文件类型明细，因此不宜推断具体模块构成；从安装说明看，资源包含admin管理后台入口，默认账号密码为admin/admin。已有135人浏览学习，说明其在企业站源码方向具有一定参考热度。读者可据此了解ASP企业站的页面组织、后台入口配置与整站文件部署思路，并在此基础上替换文案、图片和栏目，用于网络公司、建站工作室或SEO服务商的官网原型搭建与二次开发。
1. 一套只给 IIS 环境的企业站，先看它能干什么
上周朋友甩过来一个压缩包，说客户那边只给 IIS 空间，PHP 一个字都不让装，问我这套 ASP 整站源码还能不能救。解开一看，是挺经典的企业网站模板：首页、公司简介、产品中心、新闻动态、案例展示、在线留言、后台管理一应俱全，版本号 v1.1，Access 数据库，VBScript 和 HTML 混写，前台静态页面配后台动态发布。这类东西现在没谁拿来当新项目起点，但存量站点、老客户续费、内网展示站还在大量使用，所以值得完整拆一遍。它适合两类人：手上接了个老站要维护的，以及想拿一个真实可跑的 ASP 整站源码练手、看看“没有框架的年代一个站是怎么组织起来”的开发者。
2. 目录结构与技术栈：IIS + VBScript + Access 这套组合怎么落地
拿到压缩包先别急着往服务器上传。这类 v1.1 的老模板通常已经被很多人改过，目录里混着演示数据、备份文件、编辑器残留，直接上线大概率出问题。先在本地把结构摸清楚，再决定哪些留、哪些删。
2.1 解压先看目录：前台、后台、公共层、上传目录各在哪
这类 ASP 企业网站模板的目录约定几乎一模一样，解压后基本是下面这个样子：
qiye/ ├── index.asp 首页 ├── about.asp 公司简介（单页） ├── news.asp / newsview.asp 新闻列表 / 新闻详情 ├── product.asp / productview.asp ├── case.asp / contact.asp / message.asp ├── search.asp 站内搜索 ├── admin/ 后台入口 │ ├── login.asp │ ├── index.asp 后台框架页 │ ├── news_list.asp / news_edit.asp │ ├── product_list.asp │ └── ... ├── inc/ 公共层 │ ├── conn.asp 数据库连接 │ ├── config.asp 站点参数（名称、关键词、备案号占位） │ ├── function.asp 公共函数 │ └── check.asp 后台登录校验 ├── data/ │ └── #db.mdb Access 数据库 ├── uploadfile/ 用户上传目录 ├── editor/ 富文本编辑器 ├── images/ css/ js/ 静态资源 └── temp/ 模板与缓存inc/是整站的核心，前台每个页面第一行基本都是<!--#include file="inc/conn.asp"-->，后台则是<!--#include file="../inc/check.asp"-->。看懂这两个 include，整站的调用链就通了一半。
data/#db.mdb文件名前面那个井号不是装饰。IIS 默认会把.mdb当作可下载文件，浏览器直接访问http://站点/data/db.mdb就能把整库拖走，这是这类站最常见的事故。加#之后 URL 里的#会被当作锚点截断，请求实际落到data/目录上，返回 403，算是一种成本最低的土办法。更稳妥的做法是改 IIS 的 MIME 类型，把.mdb映射成application/octet-stream之外的自定义类型，或者干脆挪到站点根目录之外。
temp/目录在老模板里通常是模板引擎的编译缓存，也可能是留给客户改皮肤用的模板文件。如果发现里面是一堆.html且被FSO读写，说明这套站支持后台改模板，二次开发时要注意这个目录必须可写。
uploadfile/是重中之重。这个目录必须给写权限，但绝对不能给脚本执行权限——老 ASP 站被挂马，九成是有人往上传目录塞了一个.asp小马，然后在地址栏直接访问它。
2.2 技术栈与运行环境：VBScript、Jet 驱动、32 位应用程序池
这套站的技术栈很朴素，没有任何框架，全靠 IIS 自带的 ASP 引擎和 ADO：
| 层次 | 用的东西 | 说明 |
|---|---|---|
| Web 服务 | IIS 7/8/10 + ASP | 需要显式开启“ASP”和“ISAPI 扩展”功能 |
| 脚本 | VBScript（Classic ASP） | 没有编译过程，改完刷新即生效 |
| 数据访问 | ADODB.Connection / Recordset | 连接串写在conn.asp |
| 数据库 | Access（Jet 4.0）或 SQL Server | 模板默认 Access，部分版本提供 SQL Server 脚本 |
| 富文本 | 老版 eWebEditor 类编辑器 | 兼容性差，是后台上传最容易翻车的地方 |
| 上传 | 无组件上传类（纯 VBScript 解析字节流） | 也可能调用 SA-FileUp 等第三方组件 |
| 伪静态 | ISAPI_Rewrite / httpd.ini | 虚拟主机常见，独立服务器可用 URL Rewrite |
这里有个容易被忽略的关键点：Access 的Microsoft.Jet.OLEDB.4.0驱动只有 32 位版本。现在的服务器清一色 64 位 Windows，应用程序池默认也是 64 位，结果就是连接串写得再对，打开页面也只会甩一个“未找到提供程序”的错误。解决办法是把应用程序池的“启用 32 位应用程序”设为 True，或者把连接串换成Microsoft.ACE.OLEDB.12.0（需要装 Access Database Engine，而且同样要匹配位数）。
我一般倾向后者，因为 Jet 4.0 在较新的系统上已经不随系统预装了。但如果目标环境是老虚拟主机，就只能老老实实打开 32 位兼容，这个改不了。
2.3 本地跑通的三步：开功能、建站点、给权限
在本地把站跑起来不需要多复杂，三步就够。第一步开启 Windows 的 IIS 与 ASP 功能：
# 以管理员身份运行 PowerShell # 一次性装好 IIS 主体、经典 ASP、ISAPI 扩展与筛选器 Enable-WindowsOptionalFeature -Online -All ` -FeatureName IIS-WebServerRole, IIS-ASP, IIS-ISAPIExtensions, IIS-ISAPIFilter第二步建站点。用appcmd比在图形界面里点要快，也方便写成脚本复现：
# 建一个独立站点，物理路径指向解压目录，端口给 8081 避免和本机其他服务冲突 $iis = "$env:windir\system32\inetsrv\appcmd.exe" & $iis add site /name:"qiye-demo" /physicalPath:"D:\web\qiye" /bindings:"http/*:8081:" # Access 驱动是 32 位的，必须让应用程序池跑在 32 位模式下 & $iis set apppool /apppool.name:"DefaultAppPool" /enable32BitAppOnWin64:"true" # 老站首页是 index.asp，默认文档里要补上 & $iis set config /section:defaultDocument /+"files.[value='index.asp']"第三步给权限。这一步漏了，后台登录能进、列表能看，一到保存就报错：
# data 目录要给写权限（Access 会生成 .ldb 锁文件），uploadfile 要给写权限 icacls "D:\web\qiye\data" /grant "IIS_IUSRS:(OI)(CI)M" /T icacls "D:\web\qiye\uploadfile" /grant "IIS_IUSRS:(OI)(CI)M" /T # 上传目录禁止执行脚本，堵掉最常见的挂马入口 icacls "D:\web\qiye\uploadfile" /deny "IIS_IUSRS:(OI)(CI)RX" /T参数说明：(OI)(CI)表示对象继承和容器继承，M是修改权限，/T递归到子目录。最后一条的RX是读取和执行，对它取 deny，效果就是 IIS 工作进程能在上传目录里读写文件，但不能把里面的.asp当脚本执行。
提示：
icacls的 deny 优先级高于 grant，所以“允许写、拒绝执行”这个组合是成立的，不用拆成两个账号。改完刷新一下 IIS，访问http://localhost:8081/能看到首页就说明环境通了。
3. 公共层拆解：conn.asp、公共函数与分页这套底座
整站所有页面都依赖inc/里的三个文件，这三个文件写得好不好，直接决定后面改起来是顺手还是难受。我拆这类模板，习惯先把它们从头到尾读一遍，因为所有的坑基本都藏在这里。
3.1 conn.asp：连接串、相对路径和那个最容易翻车的 MapPath
这是模板里最常见的写法：
<% ' inc/conn.asp —— 全站数据库连接 Dim Conn, ConnStr, DbPath ' 注意：这里用的是站点根相对路径，前面带斜杠 DbPath = Server.MapPath("/data/#db.mdb") ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DbPath & ";" On Error Resume Next Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open ConnStr If Err.Number <> 0 Then Response.Write "数据库连接失败：" & Err.Description Response.End End If On Error GoTo 0 %>逻辑说明：先用Server.MapPath把虚拟路径转成物理路径，再拼成 OLEDB 连接串，最后Open。On Error Resume Next是给排查用的，上线后这句其实应该去掉，因为它会把连接失败悄悄吞掉，后面所有查询都返回空，页面看着正常其实一条数据都没有。
参数说明：Server.MapPath("/data/#db.mdb")里的前导斜杠表示“从站点根开始算”。如果写成Server.MapPath("data/#db.mdb")，路径就是相对于当前执行页面所在的目录。前台页面在根目录没问题，后台页面在admin/目录下 include 同一个文件，就变成了admin/data/#db.mdb，库自然找不到——这个坑我踩过不止一次，现象是前台一切正常、后台全部报错，特别容易把人绕进去。
换成 SQL Server 的时候只改连接串，别去动别的地方：
ConnStr = "Provider=SQLOLEDB;Data Source=127.0.0.1;Initial Catalog=qiye;User ID=sa;Password=***;"老模板里的密码通常是明文写在文件里的，如果这个站要放到公网，inc/目录必须禁止外部访问（IIS 里对inc加请求筛选规则），否则人家直接下载你的conn.asp就拿到数据库密码了。
3.2 公共函数库：过滤、截字、格式化这三件套
function.asp里塞的通常是三类函数。第一类是防注入过滤，老模板的写法大致如下：
<% ' 请求参数取值 + 关键词过滤，所有页面的入参都应该走这里 Function SafeReq(name) Dim s s = Trim(Request(name) & "") If Len(s) > 0 Then s = Replace(s, "'", "''") ' 单引号转义，兜底防止拼接断裂 s = Replace(s, "--", "") s = Replace(s, "/*", "") s = Replace(s, "*/", "") ' 过滤关键词时统一转小写比较，避免大小写绕过 Dim bad, i, low bad = Array("select", "insert", "update", "delete", "drop", "exec", "declare") low = LCase(s) For i = 0 To UBound(bad) low = Replace(low, bad(i), "") Next SafeReq = low Else SafeReq = "" End If End Function %>逻辑说明：Request(name)不带集合名，会按 QueryString → Form → Cookies 的顺序取值，方便但不严谨，正式项目里应该显式写Request.QueryString或Request.Form。过滤本身是黑名单思路，能挡住脚本小子的自动化扫描，挡不住真正会构造语句的人——这一点后面第 6 章会改成参数化查询。
第二类是中文截取。老 ASP 站几乎都是 GB2312 编码，一个汉字占两个字节，所以截字符串要按字节算：
<% ' 按字节截取，超长补省略号，用于新闻列表的摘要 Function CutStr(str, maxLen) Dim s, i, b, n s = Trim(str & "") n = 0 For i = 1 To Len(s) ' Asc 取的是字节值，中文 > 127 记 2 个字节，英文记 1 个 If Asc(Mid(s, i, 1)) < 0 Or Asc(Mid(s, i, 1)) > 127 Then n = n + 2 Else n = n + 1 End If If n > maxLen Then CutStr = Left(s, i - 1) & "..." Exit Function End If Next CutStr = s End Function %>参数说明：maxLen单位是字节，传 60 大约能显示 30 个汉字。如果哪天把站点整体转成 UTF-8，这个函数就会因为Asc返回值变化而截错位置，得一起改。
第三类是时间格式化、HTML 转义这类小工具，比如把数据库里的2024-3-5 9:07:00输出成2024-03-05，或者把用户留言里的<>转成实体防止留言板被贴 HTML。
3.3 列表分页：ADO 游标分页和手写 TOP 分页怎么选
新闻列表、产品列表、搜索结果都要分页。老模板有两种写法，各有各的适用场景。
第一种是 ADO 自带的记录集分页，代码最短：
<% Dim page, rs, totalPage ' CLng("") 会直接抛类型不匹配错误，所以必须先兜底 page = Request.QueryString("page") If Not IsNumeric(page) Or page = "" Then page = 1 page = CLng(page) If page < 1 Then page = 1 Set rs = Server.CreateObject("ADODB.Recordset") ' 3 = adOpenStatic（静态游标，支持 RecordCount），1 = adLockReadOnly rs.Open "SELECT id,Title,AddTime FROM News ORDER BY id DESC", Conn, 3, 1 rs.PageSize = 20 If page > rs.PageCount Then page = rs.PageCount rs.AbsolutePage = page %> <!-- 列表输出 --> <% Do While Not rs.EOF And i < rs.PageSize %> <li><a href="newsview.asp?id=<%=rs("id")%>"><%=CutStr(rs("Title"), 60)%></a></li> <% i = i + 1 : rs.MoveNext : Loop %> <!-- 分页条 --> <% For p = 1 To rs.PageCount %> <a href="news.asp?page=<%=p%>"><%=p%></a> <% Next %>逻辑说明：rs.PageSize定每页条数，rs.AbsolutePage跳页，rs.PageCount出总页数。注意必须用静态游标（参数3），用默认的只进游标拿不到RecordCount，会直接返回 -1，分页条就变成空白。
参数说明：两个游标参数分别是CursorType和LockType，读多写少的列表页固定用3, 1。页数超过总数时要先把page压回PageCount，否则AbsolutePage赋值越界会报错。
第二种是手写SELECT TOP分页，性能好一些，尤其在数据量大、或者数据库换成 SQL Server 之后：
-- 第一页 SELECT TOP 20 id, Title, AddTime FROM News ORDER BY id DESC; -- 第 n 页：先取前 n*20 条，再按 id 升序取 Top 20，最后外层再降序回来 SELECT * FROM ( SELECT TOP 20 * FROM ( SELECT TOP 40 id, Title, AddTime FROM News ORDER BY id DESC ) AS t ORDER BY id ASC ) AS t2 ORDER BY id DESC;这种写法在 Access 里也能跑，只是语法细节略有差异。我一般的判断标准是：列表数据几百条以内，直接 ADO 分页，改起来最省事；上千条或者换 SQL Server，就用手写分页，因为静态游标会把整个结果集拉到内存里，数据一多服务器就喘。
4. 后台与内容链路：登录鉴权、栏目管理与模板替换
前台是给访客看的，后台才是这套站真正的工作量所在。企业站后台的功能其实很集中：登录、栏目管理、内容增删改、单页编辑、留言查看、站点参数配置。把这四条链路搞明白，改造起来就有抓手。
4.1 后台登录与 check.asp：Session 这道门怎么守
老模板的登录逻辑基本长这样：
<% ' admin/login.asp 核心片段 Dim name, pwd, rs name = SafeReq("UserName") pwd = MD5(Trim(Request.Form("Password") & "")) ' md5.asp 里的自定义函数 If name = "" Or pwd = "" Then Response.Write "<script>alert('用户名和密码不能为空');history.back();</script>" Response.End End If Set rs = Conn.Execute("SELECT id,UserName FROM Admin WHERE UserName='" & name & "' AND Pwd='" & pwd & "'") If rs.EOF Then Response.Write "<script>alert('账号或密码错误');history.back();</script>" Response.End End If Session("AdminName") = rs("UserName") Session("AdminID") = rs("id") rs.Close : Set rs = Nothing Response.Redirect "index.asp" %>逻辑说明：密码在数据库里存的是 MD5 值，登录时把用户输入也 MD5 一次再比对。Session("AdminName")就是后面所有后台页面的通行证。
然后每个后台页面顶部都会 include 一个check.asp：
<% ' inc/check.asp —— 后台统一入口校验 If Trim(Session("AdminName") & "") = "" Then Response.Write "<script>top.location.href='login.asp';</script>" Response.End End If %>这里有两个细节值得说。一是Session("AdminName") & ""这个拼接，因为未赋值的 Session 是Empty，直接和空串比较在某些写法下会出问题，加个& ""强转成字符串最保险。二是Response.End不能省，它才是真正中断后续代码执行的那一句，只写Redirect在某些情况下后面的逻辑还会跑完。
还有一类老模板图省事，用 Cookie 存登录状态，那就更容易被伪造。判断标准很简单：打开login.asp，看它写的是Session还是Response.Cookies，如果是后者，直接改掉。
4.2 内容模型：一张主表加一张分类表撑起全站栏目
这类企业站的数据库结构极其精简，通常就四五张表：
-- 栏目表：产品、新闻、案例都靠 ClassType 区分 CREATE TABLE Class ( ID AUTOINCREMENT PRIMARY KEY, ParentID INTEGER, -- 0 表示顶级栏目 ClassName TEXT(50), ClassType INTEGER, -- 1=新闻 2=产品 3=案例 4=单页 OrderID INTEGER ); -- 内容主表：所有类型共用一张表，用 ClassID 关联栏目 CREATE TABLE News ( ID AUTOINCREMENT PRIMARY KEY, ClassID INTEGER, Title TEXT(200), Content MEMO, -- 长文本，产品详情也放这里 PicUrl TEXT(255), -- 产品图 / 新闻缩略图 Hits INTEGER, AddTime DATETIME );逻辑说明：ClassType决定这张内容在前台用哪个模板渲染，ClassID决定它归在哪个栏目下。前台news.asp?cid=3拿到cid，去Class表查出栏目名和类型，再去News表按ClassID捞列表。产品中心其实也是这套逻辑，只是模板不同、多了个PicUrl。
参数说明：MEMO是 Access 的长文本类型，换成 SQL Server 就是NVARCHAR(MAX)。Hits是点击数，详情页每次访问UPDATE News SET Hits=Hits+1。产品如果要多图，得额外加一张NewsPic表，主键关联News.ID，老模板有的做了有的没做。
这个模型的优点是改栏目不用改代码，后台加一个栏目、配个ClassType，前台立刻多一个列表页。缺点是所有内容挤在一张表，数据量上去以后（比如几万条新闻）查询会明显变慢，得给ClassID加索引。
4.3 模板与伪静态：title、keywords 和 Rewrite 规则
企业站的 SEO 需求集中在三件事上：每页有独立的 title 和 keywords、详情页 URL 是静态化的、栏目页有面包屑。前两件靠config.asp加数据库字段就能解决：
<% ' 详情页头部，把标题和关键词替换成当前内容的值 Dim seoTitle, seoKeywords seoTitle = rs("Title") & "_" & SiteName seoKeywords = rs("Title") %> <title><%=seoTitle%></title> <meta name="keywords" content="<%=seoKeywords%>"> <meta name="description" content="<%=CutStr(StripHtml(rs("Content")), 160)%>">逻辑说明：StripHtml是自定义函数，把正文里的标签去掉，否则 description 里会混进一堆<p>。截 160 个字节大约是 80 个汉字，正好卡在搜索引擎摘要的显示长度上。
URL 静态化在虚拟主机上一般靠 ISAPI_Rewrite，规则写在站点的httpd.ini：
[ISAPI_Rewrite] # 新闻详情：/news/123.html 实际请求 newsview.asp?id=123 RewriteRule /news/(\d+)\.html /newsview\.asp\?id=$1 [I,O] # 产品详情 RewriteRule /product/(\d+)\.html /productview\.asp\?id=$1 [I,O] # 栏目列表：/newslist/3.html -> news.asp?cid=3 RewriteRule /newslist/(\d+)\.html /news\.asp\?cid=$1 [I,O]参数说明：(\d+)是捕获组，$1在目标里引用它。末尾的[I,O]分别代表忽略大小写、不改变浏览器地址栏。独立服务器上更推荐用 IIS 官方的 URL Rewrite 模块，规则语法不一样，但映射关系是同一套。
改完伪静态要记得两件事：一是前台所有<a href>都得按新规则改，老模板里通常散落在十几个文件中；二是后台发布内容时要能自动生成这个 URL，一般是拼一个"/news/" & id & ".html"的字符串，别在前台页面里硬编码。
5. 排查手册：IIS 500、乱码、上传失败这些坑怎么定位
老 ASP 站的问题有个共同点：报错信息极其吝啬，页面一白，什么都不告诉你。下面这几条都是我在实际接手时反复遇到的，按“现象 → 原因 → 解决”理顺一遍。
5.1 现象：整站 500，连哪一行出错都不显示
原因：IIS 默认把详细错误页关掉了，浏览器只收到一句“服务器内部错误”。老 ASP 本身的错误信息其实很详细，只是被系统页挡在外面。
解决：先在 IIS 管理器里打开站点的“ASP”配置，把“调试属性 → 将错误发送到浏览器”设为 True，同时把“错误页”功能里的详细错误打开。命令行等价操作是：
# 让 ASP 把错误细节发回浏览器，只在自己调试时开，公网环境必须关掉 & $iis set config "qiye-demo" /section:system.webServer/asp /scriptErrorSentToBrowser:"true" & $iis set config "qiye-demo" /section:system.webServer/httpErrors /errorMode:"Detailed"改完刷新，通常能看到形如Microsoft VBScript 运行时错误 错误 '800a000d' 类型不匹配: 'CLng'的提示，直接定位到文件和行号。查完一定要关回去，把错误细节暴露给公网等于把数据库路径送人。
5.2 现象：中文全变问号或方块
原因：编码在三层上不一致。文件本身存的是 UTF-8 无 BOM，页面头却声明gb2312；或者Response.CharSet没设；或者表单提交和数据库字段编码对不上。
解决：老 ASP 站基本可以统一按 GB2312 走。先确认文件实际编码（用编辑器另存为 ANSI），再在页面顶部补声明：
<%@ Language="VBScript" CodePage="936" %> <% Response.CharSet = "gb2312" %>CodePage="936"告诉 ASP 引擎按简体中文解析脚本，Response.CharSet决定 HTTP 头里的字符集。两个都写上，中文乱码的玄学问题基本能压住九成。剩下那一成是表单提交，Request.Form是按 CodePage 解析的，如果页面声明是 936 但用户从 UTF-8 页面提交过来，还是会乱。
5.3 现象：后台能看不能存，一提交就报错
原因：data/目录没有写权限。Access 不是只读文件，任何一次 INSERT/UPDATE 都要在库文件旁边生成一个.ldb锁文件，目录不可写就生成不了，报的还是个看不懂的“操作必须使用一个可更新的查询”。
解决：按第 2.3 节给IIS_IUSRS加修改权限。另外两个常见诱因：一是杀毒软件把.mdb锁住了，把data目录加进白名单；二是Conn用rs.Open sql, Conn, 1, 1打开（只进只读游标），改成1, 3（键集游标、乐观锁）才能更新。
5.4 现象：图片上传卡住，或提示“组件未安装”
原因：这套模板的上传要么依赖第三方 COM 组件（服务器上根本没注册），要么用的是无组件上传类，但 IIS 的请求体大小限制把它拦了。默认 ASP 的请求上限是 200KB，现在随便一张手机照片都超。
解决：先看upload.asp顶部是Server.CreateObject("..."）调组件还是 include 了一个upload_class.asp。前者要regsvr32注册对应的 dll，后者只需调 IIS 限制：
# 把 ASP 请求实体上限提到 20MB，同时放开 IIS 的请求筛选 & $iis set config "qiye-demo" /section:system.webServer/asp /limits.maxRequestEntityAllowed:"20971520" & $iis set config "qiye-demo" /section:system.webServer/security/requestFiltering /requestLimits.maxAllowedContentLength:"20971520"两个数值必须同时改，只改一个还是会卡在另一个限制上。
5.5 现象：留言板一夜之间几百条带外链的垃圾内容
原因：留言提交页没有任何频率限制，也没有内容过滤，message.asp直接把Request.Form的内容拼进 SQL 落库。这类页面被自动化工具扫到，半天就能灌满。
解决：短期先在提交前加一层服务端校验和关键词过滤，再给表单配一个简单的算术验证码（老模板一般自带code.asp生成干扰图，直接启用即可）；长期看，这类站如果必须放公网，留言表应该加IP和AddTime字段，同 IP 一分钟只允许提交一次。
6. 二次开发：把老站改成能交付的活儿
这套 v1.1 的模板直接交付是不行的，我一般按“先堵洞、再顺手、后加功能”的顺序改，改完用固定几条路径自测，跑通了才敢上传。
| 优先级 | 改造点 | 落点文件 | 验证方法 |
|---|---|---|---|
| P0 | 后台目录改名、默认密码强制修改 | admin/、Admin表 | 用旧路径访问应返回 404 |
| P0 | 全站过滤改成参数化查询 | inc/function.asp及各列表页 | 构造' OR 1=1--应返回空 |
| P1 | 关闭 ASP 详细错误、隐藏inc/ | IIS 配置 | 访问/inc/conn.asp应 403 |
| P1 | 上传目录禁执行、限制扩展名 | upload.asp | 传.asp文件应被拒绝 |
| P2 | 详情页标题、面包屑补全 | newsview.asp | 查看源码确认 title 唯一 |
最值得花时间的是参数化查询那一项。老模板里全是字符串拼接，一个个改页面太慢，我的做法是把inc/function.asp里的取参函数换掉，同时在关键查询处直接用ADODB.Command：
<% ' 用 Command 对象做参数化，彻底绕开单引号拼接 Dim cmd, rs2, cid cid = CLng(SafeReq("cid")) Set cmd = Server.CreateObject("ADODB.Command") Set cmd.ActiveConnection = Conn cmd.CommandText = "SELECT id,Title,AddTime FROM News WHERE ClassID = ? ORDER BY id DESC" ' 3 = adInteger，1 = adParamInput，4 = 字段长度 cmd.Parameters.Append cmd.CreateParameter("cid", 3, 1, 4, cid) Set rs2 = cmd.Execute %>参数说明：CreateParameter的四个参数依次是名称、数据类型、方向、长度，最后那个才是真正的值。adInteger对应 3，字符串用 200（adVarWChar）。这套写法在 Access 和 SQL Server 上都能跑，改数据库不用改代码。
改完一定要用真实数据验一遍：后台发一条带单引号、带<script>的新闻标题，前台看它是否原样显示而不是被执行；再传一张 5MB 的图，看上传是否还卡在 200KB；最后用手机 4G 打开首页，确认伪静态的链接不是死链。
血泪经验是：这类站的坑不在功能多，而在“你以为改完了”。我现在的习惯是改完必做三件事——清空浏览器缓存、换一个浏览器、用无痕窗口再点一遍后台菜单。很多问题只在 Session 残留或者旧 Cookie 下才暴露，后悔药是没有的，只能靠多走一遍。希望这套拆解能帮到你，拿到压缩包之后少走几个弯路。
本文还有配套的精品资源，点击获取
