简介：面向计算机专业学生、课程设计或毕业设计开发者以及K12信息化教学人员的ASP网上作业提交系统学习材料，围绕ASP+ACCESS技术构建Web端作业提交与网络课程学习平台，重点涉及模块导航、知识点检索导航、知识点关联导航、帮助导航和后台数据库设计等实现内容。压缩包约732KB，资源页文件总数与具体类型明细暂未给出，从描述可知包含开发背景、系统分析、数据库设计、系统设计与实现等文档性内容，并以C语言知识点为实例说明自适应导航的组织方式。已有74人学习，适合用作ASP动态网页、ACCESS数据库和Web教育系统课程设计的参考，帮助读者梳理功能模块、知识点关联、数据表结构与系统实现思路，进而拆解自己的作业提交或在线学习系统方案。

1. 一个 K12 班级的真实痛点，被这套 ASP 网上作业提交系统干掉了

每天放学后，某培训机构的教务老师最头疼的不是排课，是收作业：微信群里的文件接龙能刷几十屏，谁交了谁没交，全靠一条条往上翻聊天记录，第二天还得手动点名催。换成本地局域网里跑的这套 ASP 网上作业提交系统之后，作业发布、学生上传、教师批改、成绩回写全在一个浏览器页面里完成，数据落到后台的 Access 或 SQL Server 数据库，课程资源的下载记录也能一并挂上去。它适合的场景很明确：预算有限、服务器就是一台 Windows 机器、需要一套能立刻用起来的 K12 作业流转后台。技术栈是经典 ASP + VBScript + IIS + ADO，年纪不小但胜在改动成本低，一个会写 SQL 和简单脚本的老师都能看懂逻辑，这也是它至今还在不少机构里服役的原因。

2. 骨架拆解：从 IIS 站点到七张数据表的完整映射

这套系统是典型的「三层同层」结构——页面、业务逻辑、数据访问全在 .asp 文件里，没有框架，没有编译，改完文件刷新浏览器就生效。听起来土，但对二次开发其实是好事：你不需要理解任何依赖注入、路由分发、ORM 映射，打开文件从第一行读到最后一行，整条链路就摊在眼前。要读懂它，先看两样东西：文件怎么分类，表怎么设计。

2.1 目录结构：每个文件夹管一件事

这类系统的目录组织有个共同套路，按角色和功能竖向切分，公共代码横向复用。常见做法是下面这种骨架：

这个划分的价值在于，/inc/check.asp是所有页面的咽喉，任何权限相关的改动只要动这一个文件就能全局生效。我一般接手这类项目，第一件事是把check.asp和conn.asp打印出来贴在旁边，后面看任何页面都能对上号。需要注意的是/upload/和/data/是两个高危目录：前者必须给 IIS 匿名账号写权限，后者必须禁止浏览器直接下载，否则数据库文件被人直接拿走，等于整站账号密码全泄。

2.2 数据表设计：作业从发布到批改要落几张表

作业的完整生命周期是「教师发布 → 学生看到 → 学生提交 → 教师批改 → 成绩入库」，围绕这条链路，系统最少需要这几张核心表。下面是 SQL Server 写法，Access 里把IDENTITY(1,1)换成「自动编号」、NVARCHAR换成「文本」即可：

-- 用户表：三种角色共表，用 role 区分 CREATE TABLE users ( id INT IDENTITY(1,1) PRIMARY KEY, username NVARCHAR(50) NOT NULL, password NVARCHAR(50) NOT NULL, -- 早期项目多为 MD5，见后文提醒 realname NVARCHAR(50), role NVARCHAR(10) NOT NULL, -- admin / teacher / student classid INT, -- 学生所属班级 status INT DEFAULT 1, -- 1 启用 0 停用 addtime DATETIME DEFAULT GETDATE() ); -- 作业主表：一条记录 = 一次作业布置 CREATE TABLE homeworks ( id INT IDENTITY(1,1) PRIMARY KEY, courseid INT NOT NULL, title NVARCHAR(200) NOT NULL, content NTEXT, -- 作业要求，可含 HTML attachpath NVARCHAR(300), -- 教师附件（题目文档） teacherid INT NOT NULL, classid INT NOT NULL, deadline DATETIME, -- 截止时间，超时拒收 addtime DATETIME DEFAULT GETDATE() ); -- 提交表：一条记录 = 一个学生对一次作业的一次提交 CREATE TABLE submits ( id INT IDENTITY(1,1) PRIMARY KEY, homeworkid INT NOT NULL, studentid INT NOT NULL, filename NVARCHAR(200), filepath NVARCHAR(300), filesize INT, -- 字节数，用于限制与展示 content NTEXT, -- 纯文本作答（可选） submitdate DATETIME DEFAULT GETDATE(), score DECIMAL(5,1), -- 允许 0.5 分 comment NTEXT, -- 教师评语 checkstatus INT DEFAULT 0 -- 0 未批改 1 已批改 ); -- 课程资源表：K12 场景里的课件、试卷、微课视频都挂这里 CREATE TABLE resources ( id INT IDENTITY(1,1) PRIMARY KEY, courseid INT NOT NULL, title NVARCHAR(200), filepath NVARCHAR(300), filesize INT, uploaderid INT, downloadcount INT DEFAULT 0, addtime DATETIME DEFAULT GETDATE() );

submits表上的(homeworkid, studentid)组合是最关键的查询条件，学生端「我的作业」列表、教师端「已交/未交名单」全部围绕它展开，建议加一个复合索引，学生数量上百以后翻页会明显顺滑。score用DECIMAL(5,1)而不是INT，是因为 K12 场景里 0.5 分的半分制很常见，早期版本用整型存储，教师打个 89.5 会被截成 89，这个坑我在两个项目里都遇到过。

2.3 权限模型：三种角色怎么在代码里分层

系统没有复杂的权限表，角色判断就写在 Session 里。管理员看全站，教师看自己带的课程和班级，学生只看自己班。拦截逻辑分两层：第一层是check.asp判断「有没有登录」，第二层是具体页面判断「这个角色能不能进」。

<% ' /inc/check.asp —— 所有业务页面第一行就 include 这个文件 Dim curUid, curRole, curName curUid = Session("uid") curRole = Session("role") curName = Session("realname") If curUid = "" Or IsNull(curUid) Then Response.Write "<script>alert('登录已过期，请重新登录');" Response.Write "location.href='/login.asp';</script>" Response.End End If ' 可选：把当前访问的页面路径带回去，登录后跳回来 Dim backUrl backUrl = Request.ServerVariables("URL") %>

逻辑说明：Response.End是这里的关键，它不只是结束输出，而是直接终止脚本执行，防止后面的业务代码在未登录状态下继续跑。很多人图省事只写Response.Redirect，页面确实跳走了，但服务端逻辑已经执行完，像删除、批改这类写操作依然会生效，属于典型的「看起来拦住了其实没拦」。

参数说明：Session("uid")在login.asp验证成功后写入，Session("role")存字符串。会话默认 20 分钟过期，Session.Timeout可以在Global.asa或conn.asp里调大，K12 场景里学生交作业前喜欢开着页面慢慢找文件，调成 60 分钟比较稳妥。

各页面再按需做二次判断，比如教师端头部写上：

<% If curRole <> "teacher" And curRole <> "admin" Then Response.Write "<script>alert('无权访问');history.back();</script>" Response.End End If %>

这套写法简陋但有效，代价是每个页面都要复制一遍，改角色规则时必须全站搜。二次开发时我建议把角色判断抽成Sub RequireRole(roleStr)放进function.asp，页面里一行调用，后面加「助教」「年级组长」这类新角色才不会漏改。

3. 部署实操：Windows + IIS + Access 三步跑通首页

老 ASP 项目最常见的翻车不是代码报错，是环境没配对——本机装了 IIS，页面上却直接给你一段 500 错误或者一片空白。这一章按「环境 → 连接 → 验证」的顺序走，每一步都给出失败时的判断依据。

3.1 环境准备：开 IIS、勾经典 ASP、开 32 位

系统跑在 Windows Server 或 Windows 10/11 上，用 IIS 承载。经典 ASP 在较新的 Windows 里默认不装，需要在「启用或关闭 Windows 功能」里手动勾选：Internet Information Services → 万维网服务 → 应用程序开发功能 → ASP。命令行更快：

# 管理员权限的 PowerShell / CMD 中执行，一次性打开 IIS 与经典 ASP dism /online /enable-feature /featurename:IIS-WebServerRole /all /norestart dism /online /enable-feature /featurename:IIS-ASP /all /norestart dism /online /enable-feature /featurename:IIS-ISAPIExtensions /all /norestart dism /online /enable-feature /featurename:IIS-ASPNET45 /all /norestart

命令参数里/all表示连带启用父级功能，/norestart是先不重启，等全部装完再一起重启机器。装完之后打开 IIS 管理器，确认「ASP」图标出现在站点主页的功能视图里，点进去把「启用父路径」设为 True——这一项必须开，因为系统大量使用<!--#include file="../inc/conn.asp"-->这种相对引用，父路径关闭时 include 会静默失败。

接着建应用程序池，.NET CLR 版本选「无托管代码」（经典 ASP 不需要 .NET），管道模式用「经典」或「集成」都能跑，但在 64 位系统上必须把「启用 32 位应用程序」设为 True。原因是 Access 的 Jet 驱动只有 32 位版本，64 位进程里Microsoft.Jet.OLEDB.4.0根本加载不出来，报错信息是0x80004005 未指定的错误，很难一眼看出根因。如果一定要在 64 位下跑，就得换成Microsoft.ACE.OLEDB.12.0并安装对应的 Access Database Engine，两个方案我都用过，小项目直接开 32 位最省事。

站点根目录指向项目文件夹，/upload/和/data/右键属性 → 安全 → 给IIS_IUSRS（或匿名身份验证使用的账号）加「修改」权限。只给「读取」的话，上传功能会报权限拒绝，但页面上往往只是一句含糊的「上传失败」，这也是后面排查章节要专门讲的一个点。

3.2 连接串与数据库初始化

数据访问统一收在/inc/conn.asp，全站只此一处。Access 版本长这样：

<% ' /inc/conn.asp —— 全站唯一的数据库入口 Dim conn, connStr, dbPath dbPath = Server.MapPath("/data/homework.mdb") ' Jet 驱动，必须在 32 位应用程序池下使用 connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbPath & ";" Set conn = Server.CreateObject("ADODB.Connection") conn.Open connStr conn.CommandTimeout = 30 ' 统一编码，避免中文写成问号 Response.Charset = "gb2312" Session.CodePage = 936 %>

逻辑说明：Server.MapPath把站点相对路径转成服务器物理路径，这样整个项目拷到别的盘符也不用改配置。Response.Charset = "gb2312"和Session.CodePage = 936这两行看着无关紧要，实际决定了所有中文输出是否正常——漏写时页面标题是中文、正文变乱码的情况很常见，因为 ASP 默认按 UTF-8 输出，而文件本身是 GB2312 保存的。

如果用的是 SQL Server，把连接串换成下面这种，并在data/里放一份建表脚本先行执行：

connStr = "Provider=SQLOLEDB.1;Data Source=127.0.0.1;Initial Catalog=homework;" & _ "User ID=sa;Password=改成你自己的;"

参数说明：Initial Catalog是数据库名，User ID建议不要用 sa，建一个只有该库读写权限的账号更稳。用 Access 的话，.mdb文件放在/data/下，务必在 IIS 里对该目录加一条「请求筛选」规则，拒绝.mdb、.accdb后缀的 HTTP 请求，否则别人敲http://站点/data/homework.mdb就能把整个库拖走。IIS 10 默认会拦.config和.mdb吗？不一定，我见过直接能下载的线上站点，这个必须自己确认一遍。

3.3 首次登录与冒烟验证清单

数据库文件里通常已经带了初始账号，常见的是admin / admin或admin / 123456，密码字段多半是 MD5。登录页在/login.asp，三条 SQL 通道分别对应三种角色，登录成功后写入 Session 并跳转到各自目录。

跑通之后别急着交付，按这份清单过一遍，任何一条不通都说明部署有残留问题：

「截止时间」这一项最容易被忽略，有些版本只在列表页做了展示过滤，后端submit.asp里没有二次校验，学生把表单页留着不关，过了截止时间照样能提交成功。验证方法就是手动改数据库里的deadline再点提交，看服务端是否真的拦住了。

4. 核心链路：登录、发布、上传、评分四段代码逐行拆

真正决定这套系统好不好用的，是四段代码：登录怎么写、作业怎么发、文件怎么落盘、分数怎么回写。把这四段吃透，剩下的页面都是它们的变体。

4.1 登录鉴权：Session 会话与角色拦截

登录页的逻辑是「取表单 → 查库 → 比对密码 → 写 Session → 按角色跳转」。早期项目直接在 SQL 里拼字符串，注入风险极大，改造时至少要过一遍过滤函数。

<% ' /login.asp 核心片段 Dim username, password, rs, sql username = Trim(Request.Form("username")) password = Trim(Request.Form("password")) If username = "" Or password = "" Then Response.Write "<script>alert('账号密码不能为空');history.back();</script>" Response.End End If ' 基础防注入：单引号翻倍，再过滤分号与注释符 username = Replace(username, "'", "''") username = Replace(username, ";", "") username = Replace(username, "--", "") password = Replace(password, "'", "''") sql = "SELECT id, username, realname, role, status FROM users " & _ "WHERE username='" & username & "' AND password='" & MD5(password) & "'" Set rs = conn.Execute(sql) If rs.EOF Then Response.Write "<script>alert('账号或密码错误');history.back();</script>" Response.End End If If rs("status") = 0 Then Response.Write "<script>alert('账号已被停用，请联系管理员');history.back();</script>" Response.End End If Session("uid") = rs("id") Session("role") = rs("role") Session("realname") = rs("realname") Session.Timeout = 60 Select Case rs("role") Case "admin" : Response.Redirect "/admin/index.asp" Case "teacher" : Response.Redirect "/teacher/index.asp" Case Else : Response.Redirect "/student/index.asp" End Select %>

逻辑说明：先判空再过滤，顺序不能反，Replace(Null, ...)在某些驱动下会抛异常。密码比对放在 SQL 的WHERE里，意味着传进去的是明文密码的 MD5 值，这一步在服务端完成，比查出来再在 ASP 里比对要快，但也意味着一旦 SQL 被注入，攻击者可以直接构造恒真条件绕过。所以上面的三个Replace不是可选项。

参数说明：Session.Timeout = 60单位是分钟，写成 60 之后会话在 1 小时无操作后失效。MD5()是项目里function.asp中自定义的函数，用System.Security.Cryptography通过 COM 调用实现，也有项目直接用 VBScript 手写 MD5，速度慢但零依赖。这里有个现实问题：MD5 加盐缺失，彩虹表一撞就出，二次开发时如果涉及对外网开放，建议至少加一列 salt 并在登录时改成MD5(password & salt)。

4.2 作业发布：截止时间、表单校验和防注入

发布页是教师端使用频率最高的页面，字段多、校验多，也是最容易出现「提交成功但数据不对」的地方。核心在于时间字段的解析和班级、课程的一致性校验。

<% ' /teacher/homework_add.asp 核心片段 Dim title, content, courseid, classid, deadline, attachPath title = Trim(Request.Form("title")) content = Trim(Request.Form("content")) courseid = Request.Form("courseid") classid = Request.Form("classid") deadline = Trim(Request.Form("deadline")) ' 格式 2025-06-30 23:59 If title = "" Or courseid = "" Or classid = "" Then Response.Write "<script>alert('标题、课程、班级为必填');history.back();</script>" Response.End End If ' 截止时间必须晚于当前时间，防止误填成历史日期 If deadline <> "" Then If Not IsDate(deadline) Then Response.Write "<script>alert('截止时间格式不正确');history.back();</script>" Response.End End If If CDate(deadline) <= Now() Then Response.Write "<script>alert('截止时间不能早于当前时间');history.back();</script>" Response.End End If End If content = Replace(content, "'", "''") Dim sql sql = "INSERT INTO homeworks(courseid, title, content, attachpath, teacherid, classid, deadline) " & _ "VALUES(" & CLng(courseid) & ", '" & title & "', '" & content & "', '" & attachPath & "', " & _ Session("uid") & ", " & CLng(classid) & ", " & _ IIf(deadline = "", "NULL", "#" & deadline & "#") & ")" conn.Execute(sql) Response.Redirect "homework_list.asp?msg=addok" %>

逻辑说明：IsDate先判格式再判大小，两步不能合并，因为CDate("abc")会直接抛类型不匹配错误，页面上就是一片 500。CLng()包住课程和班级 ID，是为了防止有人手工改表单提交非数字，拼进 SQL 后语法报错。Access 的日期字面量要用#...#包裹，SQL Server 用'...'，两者在这行上不通用，改数据库时这里是必改点之一。

参数说明：attachPath来自上一段上传逻辑的返回值，只有教师上传了题目附件才有值，为空时写NULL而不是空字符串，后面下载页判断IsNull才不会出错。teacherid直接取 Session，绝不要从表单隐藏域取值——隐藏域是可以被改的，改了就能以别人的名义发作业。

发布成功后跳转列表页并带上msg=addok，列表页顶部据此显示提示条，这是老项目里最常见的「操作反馈」做法，比 Session 闪存简单，缺点是刷新页面提示会重复出现，影响不大。

4.3 文件上传：Request.BinaryRead 拆包落盘的完整过程

这是整套系统里技术含量最高的一段，也是新手最容易照抄出错的地方。经典 ASP 没有内置上传控件，常见做法是引入第三方组件（如 Persits.Upload），或者用Request.BinaryRead+ADODB.Stream自己拆 multipart 包。后者零依赖，拷到任何机器都能跑，我一般优先选它。

<% ' /student/upload_save.asp —— 无组件上传核心 Const MAX_SIZE = 20 * 1024 * 1024 ' 单文件 20MB 上限 Dim totalBytes, binData totalBytes = Request.TotalBytes If totalBytes <= 0 Then Response.Write "<script>alert('没有接收到文件');history.back();</script>" Response.End End If If totalBytes > MAX_SIZE Then Response.Write "<script>alert('文件超过 20MB，请压缩后再传');history.back();</script>" Response.End End If binData = Request.BinaryRead(totalBytes) ' 关键：从二进制流中截出文件正文，去掉 multipart 头尾 Dim startPos, endPos, fileBytes, fileName, saveName, savePath startPos = InStrB(binData, ChrB(13) & ChrB(10) & ChrB(13) & ChrB(10)) + 4 endPos = InStrB(startPos, binData, ChrB(13) & ChrB(10) & ChrB(45) & ChrB(45)) If startPos <= 4 Or endPos <= startPos Then Response.Write "<script>alert('文件解析失败，请重试');history.back();</script>" Response.End End If fileBytes = MidB(binData, startPos, endPos - startPos) ' 生成不重复的落盘文件名，避免中文与重名问题 saveName = Year(Now()) & Month(Now()) & Day(Now()) & "_" & _ Hour(Now()) & Minute(Now()) & Second(Now()) & "_" & Session("uid") & ".dat" savePath = Server.MapPath("/upload/") & "\" & saveName Dim bs Set bs = Server.CreateObject("ADODB.Stream") bs.Type = 1 ' 1 = 二进制 bs.Open bs.Write fileBytes bs.SaveToFile savePath, 2 ' 2 = 覆盖写入 bs.Close Set bs = Nothing ' 原始文件名单独从表单头里取，用于展示 fileName = GetUploadFileName(binData) %>

逻辑说明：Request.BinaryRead拿到的是整个 multipart 请求体，里面混杂着分隔符、字段名、文件名、Content-Type 和真正的文件字节。InStrB按字节查找，第一次定位到头部结束的CRLF CRLF，往后 4 字节就是文件内容的起点；第二次从起点往后找CRLF--，也就是结束分隔符的前半段，两者之间就是纯文件数据。这个切法对单文件表单够用，多文件需要循环切分。

参数说明：ChrB(13)是回车、ChrB(10)是换行，ChrB(45)是短横线。MAX_SIZE是业务层限制，实际还要配合 IIS 的请求体上限一起调，只改一边没用。saveName用时间戳 + 用户 ID，而不是原始文件名，理由是中文文件名在不同浏览器、不同服务器区域设置下乱码概率极高，落盘用 ASCII 名，展示时再用原文件名，两边都省心。

原文件名的提取要单独写一个函数，从头部里找filename="到下一个引号之间的内容，注意有些浏览器会带完整路径（如C:\Users\x\作业.docx），需要用InStrRev取最后一个反斜杠之后的部分。上传成功后把saveName、原始文件名、字节数写进submits表，页面只展示原名，下载时用Response.AddHeader "Content-Disposition", "attachment; filename=" & Server.URLEncode(原名)让浏览器还原。

4.4 批改打分：分数校验、评语与成绩回写

批改页是教师端的收口环节，逻辑不复杂，但输入校验必须严。分数超范围、评语含引号导致 SQL 报错，是这类页面最高频的两个线上问题。

<% ' /teacher/score_save.asp 核心片段 Dim sid, score, comment, hwid sid = CLng(Request.Form("sid")) score = Trim(Request.Form("score")) comment = Trim(Request.Form("comment")) ' 分数必须为数字且在 0-100 之间，允许一位小数 If score = "" Or Not IsNumeric(score) Then Response.Write "<script>alert('分数必须是数字');history.back();</script>" Response.End End If If CDbl(score) < 0 Or CDbl(score) > 100 Then Response.Write "<script>alert('分数必须在 0-100 之间');history.back();</script>" Response.End End If comment = Replace(comment, "'", "''") Dim sql sql = "UPDATE submits SET score=" & CDbl(score) & ", " & _ "comment='" & comment & "', checkstatus=1 " & _ "WHERE id=" & sid conn.Execute(sql) ' 回写完成后回到未批改列表，方便连续批 Response.Redirect "score_list.asp?status=0&msg=ok" %>

逻辑说明：IsNumeric判断和范围判断分两步写，是因为IsNumeric("abc")返回 False、IsNumeric("1e5")返回 True，后者虽然合法但明显不该当分数，加一层范围限制刚好能兜住。checkstatus=1是批改完成标记，列表页靠它筛选「待批改」，漏写这一列会导致教师永远看到同样的待办。

参数说明：CDbl(score)而不是CLng，是为了保留 0.5 分；如果数据库字段是DECIMAL(5,1)，传整数也能自动补齐。sid用CLng包一层，遇到空值时直接报错中止，比把WHERE id=拼成空值、误更新全表安全得多——这个坑我在早期项目里真踩过，一条UPDATE少了条件，把全班成绩刷成同一个分数，只能翻备份。

批改完通常还要一个「导出成绩」功能，用SELECT ... ORDER BY classid, studentid查出数据后逐行拼 CSV，注意开头写 BOM，否则 Excel 打开中文全是乱码。

5. 排查手册：这套 ASP 老栈最容易翻车的五个点

老技术栈的报错信息普遍含糊，0x80004005能对应十几种原因。下面这五条是部署和改代码时遇到频率最高的，每条按「现象 → 原因 → 解决」写，下次遇到直接对号入座。

5.1 环境与权限类：启动就报错的三件事

现象一：上传大文件提示「无法显示此页」或直接 404.13。原因不在代码，在 IIS 的请求体上限：经典 ASP 的AspMaxRequestEntityAllowed默认只有 200KB，超过这个值请求在进入 ASP 引擎之前就被拒了，页面上根本看不到自定义提示。解决分两步，先在 IIS 管理器的 ASP 配置里把「最大请求实体主体限制」调到20971520（20MB），再检查web.config里requestLimits maxAllowedContentLength是否也同步调大，两者是两道独立闸门，只开一道依然会被拦。

现象二：数据库连接报0x80004005 未指定的错误，但同样的连接串在另一台机器正常。十有八九是应用程序池的位数问题。系统装的是 64 位 Windows，应用程序池默认以 64 位运行，而Microsoft.Jet.OLEDB.4.0只有 32 位版本，加载必然失败。解决办法是把该池的「启用 32 位应用程序」设为 True，回收池后重试。如果服务器上还有其他 64 位应用，不要改默认池，给这个站点单独建一个池。

现象三：上传提示成功，但/upload/目录里没有文件。原因通常是目录权限不足。IIS 的匿名身份验证使用IUSR账号，只给「读取」权限时SaveToFile会抛权限拒绝，而错误又被On Error Resume Next吞掉，页面就只显示一句「上传失败」。解决是给/upload/加IUSR和IIS_IUSRS的「修改」权限，同时把upload_save.asp里那句On Error Resume Next临时注释掉，让真实错误暴露出来再定位。

5.2 数据与编码类：数据看着不对劲的两个坑

现象四：学生提交成功，教师端列表里中文标题全是问号。原因是编码链路某一段断了。这个系统的中文能正常显示，需要三处同时成立：conn.asp里Session.CodePage = 936、每个页面头部Response.Charset = "gb2312"、以及 .asp 文件本身用 ANSI/GB2312 保存。新同事用 VS Code 默认 UTF-8 改了一个文件，保存后这个页面就开始乱码，其他页面正常，所以特别难找。解决是统一用记事本或 VS Code 的「GB2312 编码」另存，或者整体迁移到 UTF-8 并在每页加CodePage = 65001，但迁移工作量不小，小改动用前一种。

现象五：改了密码，登录还是提示错误；或者查出来的记录比预期少。先怀疑 SQL 拼接。学生在作业标题里输入了英文单引号（比如Don't stop），拼接后 SQL 变成'Don't stop'，语法错误被On Error Resume Next吞掉，插入直接失败但页面提示成功。另一类是同名过滤：SELECT * FROM submits WHERE homeworkid=1忘了带studentid，教师端看到的是全班记录，误以为数据错乱。解决是把所有接收表单值的地方统一过一遍Replace(str, "'", "''")，并且在Execute之后检查conn.Errors.Count，出错时把 SQL 打到日志文件而不是静默吞掉。

提示：老项目里On Error Resume Next用得极多，排查问题时先在目标页面顶部把它注释掉，让错误暴露出来，定位完再恢复。这是这套代码最实用的一个调试技巧。

6. 二次开发：给系统补上课程资源库与提交查重

这套系统的底子够用，但两个功能几乎是所有 K12 机构接手后都会提的：一是课程资源没地方放，课件、试卷散在教师电脑里；二是学生互相抄，教师改到第三份雷同作业才发现。前者加一张表和一个下载页就能解决，后者用一点字符指纹的思路就能做出提示。

6.1 加一张资源表和一个下载计数

数据库里已经有resources表的建表语句，落地时补两个页面即可：/teacher/resource_add.asp负责上传（复用 4.3 的上传逻辑，把保存目录改成/upload/res/），/student/resource_list.asp负责按课程列出。下载页不要直接给文件路径，走一个中间页做计数和权限校验：

<% ' /download.asp?id=12&type=res Dim rid, rs, sql, realPath rid = CLng(Request("id")) ' 登录校验已由 check.asp 完成 sql = "SELECT filepath, title, downloadcount FROM resources WHERE id=" & rid Set rs = conn.Execute(sql) If rs.EOF Then Response.Write "<script>alert('资源不存在');history.back();</script>" Response.End End If ' 先计数再输出，避免下载中断导致计数丢失 conn.Execute "UPDATE resources SET downloadcount=downloadcount+1 WHERE id=" & rid realPath = Server.MapPath("/upload/res/") & "\" & rs("filepath") If Not FileExists(realPath) Then Response.Write "<script>alert('文件已丢失，请联系管理员');history.back();</script>" Response.End End If %>

这里有个细节值得说：FileExists判断不能省。文件被误删或迁移后，数据库记录还在，直接给浏览器一个不存在的路径，用户看到的是 404 页面，体验很差。

6.2 提交查重：用字符指纹给作业做个「后悔药」

查重的目标不是做到论文级精度，而是在学生提交的瞬间提示「本班已有相似度较高的提交」。改造思路是：提交成功前，取本次文本内容去掉空格和标点，计算一个 32 位指纹；再取同一次作业下其他学生的文本，逐个比对指纹重合度。

具体实现放在submit_save.asp里，插入submits之前跑一遍：

<% ' 简化版指纹：按 3 字符滑窗取片段，存入字典 Function Fingerprint(txt) Dim d, i, seg Set d = Server.CreateObject("Scripting.Dictionary") txt = LCase(Replace(Replace(Replace(txt, " ", ""), Chr(10), ""), Chr(13), "")) For i = 1 To Len(txt) - 2 seg = Mid(txt, i, 3) If Not d.Exists(seg) Then d.Add seg, 1 Next Set Fingerprint = d End Function Function Similarity(a, b) Dim k, inter, uni inter = 0 : uni = 0 For Each k In a.Keys If b.Exists(k) Then inter = inter + 1 Next uni = a.Count + b.Count - inter If uni = 0 Then Similarity = 0 Else Similarity = inter / uni End Function %>

用法是在插入前查同作业同班级的已提交文本，逐个算Similarity，取最大值超过 0.6 就在页面上给出提示并记录一条suspect日志，学生可以选择「修改后重交」或「确认提交」。不阻断是有意为之——K12 场景里答案雷同有时是因为题目本身只有一种解法，硬拦会制造大量投诉。

6.3 改造后的验证清单

改完先别急着上线，按这份清单过一遍：

最后一条要重点测。指纹计算在 VBScript 里跑得并不快，50 份 500 字的文本两两比对会有明显延迟，我一般会把「已提交指纹」缓存在 Application 对象里，按作业 ID 分键，作业批改完成后清理，代价是多进程部署时要处理同步，但小规模场景够用。

改这套系统的过程中，我最深的一个教训是别信「提示成功」这四个字。老代码里On Error Resume Next泛滥，插入失败、上传失败、更新零行，页面上统统显示成功，等你三天后发现数据不对，已经没法追溯。从那以后我每接一个老 ASP 项目，改完任何一段写库逻辑，都会先在Execute后面加一句If conn.Errors.Count > 0 Then Response.Write sql手动验证一遍，再删掉。这份源码包里的数据库文件和页面结构都完整，拿过去按第 3 章部署一遍，再挑 6.1 或 6.2 中的一个改造练手，基本就能摸清它的脾气了。希望帮到你。

本文还有配套的精品资源，点击获取