经典ASP问卷调查系统源码部署与二次开发实战指南-平芜编程栈

简介：基于ASP技术的在线问卷调查系统源码，是面向Web开发初学者的完整练习项目，也可供有经验者了解经典ASP架构。压缩包内含133个文件，以41份ASP脚本和46份JavaScript文件为主体，配合CSS、HTML页面模板、GIF、PNG与SVG等图形素材，以及MDB数据库文件、XLS统计导出文件和字体图标文件，整包仅879KB，下载后即可本地查阅。目前已有270人学习或下载。源码完整覆盖问卷设计、题目跳转、答案提交、服务端校验、后台管理和统计报表生成等流程；通过分模块研读，可掌握MD5加密、文件上传、JSON解析、数据库连接与查询等典型写法，并体会错误处理、访问权限控制和响应式布局在真实项目中的落地方式。文件按上传、处理、管理、统计等职能归类，目录结构清楚，适合作为ASP入门后的第一份系统案例，也可作为毕业设计或课程实训的参考资料。

1. 一份 ASP 问卷调查系统 zip 源码包，打开前先认清它是哪一代 ASP

拿到ASP源码—问卷调查系统.zip，大多数人会急着解压找index.asp，但第一步应该先确认它是经典 ASP（VBScript）还是 ASP.NET WebForm。从部署习惯上看，老式问卷系统几乎都是经典 ASP 加 Access 数据库：所有业务逻辑揉在.asp文件里，用 ADODB 连库，没有编译过程，改完文件刷新即可生效。这类源码包不是安装程序，也不会自动建库，解压后是一堆页面脚本和一个.mdb或.accdb，必须放到 IIS 的物理目录里，启用 ASP 功能后才能真正跑起来。

这套代码最常出现在内网满意度调查、培训考试、活动投票这类表单简单、并发不高的场景里。对运维和二次开发者来说，它的价值不是技术先进，而是逻辑直白：打开conn.asp改一条连接串，给data目录开写权限，剩下的事情直接从源码里就能读明白。真正难的不是跑通，而是把里面隐藏的 SQL 拼接、编码混乱、重复提交问题一次性处理好。

2. 从 zip 包看 ASP 问卷系统的目录结构与数据表关系

2.1 先分清楚根目录里哪些文件不能动，哪些必须改

一份最常见的 ASP 问卷 zip 包，解压后通常长这样：根目录放着index.asp、admin/、data/、inc/、images/。inc/里是公共函数、分页函数和防注入函数，data/里是 Access 数据库文件，admin/是问卷管理和统计后台。index.asp负责读问卷列表，show.asp负责展示具体问卷，save.asp负责接收投票数据，这三个文件构成了用户的答题主链路。

下面这张表是交付过几个老项目以后，我总结的“动手优先级别”：

文件/目录	常见职责	部署时建议
conn.asp	数据库连接与全局参数	必须改，改完先测连接
data/*.mdb	问卷、题目、答卷数据	必须保证 IIS 可读写
show.asp	题目展示与表单输出	不要急着改样式
save.asp	提交入库	重点审查 SQL 拼接
inc/config.asp	分页数、上传路径、站点名	按环境调整
admin/*.asp	后台管理、统计导出	必须改管理员密码

整个目录里最容易被误伤的是inc/。ASP 有很多之类的相对包含，如果你为了“干净”把公共文件移到别处，后果不是报“文件找不到”，就是提交页面直接跳转失效。我做二次开发时习惯保留原目录骨架，只改文件内容参数，不让页面文件跨目录搬家。

2.2 问卷主表、题目表、选项表、答卷表的标准关系

问卷系统核心表一般有四张：问卷表、题目表、选项表、答卷表。判断这份源码设计得好不好，不用看页面，直接看表关系。一份可用的结构通常是：

CREATE TABLE survey ( id INT IDENTITY(1,1) PRIMARY KEY, title NVARCHAR(200) NOT NULL, start_time DATETIME, end_time DATETIME, status TINYINT DEFAULT 1 ); CREATE TABLE question ( id INT IDENTITY(1,1) PRIMARY KEY, survey_id INT NOT NULL, sort_no TINYINT DEFAULT 0, q_type TINYINT DEFAULT 1, content NVARCHAR(500) ); CREATE TABLE option_item ( id INT IDENTITY(1,1) PRIMARY KEY, question_id INT NOT NULL, sort_no TINYINT DEFAULT 0, option_text NVARCHAR(255) ); CREATE TABLE answer ( id INT IDENTITY(1,1) PRIMARY KEY, answer_no VARCHAR(32), question_id INT, option_id INT, answer_text NTEXT, create_time DATETIME, ip VARCHAR(20) );

参数说明：survey的status控制问卷是否开放；q_type用 1 代表单选、2 代表多选、3 代表填空；answer_no是同一次提交的批次号，一次答题里所有题目的答案共用这个编号，这样统计时不用在每道题上生成一条新会话记录。

如果是 Access 数据库，写法会变成AUTOINCREMENT代替IDENTITY，长文本用MEMO类型。你拿到 zip 后在admin里找一个“导出数据”功能，看它的统计 SQL，就能反推表结构是否规范。

2.3 从 show.asp 的循环体看懂题目输出方式

打开show.asp，最常见的输出方式是 ADODB.Recordset 循环：

<% Dim conn, rs, sql Set conn = Server.CreateObject("ADODB.Connection") conn.Open Application("ConnStr") sql = "SELECT * FROM question WHERE survey_id=" & Request("id") & " ORDER BY sort_no" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn While Not rs.EOF Response.Write "<div class='q-item'>" Response.Write "<p>" & rs("content") & "</p>" ' 根据 q_type 输出不同控件 Response.Write "</div>" rs.MoveNext Wend rs.Close Set rs = Nothing conn.Close Set conn = Nothing %>

这段代码暴露了两个问题：第一，Request("id")没有做数值校验，直接拼 SQL，这在公网一提交就会被打；第二，输出控件时通常只处理了单选，多选题往往是把所有选项的name设成同一个名字，然后在提交端用Split拆开。你可以顺着这个循环去看，后面改题型时也只要维护这一处。

3. 在 Win11 上配置 IIS 跑通 ASP 问卷系统

3.1 Win11 启用经典 ASP 的最小操作

新版 Windows 默认不装 IIS，更不会主动启用经典 ASP。Win11 上配置 IIS ASP 的路径是：控制面板 -> 启用或关闭 Windows 功能 -> Internet Information Services -> 万维网服务 -> 应用程序开发功能 -> 勾选 ASP。只用图形界面不方便复现，推荐用 PowerShell：

Enable-WindowsOptionalFeature -Online -FeatureName IIS-WebServer, IIS-ASP -All

参数说明：IIS-WebServer是 IIS 基础服务，IIS-ASP是经典 ASP 解释器。执行后-All会顺带安装默认文档、静态文件模块。装完在浏览器访问http://localhost/，出现 IIS 默认页就说明基础服务正常。

3.2 解压部署与 Access 数据库的写权限

把 zip 解压到D:\SurveyASP，接着打开conn.asp，你会看到类似这样的连接代码：

DBPath = Server.MapPath("data/survey.mdb") conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DBPath

这是用 Access 的老式写法。部署到 Win11 的 64 位 IIS 上，第一步先到应用程序池的“高级设置”里把“启用 32 位应用程序”设为True，否则会因为缺少Microsoft.Jet.OLEDB.4.0驱动直接报错。如果源码里用的是ACE.OLEDB.12.0，同样建议开 32 位兼容，避免换一台机器没有对应驱动时无从下手。

第二步是权限问题。找到D:\SurveyASP\data文件夹，右键属性->安全->编辑，给Users或IIS_IUSRS添加“写入”权限。很多 zip 源码第一次能打开问卷，一点“提交”就报错，原因全是数据库目录不可写。

icacls D:\SurveyASP\data /grant "IIS_IUSRS:(OI)(CI)M"

这一行命令用icacls给data目录及子项授予修改权限，(OI)(CI)表示容器和对象都继承，M是修改权限。等到正式上线，再按安全要求收紧到只给“读写”和“追加”。

3.3 把 ASP 错误信息打开，排错不用猜

IIS 默认把 ASP 错误显示成“500 - 内部服务器错误”，对排查完全没有帮助。在 IIS 管理器中选中站点，双击“ASP”，展开“调试属性”，把“将错误发送到浏览器”设为True。这样访问页面时会直接显示类似“Microsoft VBScript runtime error '800a01fb'”以及具体行号，这是经典 ASP 项目里最有用的排错开关。

这个阶段建议把以下三个参数一起确认：

配置项	推荐值	原因
ASP-调试-将错误发送到浏览器	True	快速定位错误行
应用程序池-启用32位应用程序	True	兼容 Access 驱动
默认文档	添加 index.asp	避免手动拼完整路径

如果访问时出现 403.2，多半是目录浏览未开，在 IIS 的“目录浏览”里启用即可。如果你看到 500.19，那不是代码错误，而是 IIS 配置节被锁，把 zip 解压到的目录移到C:\inetpub\wwwroot下通常能绕过去。

4. 问卷提交入库的显示、参数与防注入处理

4.1 长答案换行：GridView 和前台同一个思路

很多人在搜索“asp:gridview列中的数据怎么换行”，它背后的真实需求是：问卷里的填空题答案太长，在统计列表里把表格撑破。如果你拿到的 zip 是经典 ASP，不用纠结 GridView 控件，直接在生成表格单元格时控制 CSS：

<td style="word-break:break-all;white-space:normal;"> <%= rs("answer_text") %> </td>

前端统计页也可以用一个换行函数，按固定长度插入<br/>：

Function BreakText(s, n) Dim r, i r = "" For i = 1 To Len(s) Step n r = r & Mid(s, i, n) & "<br/>" Next BreakText = r End Function

参数说明：n是每行显示字符数，填空题答案通常设 20 到 30。如果是 ASP.NET 的 GridView，则用模板列：

<asp:TemplateField> <ItemTemplate> <div style="white-space:normal;word-break:break-all;"> <%# Eval("answer_text") %> </div> </ItemTemplate> </asp:TemplateField>

两个写法的共同点是：只改显示层，不动数据库字段。这是处理长文本最稳的做法。

4.2 入库前必须校验的 3 个参数

问卷系统的核心竞争力不是页面好看，而是提交数据可靠。老源码里普遍只做Request("...")接收，必须补上下面三个校验。

第一个是问卷编号和题目 id 的数值校验。CheckNum函数把所有入参变成数字：

Function CheckNum(v) If IsNumeric(v) Then CheckNum = CLng(v) Else CheckNum = -1 End If End Function

第二个是重复提交限制，用 IP 加问卷号做维度：

Function IsDup(ip, surveyId) Dim conn, rs, sql sql = "SELECT COUNT(*) AS cnt FROM answer a " sql = sql & "LEFT JOIN question q ON a.question_id = q.id " sql = sql & "WHERE q.survey_id=" & CheckNum(surveyId) & " " sql = sql & "AND a.ip='" & Replace(ip, "'", "''") & "'" ' 执行查询并返回是否大于 0 End Function

第三个是必答题校验。多题目表单里，前端用 JS 校验只是友好提示，服务端必须再次判断每个必答题的Request.Form是否为空，否则绕过页面直接 POST 就能投出空答卷。

这三个校验加到save.asp的开头，比任何统计功能都优先。

4.3 清理 SQL 拼接和输出转义

经典 ASP 的致命问题是没有参数化查询的天生支持。最小补救方案是把所有单引号替换成两个单引号：

Function SafeSql(s) SafeSql = Replace(s, "'", "''") End Function

但替换单引号只防注入不防 xss，输出端也要用Server.HTMLEncode()：

Response.Write Server.HTMLEncode(rs("content"))

凡是来自数据库的内容，放到页面上时都套一次 HTMLEncode，这是老源码最容易漏的一环。后台管理员如果直接把用户回答当 HTML 输出，一旦有人提交<script>标签，就会被当成站点脚本执行。这个坑在问卷系统里比 SQL 注入更值得优先修。

5. 交付前把 ASP 问卷系统的软肋再验证一遍

5.1 在 zip 包内先做一次全文危险函数搜索

拿到整个 zip 解压后，不要先急着点开页面，先在根目录全局搜索Execute(和Eval(。经典 ASP 源码里偶尔会夹杂一句话后门，写法和正常功能很像。用 VSCode 打开文件夹按Ctrl+Shift+F搜索，出现.asp文件里包含Execute Request或ExecuteGlobal的，先确认它是什么功能，再决定是否启用。这一步在交付客户前尤其重要。

5.2 用 curl 连发三次提交，验证幂等性

打开问卷页面，用浏览器提交一份正常答案后，再用命令行模拟同一 IP 多次提交：

curl -k -X POST "http://localhost/survey/save.asp" \ -d "survey_id=1&q_1=1&q_2=3"

参数说明：survey_id是问卷 id，q_1=1代表第一题选了第一个选项。连续执行三次，回到后台统计数据里查这张问卷的回答总数。如果三次都写入成功，说明重复校验没有生效，回去看 2.2 里的answer表有没有按 IP 和时间做唯一约束。老源码交付前，这一关必须过掉。

5.3 给数据库做带时间戳的冷备份

问卷项目最容易挂掉的时候是统计页打开瞬间和数据库快满的时候。不要在 IIS 运行期间直接复制.mdb文件，文件可能会被锁定。最省事的办法是做一个计划任务，在凌晨把data目录压缩成带日期的 zip：

robocopy D:\SurveyASP\data D:\backup\survey_%date:~0,4%%date:~5,2%%date:~8,2% /MIR

%date:~0,4%到%date:~8,2%是在批处理里截取系统日期，拼成survey_20260517这样的目录名。用robocopy的/MIR镜像备份后，再配合 Windows 任务计划程序每天执行一次，就能保证源码能恢复、问卷数据不丢。最后记得把备份目录改成一个不让 IIS 访问的路径，避免别人下载到你的.mdb。

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