企业官网建设流程全解析

简介：这是一份面向计算机及相关专业学生与Web开发初学者的课程设计级参考资料，围绕基于ASP与ACCESS的网络课程学习与作业提交系统展开，可用于毕业设计选题、课程作业参考，或中小型教学平台的搭建练习。压缩包约732KB，文件清单与类型明细暂未提供，需下载后自行查看；从描述看，应包含系统分析、数据库设计与功能实现相关文档及源码素材。目前已有74人学习。内容覆盖自适应网络课程学习导航的整体设计思路，具体包含模块导航、知识点检索导航、知识点关联导航与帮助导航四类功能，并以C语言知识点为实例，演示动态关联与检索的实现方式。读者可据此理解ASP的数据库访问机制、表结构设计以及各导航模块之间的协作关系，也能对照自身课题，梳理从需求分析到系统实现的完整流程，适合作为入门级Web信息系统的参考蓝本。

1. 一套还在跑的 ASP 网上作业提交系统，为什么值得重新翻出来

去年帮一间 K12 教学点收拾机房，他们的作业收法还停留在“学生把 Word 传到班级群，老师一个个下下来改名字”。问题不在于旧，而在于不可追溯：谁是第几个交的、有没有迟交、改完的分数回没回到学生手里，全靠老师的记性。这套 ASP 网上作业提交系统的价值就在这里——它跑在一台装了 IIS 的 Windows Server 上，后端只有一个 Access 数据库文件，不需要 Node、不需要 Python 环境、不需要额外预算，学生开机房浏览器就能在校园网络里把作业交上来，教师端能按课程资源目录逐份批阅、回写分数。它适合的是那种预算紧、管理员只有半个人、但又确实需要一个可查记录的提交入口的场景。

2. 数据库与目录结构：决定这套系统能撑多久的底层

先把底层定死，后面的提交、批阅、导出都是在这上面加壳。Classic ASP 这类系统最容易死在两件事上：表结构一开始没想清楚，以及数据库文件被放在 Web 根目录里等着被人下载。

2.1 五张表定骨架：作业、提交、成绩的字段怎么切

一份最小可用的作业系统，表不用多，五张足够：班级、学生、课程、作业、提交记录。关键不是表数量，是提交记录表承担了全部业务状态，提交时间、是否迟交、分数、评语、批阅状态都压在这一张表上，所以它的字段设计决定了后面所有页面的写法。

下面这段是作业主表和提交记录表的建表语句，Access 里直接在查询设计器切到 SQL 视图执行即可：

-- 作业主表：一份作业一条记录，Deadline 是判定迟交的唯一依据 CREATE TABLE T_Homework ( HomeworkID AUTOINCREMENT PRIMARY KEY, CourseID INTEGER NOT NULL, Title VARCHAR(100) NOT NULL, Content MEMO, Deadline DATETIME NOT NULL, MaxScore INTEGER, CreateTime DATETIME ); -- 提交记录表：一个学生 + 一份作业 = 最多一条有效记录 CREATE TABLE T_Submit ( SubmitID AUTOINCREMENT PRIMARY KEY, HomeworkID INTEGER NOT NULL, StudentID INTEGER NOT NULL, FileName VARCHAR(255), -- 学生看到的原始文件名，含中文 StoreName VARCHAR(80), -- 磁盘上的实际文件名，随机生成 FileSize LONG, SubmitTime DATETIME, IsLate BIT, Score INTEGER, Comment MEMO, Status INTEGER -- 0 待批阅 1 已批阅 2 已打回 ); -- 这条唯一索引是整个设计的地基：防止重复提交堆成一串垃圾记录 CREATE UNIQUE INDEX idx_submit_uniq ON T_Submit (HomeworkID, StudentID);

逻辑说明：FileName和StoreName必须分开。学生上传的文件名里大概率带中文、空格、括号，直接拿它当磁盘文件名，一旦遇到 IIS 的编码转换就会翻车。常见做法是磁盘上存学生ID_时间戳_随机数这样的纯 ASCII 名，原始文件名只作为字段存进数据库，下载时再用Content-Disposition还原给浏览器。

参数说明：MaxScore不给默认值，是因为不同课程的满分不一样，100 分制和 5 分制混在一套系统里很常见，默认值反而会误导批阅页。Status用整数而不是文本，是为了让列表页能用WHERE Status = 0直接走索引筛出待批阅的，不用在应用层做字符串比较。

唯一索引这一步不要省。没有它，学生手抖点两次提交按钮，同一份作业就会出现两条记录，教师端列表里出现两行一模一样的名字，批改完一行另一行还是“待批阅”，最后没人说得清哪份才是最终的。

2.2 目录布局与 Web 根隔离：把 .mdb 挪出去

这套系统的目录结构我一般会定成下面这样，重点是data和uploads两个目录必须落在 Web 根之外：

D:\hw_system\ ├─ wwwroot\ ← IIS 站点根目录，只放可执行的 .asp │ ├─ default.asp │ ├─ login.asp │ ├─ student\ │ │ ├─ list.asp │ │ └─ submit.asp │ ├─ teacher\ │ │ ├─ review.asp │ │ └─ export.asp │ ├─ inc\ │ │ ├─ conn.asp │ │ └─ auth.asp │ └─ upload_tmp\ └─ hw_data\ ← 站点根目录的上一级 ├─ homework.mdb ← 数据库 └─ uploads\ ← 学生作业文件，按 作业ID\学生ID 分子目录

这个分法的理由很直接：wwwroot下面任何文件，只要能猜出路径，浏览器就能直接下载。.mdb一旦被下载走，里面所有学生的学号、姓名、成绩全部泄露，这是这类系统里后果最严重的一个问题，没有之一。放在上一级目录，IIS 的静态文件处理器根本触不到它。

uploads同理。学生的作业文件虽然是给学生自己看的，但目录列表如果没关，别人把上级目录一敲就能翻到全班的作业。

2.3 连接串与参数化查询：把注入面堵死

conn.asp是全站唯一的数据库入口，所有页面用<!--#include file="inc/conn.asp"-->引进来。把物理路径抽成常量，换服务器的时候只改这一行：

<% ' inc/conn.asp —— 全站唯一数据库入口 Const DB_PATH = "D:\hw_data\homework.mdb" Dim conn Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DB_PATH %>

参数说明：Microsoft.Jet.OLEDB.4.0是 32 位驱动。如果服务器是 64 位系统且 IIS 跑在 64 位模式下，这个驱动会报“未找到提供程序”，得在 IIS 应用池里把“启用 32 位应用程序”打开，或者换成Microsoft.ACE.OLEDB.12.0。这是部署时第一个会撞上的墙。

查询一律走ADODB.Command，不要拼字符串。下面这个按班级和姓名模糊查学生的例子，是教师端点名时最常用的：

<% ' 用 Command + Parameters，任何来自表单的值都不进 SQL 文本 Dim cmd, rs, kw kw = Trim(Request.Form("kw")) Set cmd = Server.CreateObject("ADODB.Command") cmd.ActiveConnection = conn cmd.CommandType = 1 ' 1 = adCmdText cmd.CommandText = "SELECT StudentNo, Name FROM T_Student " & _ "WHERE ClassID = ? AND Name LIKE ?" ' 3 = adInteger, 1 = adParamInput cmd.Parameters.Append cmd.CreateParameter("ClassID", 3, 1, , CLng(Request.Form("cid"))) ' 202 = adVarWChar, 50 = 最大长度，模糊匹配的通配符由参数值携带 cmd.Parameters.Append cmd.CreateParameter("KwName", 202, 1, 50, "%" & kw & "%") Set rs = cmd.Execute %>

逻辑说明：CreateParameter的五个参数依次是 名称、数据类型、方向、大小、值。类型常量里3是整型，202是变长宽字符，203是长文本（对应 MEMO 字段）。方向1表示输入参数。值里带%不会破坏语义，因为驱动会把它当成数据而不是 SQL 片段。

用CLng包一层是因为即便走了参数化，把表单字符串直接往CreateParameter里塞整型，遇到"1 or 1=1"也会在类型转换阶段抛错，页面直接 500。先转换、转换失败就跳回列表页，比让用户看到一堆 ADO 错误码体面得多。

3. 学生端提交链路：从 multipart 到落盘再到写库

学生端点“提交”之后，浏览器发的是一个multipart/form-data请求，里面混着隐藏字段（作业 ID）和文件流。Classic ASP 没有内置的文件上传对象，这一步是整个系统里唯一需要自己动手的地方。

3.1 无组件上传的解析思路与编码转换

不引第三方组件的话，解析流程分三步：Request.BinaryRead把整个请求体读成字节数组，按请求头里的boundary切分成若干 part，再区分普通字段和文件字段。切分逻辑本身比较长，核心只有下面这几行是必须自己写的：

<% ' 1) 读原始请求体 Dim binBody binBody = Request.BinaryRead(Request.TotalBytes) ' 2) 从第一行取出 boundary（形如 ------WebKitFormBoundaryXXXX） Dim boundary boundary = MidB(binBody, 1, InStrB(1, binBody, ChrB(13) & ChrB(10)) - 1) ' 3) 逐个 part 定位 "name="xxx"" 的位置，取出头部与正文 ' 文件 part 的正文就是字节流，普通字段的正文需要按编码转字符串 %>

逻辑说明：InStrB和MidB是按字节操作，不是按字符。中文环境下如果误用InStr/Mid，遇到多字节字符会从半个字的位置切开，产出的文件必定损坏。boundary一定是 ASCII，所以这一步用字节函数是安全的。

切出来的文件字节流落到磁盘，标准写法是ADODB.Stream：

<% ' 把解析得到的文件字节写入磁盘 Dim stm, savePath savePath = "D:\hw_data\uploads\" & hwID & "\" & stuID & "\" & storeName Set stm = Server.CreateObject("ADODB.Stream") stm.Type = 1 ' 1 = adTypeBinary，二进制模式 stm.Open stm.Write fileBytes ' fileBytes 是上一步切出来的字节数组 stm.SaveToFile savePath, 2 ' 2 = adSaveCreateOverWrite，覆盖已有文件 stm.Close Set stm = Nothing %>

参数说明：Type = 1是二进制，不要设成 2（文本），文本模式会在写入时做编码转换，学生传的 zip、docx 一律报废。SaveToFile的第二个参数2表示覆盖，配合前面那条唯一索引，同一个学生重复提交时旧文件会被同名新文件替换掉——前提是storeName的生成规则要稳定，我一般用学生ID & "_" & 作业ID & 扩展名，不走随机数，这样重复提交天然覆盖，不会在磁盘上留一堆孤儿文件。

写文件之前，目录得先存在。ADODB.Stream不会自动建目录，FileSystemObject的CreateFolder也不会递归创建，所以常见做法是按uploads\作业ID\学生ID两级分别判断、分别创建。

3.2 IIS 的两个上传阈值：默认值会让你怀疑人生

代码写对了，文件还是传不上去，八成是 IIS 的两道闸。第一道是经典 ASP 自己的请求体上限，默认值只有200KB；第二道是请求筛选的maxAllowedContentLength，默认约 30MB。

# 经典 ASP 的请求体上限（字节），默认 200KB，这里放到 50MB %windir%\system32\inetsrv\appcmd.exe set config -section:system.webServer/asp ^ /limits.maxRequestEntityAllowed:52428800 # 请求筛选的总请求体上限，这里同样放到 50MB %windir%\system32\inetsrv\appcmd.exe set config "Default Web Site" ^ -section:system.webServer/security/requestFiltering ^ -requestLimits.maxAllowedContentLength:52428800

参数说明：两个值的单位都是字节，52428800就是 50MB。改完必须iisreset或者回收应用池才生效，很多人改完直接刷新页面发现没变化，就是因为没回收。

K12 场景里学生交的多半是 Word、PDF、图片，单份作业超过 50MB 的情况极少，但视频作业是例外。如果确实要收视频，别指望把上限调到 500MB 就完事——Classic ASP 一次性把整个请求读进内存，几十个人同时交视频，服务器内存会直接被打满。这种需求应该换成分片上传或者干脆走文件服务器的共享目录，不要在这套系统上硬扛。

3.3 落库与幂等：重复提交要覆盖，不要堆积

文件写完之后写数据库。这里的重点是幂等：先按(HomeworkID, StudentID)删掉旧记录，再插新记录，整个过程包在一个事务里：

<% hwID = CLng(Request.Form("hid")) stuID = CLng(Session("StudentID")) ' 截止判定：服务器时间与截止时间直接比 isLate = 0 If Now() > deadline Then isLate = 1 conn.BeginTrans On Error Resume Next conn.Execute "DELETE FROM T_Submit WHERE HomeworkID=" & hwID & _ " AND StudentID=" & stuID Set cmd = Server.CreateObject("ADODB.Command") cmd.ActiveConnection = conn cmd.CommandText = "INSERT INTO T_Submit " & _ "(HomeworkID,StudentID,FileName,StoreName,FileSize,SubmitTime,IsLate,Status) " & _ "VALUES (?,?,?,?,?,?,?,0)" cmd.Parameters.Append cmd.CreateParameter("h", 3, 1, , hwID) cmd.Parameters.Append cmd.CreateParameter("s", 3, 1, , stuID) cmd.Parameters.Append cmd.CreateParameter("fn", 202, 1, 255, fileName) cmd.Parameters.Append cmd.CreateParameter("sn", 202, 1, 80, storeName) cmd.Parameters.Append cmd.CreateParameter("fs", 3, 1, , fileSize) cmd.Parameters.Append cmd.CreateParameter("st", 135, 1, , Now()) ' 135 = adDBTimeStamp cmd.Parameters.Append cmd.CreateParameter("il", 11, 1, , isLate) ' 11 = adBoolean cmd.Execute If Err.Number = 0 Then conn.CommitTrans Else conn.RollbackTrans Response.Write "提交失败，请重试" End If On Error GoTo 0 %>

逻辑说明：先删后插而不是UPDATE，是因为字段集合可能变化（比如学生从交 doc 换成交 pdf），统一按“整条记录重建”处理，代码只有一份，不用维护两套分支。BeginTrans保证删除和插入要么都成、要么都不成，避免出现“旧记录删了、新记录没插进去、学生以为交了”这种最难排查的状态。

参数说明：135是adDBTimeStamp，专门给DATETIME字段用；11是adBoolean，对应 Access 的BIT。时间统一用Now()取服务器本地时间，不要用客户端传来的时间——学生改本机时钟绕过截止时间，是这套系统里最容易被想到的漏洞。

4. 教师端批阅与权限：会话、角色和分页别在内存里筛

教师端页面数量不多，但每一个都涉及成绩数据，权限判断和分页写法上的一点疏忽，后果都会被放大。

4.1 三个入口的守卫：会话判断放在每个页面第一行

login.asp校验通过后写入Session("Role")和Session("TeacherID")，其余所有教师页面的第一行（在任何 HTML 输出之前）引入鉴权文件：

<% ' inc/auth.asp —— 教师页统一包含，必须放在文件最顶部 If Trim(Session("Role") & "") <> "teacher" Then Response.Status = "403 Forbidden" Response.Write "无权限访问" Response.End End If %>

逻辑说明：Session("Role") & ""这个写法是为了把Empty转成空字符串，避免会话过期后Session("Role")返回Empty、和字符串比较时抛类型错误。Response.End会立刻终止后续所有输出，所以它必须出现在任何Response.Write之前，否则页面已经输出了一半 HTML 再中断，浏览器看到的是半截页面，用户不知道发生了什么。

Response.Status = "403 Forbidden"这一行很多人不写，觉得反正内容已经不输出了。但状态码是给日志和监控看的，返回 200 的话，WAF 和访问日志里就永远看不出有人在扫教师端目录。

4.2 Access 分页：TOP + NOT IN 的写法与它的边界

Access 没有LIMIT/OFFSET，分页只能靠TOP加子查询跳过前 N 条：

-- 第 page 页，每页 20 条，按提交时间倒序 SELECT TOP 20 SubmitID, StudentID, FileName, SubmitTime, IsLate, Score FROM T_Submit WHERE HomeworkID = 12 AND SubmitID NOT IN ( SELECT TOP 20 SubmitID FROM T_Submit WHERE HomeworkID = 12 ORDER BY SubmitTime DESC ) ORDER BY SubmitTime DESC

逻辑说明：内层子查询取出前(page-1)*20条的主键，外层用NOT IN排掉，再取 20 条。这里的20在代码里要替换成(pageNum-1) * pageSize，也就是第 2 页时内层是TOP 20，第 3 页时是TOP 40。

这个写法有个真实的边界：排序字段必须唯一。如果两个学生同一秒提交，SubmitTime相同，TOP截断的位置每次执行可能不一样，翻页时会出现某条记录在两页里都出现、或者干脆消失。稳妥的做法是排序加上主键兜底：ORDER BY SubmitTime DESC, SubmitID DESC，保证排序是全序的。这个坑我在一个两百多人的年级里踩过，第一页看到一个名字，第二页又看到他，差点以为数据库坏了。

4.3 成绩回写与截止时间的边界判定

批阅页提交后回写分数和评语，同样走参数化。注意Comment是MEMO类型，参数类型要用203（adLongVarWChar），并且给一个足够大的长度：

<% Set cmd = Server.CreateObject("ADODB.Command") cmd.ActiveConnection = conn cmd.CommandText = "UPDATE T_Submit SET Score = ?, Comment = ?, Status = 1 " & _ "WHERE SubmitID = ? AND Status <> 2" cmd.Parameters.Append cmd.CreateParameter("sc", 3, 1, , CLng(Request.Form("score"))) ' 203 = adLongVarWChar，4000 给评语留足空间 cmd.Parameters.Append cmd.CreateParameter("cm", 203, 1, 4000, Request.Form("comment")) cmd.Parameters.Append cmd.CreateParameter("id", 3, 1, , CLng(Request.Form("sid"))) cmd.Execute %>

参数说明：WHERE ... AND Status <> 2保证被打回的作业不会被重复打分。Score用CLng转换，同时在页面上做范围校验（0 到该作业的MaxScore），因为一旦有人手工构造请求提交999，平均分统计就会失真。

截止判定还有一个容易被忽略的点：Now()取的是服务器时间，而Deadline是建作业时由教师输入的。如果教师端表单用的是<input type="date">，提交上来只有2025-06-30，CLng转DATETIME后变成当天零点，结果整个截止日当天交的作业全被判成迟交。常见做法是在服务端补上时间部分：截止到当天 23:59:59。

5. 避坑清单：五个把系统拖进泥里的事故现场

5.1 文件写入“成功”但大小为 0

现象：学生端提示提交成功，数据库里也有记录，但教师端下载下来的文件是 0 字节，或者只有几百字节的残缺内容。

原因：uploads目录没有给应用池账号写权限。ADODB.Stream的SaveToFile失败时不一定抛错，特别是在On Error Resume Next的作用域里，错误被吞掉了，后面的插库照常执行。

解决：给IIS_IUSRS（或者具体的应用池虚拟账号）授予uploads目录的“修改”权限，然后在写文件后立刻用FileSystemObject的File.Size回读一次，大小对不上就回滚事务并提示重试。不要相信“没报错就是成功”。

5.2 中文文件名变成问号或乱码

现象：学生交的是“第一次作业-张三.docx”，教师端列表里显示成“???-??.docx”，下载下来文件名也是一串乱码。

原因：整站的响应编码没统一。页面本身可能是 UTF-8，但Session.CodePage和Response.Charset还是默认的 936，表单提交上来的中文在进入 ASP 引擎时就已经被按错的编码解释了一遍。

解决：在conn.asp里统一声明编码，页面文件本身另存为 UTF-8 带签名，并且给所有页面输出加一条：

<% Session.CodePage = 65001 : Response.Charset = "utf-8" %>

下载时用Response.AddHeader "Content-Disposition", "attachment; filename=" & Server.URLEncode(fileName)，让浏览器自己解码。

5.3 数据库文件被直接下载

现象：访问日志里出现大量对.mdb的请求，状态码 200。

原因：数据库放在了 Web 根目录下，IIS 的静态文件处理器不认识.mdb是敏感文件，照常返回给客户端。

解决：把.mdb移到站点根目录之外（见 2.2 的目录结构）。如果因为历史原因挪不动，退一步的做法是在 IIS 的请求筛选里加一条拒绝规则，或者把扩展名改成.asp、.asa这类会被 ASP 引擎接管的名称——但这是补救，不是方案。

5.4 并发提交时主键冲突或记录丢失

现象：一个班四十多个人同时点提交，个别学生收到“提交失败”，或者数据库里同一份作业出现两条记录。

原因：Access 的自增主键在多个请求同时插入时是有锁竞争的，配合前面的“先删后插”，两个请求交错执行时可能出现删了对方的记录、或者唯一索引冲突。

解决：把删除和插入严格包在BeginTrans/CommitTrans里，并在失败分支明确RollbackTrans；页面上提交按钮点击后立刻disabled，减少重复点击。如果班级规模超过五十人同时提交，建议把 Access 换成 SQL Server Express，这个迁移成本不高，改连接串和少量 SQL 语法即可。

5.5 会话过期后页面白屏

现象：教师批阅到一半去接了个电话，回来点保存，页面空白，什么都没发生。

原因：IIS 默认的会话超时是 20 分钟，Session失效后Session("Role")变成Empty，鉴权文件里Response.End直接终止了响应，但因为前面已经有输出，浏览器拿到的是一段不完整的 HTML。

解决：在web.config里把sessionState的timeout调到 60 分钟；鉴权失败时不要只Response.End，改成Response.Redirect "login.asp?back=" & Server.URLEncode(Request.ServerVariables("URL"))，让用户重新登录后能回到原来的页面。

6. 进阶落地：成绩导出、每日备份与上线前的自检

系统能跑起来只是及格线，能不能在学期末交出一份教务要的成绩表、能不能在硬盘坏掉之后把数据捞回来，才是这套东西值不值得留着用的分水岭。

成绩导出走 CSV 最省事，Excel 直接能开。注意编码，中文 CSV 在 Excel 里打开乱码是高频投诉：

<% Response.ContentType = "text/csv" Response.AddHeader "Content-Disposition", "attachment; filename=scores.csv" Response.Charset = "GB2312" ' Excel 对 UTF-8 无 BOM 的 CSV 识别很差 Response.Write "学号,姓名,作业,提交时间,是否迟交,分数" & vbCrLf ' 这里接一个按 HomeworkID 排序的 Recordset 循环输出 %>

逻辑说明：Response.Charset设成GB2312之后，ASP 会自动把输出转成简体中文编码，Excel 双击打开不乱码。如果坚持用 UTF-8，就必须在输出最前面手工写 BOM（ChrB(&HEF) & ChrB(&HBB) & ChrB(&HBF)），两种方案选一种，不要混。

备份用robocopy加计划任务，比在 ASP 里写备份代码可靠得多：

robocopy D:\hw_data D:\backup\hw_data /MIR /R:1 /W:1 /LOG+:D:\backup\sync.log

/MIR是镜像，会删除目标端多余的文件，所以目标目录千万别指到别的地方去。/R:1 /W:1表示失败只重试一次、等一秒，避免文件被占用时任务卡死。计划任务设在每天 23:30 跑一次，学期末批阅高峰期改成每两小时一次。

上线前我一般会过一遍这张表：

最后说一个血泪经验。这套系统我第一次部署的时候，所有功能都测过，唯独没测“上传后再下载”这一整条闭环——结果学生交的 docx 下载回来打不开，因为写文件时ADODB.Stream的Type被设成了 2。从那以后我每次搭这类上传功能，都强制走一遍“传一个 30MB 的假作业、再拿一个带中文名的文件、再连点两次提交”这三步，一步都不能省。希望帮到你。

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