ASP+SQL旅游管理系统快速搭建与防坑指南

简介：本资源是一套完整的ASP+SQL旅游管理系统毕业设计实战材料，面向计算机专业本科生、Web开发初学者及课程设计实践者，解决旅游业务信息化管理中的用户交互、订单处理与后台运维等核心问题。压缩包共148个文件，27.87MB，包含41个ASP动态页面（如jiudian.asp、lvyou.asp等，实现前端逻辑与数据库交互）、36张JPG界面截图与7张PNG图表（辅助理解系统UI与数据流向）、33个MNO文件（疑似备份或配置文件）、12个HTM静态页及2个SQL Server数据库文件（.mdf与.ldf），另有PPT答辩稿、开题报告DOC文档、CSS样式表与INC公共包含文件，结构完整覆盖开发—测试—汇报全流程。目前已有170人学习下载，读者可直接部署运行、对照论文理解模块设计原理、参考答辩PPT梳理项目逻辑，并通过源码学习Session状态管理、SQL防注入、订单状态跟踪等关键实践技巧。

1. ASP+SQL旅游管理系统：不是老古董，而是快速验证业务逻辑的最小可行闭环

你手头有个旅行社的小型订单管理需求——要录线路、排团期、管游客、算报价、导报表，老板说“下周就要能用”。这时候翻出 ASP+NET Framework 4.0 + SQL Server 2008 R2 的组合，不是怀旧，是抄近道：IIS 本地一键启服务、.asp文件扔进去就能跑、SQL Server Express 免费装好就带数据库引擎、ADO 连接字符串三行搞定。它不时髦，但胜在零构建、无依赖、改完即生效——你改一行 VBScript，刷新浏览器就看到结果；写一条SELECT * FROM t_route WHERE status=1，立刻查出待发团列表。这不是给百万级并发准备的架构，而是给单机/局域网场景下，一个懂点 SQL、会写基础 HTML 表单、没时间搭 Vue+SpringBoot 的工程师，留下的最后一块可落地的“业务验证飞地”。本文不讲 ASP.NET Core 迁移路径，也不对比 Node.js 性能，只聚焦一件事：如何用原始 ASP+SQL 组合，在 Win10/Win11 上从零跑通一个真实可用的旅游管理系统，且避开那些让新手卡死三天的 IIS 权限、连接池泄漏、中文乱码、SQL 注入裸奔等血泪坑。适合刚接手老系统维护、需要快速交付内部工具、或教学场景中要求“看得见摸得着”的开发者。

2. 搭建运行环境：Win10/Win11 下启用 IIS 并配置 ASP 支持（含实测兼容性清单）

ASP（Active Server Pages）本质是服务器端脚本引擎，依赖 Windows 自带的 IIS（Internet Information Services）提供执行容器。现代 Windows 默认不启用 IIS，更不会自动注册 ASP 解析模块。很多新手卡在“双击.asp文件打不开”或“HTTP 404.3 错误”，根源不是代码错，而是 IIS 根本没认出.asp是啥。

2.1 启用 IIS 及 ASP 功能（Win10/Win11 通用命令行方案）

图形界面操作易漏步骤，推荐 PowerShell 一次性启用全部必需组件。以管理员身份打开 PowerShell，执行：

# 启用 IIS 基础服务 + ASP 模块 + Windows 身份验证（ASP 常用） Enable-WindowsOptionalFeature -Online -FeatureName IIS-WebServerRole -All -NoRestart Enable-WindowsOptionalFeature -Online -FeatureName IIS-ASP -All -NoRestart Enable-WindowsOptionalFeature -Online -FeatureName IIS-WindowsAuthentication -All -NoRestart # 启用经典 .NET 框架支持（ASP 依赖 VBScript/JScript 引擎，非 .NET Core） Enable-WindowsOptionalFeature -Online -FeatureName IIS-NetFxExtensibility45 -All -NoRestart # 重启 IIS 服务使配置生效 iisreset /restart

提示：IIS-ASP是关键功能名，Win11 22H2 及以上版本仍保留该 Feature，但部分精简版系统（如 N 版）需先安装 Media Feature Pack 才能启用。若执行报错Feature name is unknown，请先运行dism /online /get-features | findstr "IIS-ASP"确认系统是否支持。

2.2 配置默认网站指向你的项目目录

IIS 默认网站根目录是C:\inetpub\wwwroot，但直接往里扔代码不安全（权限高、易被覆盖）。推荐新建独立站点：

# 创建项目目录（示例路径，可自定义） New-Item -ItemType Directory -Path "D:\travel_system" # 使用 appcmd 创建新站点（端口 8080 避免与默认 80 冲突） & "$env:windir\system32\inetsrv\appcmd" add site /name:"TravelSystem" /bindings:"http/*:8080:" /physicalPath:"D:\travel_system" # 设置应用池为经典模式（ASP 必须用 Classic .NET AppPool，非 Integrated） & "$env:windir\system32\inetsrv\appcmd" set apppool "TravelSystem" /managedRuntimeVersion:v4.0 /managedPipelineMode:Classic

执行后，访问http://localhost:8080应看到 IIS 欢迎页。若报错HTTP Error 500.19，大概率是applicationHost.config中<system.webServer>节点缺失 ASP 处理程序映射——此时需手动补全（见下一节）。

2.3 手动注册 ASP 处理程序（解决 HTTP 500.19 和 404.3）

IIS 有时启用IIS-ASP后仍不识别.asp扩展名。需确认applicationHost.config（位于C:\Windows\System32\inetsrv\config）中存在以下节点：

<system.webServer> <handlers> <add name="ASPClassic" path="*.asp" verb="GET,HEAD,POST" modules="IsapiModule" scriptProcessor="%windir%\system32\inetsrv\asp.dll" resourceType="File" /> </handlers> </system.webServer>

参数说明：

• name="ASPClassic"：处理程序唯一标识，不可重复；
• path="*.asp"：匹配所有.asp文件；
• scriptProcessor="%windir%\system32\inetsrv\asp.dll"：指向 Windows 自带的 ASP 解析 DLL，绝对路径必须准确，Win11 路径与 Win10 一致；
• resourceType="File"：仅处理物理文件，不处理通配符路由。
  修改后需iisreset生效。若编辑 config 文件报“拒绝访问”，请右键记事本→“以管理员身份运行”再打开。

2.4 验证 ASP 是否真正工作：写一个test.asp

在D:\travel_system下新建test.asp，内容如下：

<%@ Language=VBScript %> <% Response.Write("ASP 环境已就绪！当前时间：" & Now()) Response.Write("<br>服务器变量 SERVER_NAME：" & Request.ServerVariables("SERVER_NAME")) %>

访问http://localhost:8080/test.asp，应显示时间及服务器名。若出现Microsoft VBScript runtime error '800a01ad'，说明 VBScript 引擎未加载——此时需检查 Windows 功能中是否勾选了“Windows Script Host”（控制面板→程序→启用或关闭 Windows 功能→勾选）。

3. 数据库搭建与连接：SQL Server Express 2019 + ADO 连接字符串实战配置

旅游管理系统核心是数据：线路、团队、游客、订单。SQL Server Express 是免费、轻量、与 ASP 兼容性最好的选择。注意：不要用 SQL Server LocalDB 或 SQLite——LocalDB 无网络监听，ASP 无法远程连接；SQLite 缺少存储过程和视图支持，旅游业务中常用到的“按线路统计成团率”“跨表联查游客历史订单”等逻辑难以高效实现。

3.1 安装 SQL Server Express 2019（含 Management Studio）

从 Microsoft 官方下载页 获取SQLEXPR_x64_ENU.exe（Express 版本）。安装时务必勾选：

• Database Engine Services（必须）；
• SQL Server Management Studio (SSMS)（强烈推荐，可视化操作必备）；
• SQL Server Configuration Manager（后续启用 TCP/IP 必需）。

安装完成后，打开 SSMS，用 Windows 身份验证登录localhost\SQLEXPRESS。首次连接失败？常见原因：

• SQL Server 服务未启动：打开“服务”（services.msc），找到SQL Server (SQLEXPRESS)，设为“自动”，并启动；
• TCP/IP 未启用：打开 SQL Server Configuration Manager → SQL Server Network Configuration → Protocols for SQLEXPRESS → 启用 TCP/IP → 右键“属性”→ IP 地址选项卡 → 将IPAll下的TCP Port设为1433（默认）→ 重启 SQL Server 服务。

3.2 创建旅游系统数据库及基础表结构（含中文字段注释）

在 SSMS 中新建查询，执行以下建库脚本（已适配 SQL Server 2019，支持nvarchar(max)和datetime2）：

-- 创建数据库 CREATE DATABASE travel_db ON PRIMARY ( NAME = travel_db_data, FILENAME = 'D:\data\travel_db.mdf', SIZE = 10MB, MAXSIZE = 100MB, FILEGROWTH = 5MB ) LOG ON ( NAME = travel_db_log, FILENAME = 'D:\data\travel_db.ldf', SIZE = 5MB, MAXSIZE = 50MB, FILEGROWTH = 2MB ); GO USE travel_db; GO -- 线路表（含中文注释，方便后期维护） CREATE TABLE t_route ( route_id INT IDENTITY(1,1) PRIMARY KEY, route_name NVARCHAR(100) NOT NULL, departure_city NVARCHAR(50) NOT NULL, destination NVARCHAR(50) NOT NULL, days_count TINYINT NOT NULL DEFAULT 3, price DECIMAL(10,2) NOT NULL, status CHAR(1) NOT NULL DEFAULT '1', -- 1:上架, 0:下架 create_time DATETIME2 DEFAULT GETDATE() ); EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'旅游线路表', @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N't_route'; -- 团队表（关联线路） CREATE TABLE t_team ( team_id INT IDENTITY(1,1) PRIMARY KEY, route_id INT NOT NULL, team_code VARCHAR(20) NOT NULL UNIQUE, -- 团号，如 'HZ20240501001' start_date DATE NOT NULL, end_date DATE NOT NULL, max_people SMALLINT NOT NULL DEFAULT 40, current_people SMALLINT NOT NULL DEFAULT 0, status CHAR(1) NOT NULL DEFAULT '1', -- 1:计划中, 2:已成团, 3:已结束 FOREIGN KEY (route_id) REFERENCES t_route(route_id) ); EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'旅游团队表', @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N't_team';

关键设计说明：

• NVARCHAR而非VARCHAR：确保中文、emoji、特殊符号（如“¥”“€”）不乱码；
• DATETIME2替代DATETIME：精度更高（100 纳秒），避免GETDATE()在跨年时出现毫秒截断；
• CHAR(1)存状态码：比TINYINT更直观，且索引效率相当；
• team_code设为UNIQUE：团号是业务主键，避免人工录入重复。

3.3 ASP 中连接 SQL Server 的三种方式对比与推荐写法

ASP 连接数据库靠 ADO（ActiveX Data Objects）。常见连接字符串有三种写法，仅推荐第三种（集成安全+命名实例）：

推荐连接封装函数（保存为conn.asp）：

<% ' conn.asp：数据库连接对象封装 Function GetConn() Dim connStr ' 关键：使用 ApplicationPoolIdentity 账户名，格式为 IISAPPPOOL\{应用池名} connStr = "Provider=SQLOLEDB;Data Source=localhost\SQLEXPRESS;Initial Catalog=travel_db;Integrated Security=SSPI;" Set GetConn = Server.CreateObject("ADODB.Connection") On Error Resume Next GetConn.Open connStr If Err.Number <> 0 Then Response.Write "数据库连接失败：" & Err.Description & "<br>请检查：<br>1. SQL Server 服务是否运行<br>2. 应用池名称是否为 TravelSystem<br>3. SQL Server 中是否授予 IISAPPPOOL\TravelSystem 登录权限" Err.Clear End If On Error GoTo 0 End Function %>

授权步骤（SSMS 中执行）：

1. 展开Security→Logins→ 右键 →New Login...；
2. Login name输入IISAPPPOOL\TravelSystem（注意：应用池名必须完全一致）；
3. Server Roles勾选public；
4. User Mapping→ 勾选travel_db→Database role membership勾选db_datareader,db_datawriter；
5. 点确定。
   此授权比给sa账户安全百倍，且符合最小权限原则。

4. 核心功能实现：用原生 ASP+SQL 完成线路管理 CRUD（含防注入与事务控制）

旅游管理系统最常操作的是线路增删改查。ASP 中直接拼接 SQL 字符串极易引发 SQL 注入（如route_name=request("name")），而Response.Write输出用户输入又可能触发 XSS。本节给出生产可用的 CRUD 实现模板，包含参数化查询、HTML 编码、事务回滚三重防护。

4.1 线路列表页（route_list.asp）：分页 + 中文排序 + 状态筛选

<!-- #include file="conn.asp" --> <% Dim conn, rs, sql, page, pagesize, total, totalpage pagesize = 10 page = Request.QueryString("page") If Not IsNumeric(page) Or page < 1 Then page = 1 Set conn = GetConn() ' 使用 COUNT(*) 获取总记录数（避免子查询性能差） sql = "SELECT COUNT(*) FROM t_route WHERE status='1'" Set rs = conn.Execute(sql) total = rs(0) rs.Close totalpage = Int((total - 1) / pagesize) + 1 If page > totalpage Then page = totalpage ' 分页查询：SQL Server 2012+ 支持 OFFSET/FETCH，但 ASP 常用 TOP + NOT IN 方案（兼容 2008 R2） sql = "SELECT TOP " & pagesize & " * FROM t_route " & _ "WHERE route_id NOT IN (SELECT TOP " & (pagesize * (page - 1)) & " route_id FROM t_route WHERE status='1' ORDER BY create_time DESC) " & _ "AND status='1' ORDER BY create_time DESC" Set rs = conn.Execute(sql) %> <!DOCTYPE html> <html> <head><title>线路列表</title></head> <body> <h2>旅游线路管理</h2> <a href="route_add.asp">新增线路</a> | <a href="?page=1">首页</a> <% For i = 1 To totalpage %> <a href="?page=<%=i%>"><%=i%></a> <% Next %> <table border="1"> <tr><th>线路名称</th><th>出发地</th><th>目的地</th><th>天数</th><th>价格</th><th>操作</th></tr> <% Do While Not rs.EOF %> <tr> <td><%=Server.HTMLEncode(rs("route_name"))%></td> <td><%=Server.HTMLEncode(rs("departure_city"))%></td> <td><%=Server.HTMLEncode(rs("destination"))%></td> <td><%=rs("days_count")%>天</td> <td>¥<%=FormatCurrency(rs("price"), 2)%></td> <td><a href="route_edit.asp?id=<%=rs("route_id")%>">编辑</a> | <a href="route_delete.asp?id=<%=rs("route_id")%>" onclick="return confirm('确定删除？')">删除</a></td> </tr> <% rs.MoveNext Loop %> </table> </body> </html> <% rs.Close: Set rs = Nothing: conn.Close: Set conn = Nothing %>

关键防护点说明：

• Server.HTMLEncode()：对所有输出到 HTML 的字段做编码，防止<script>注入；
• FormatCurrency()：本地化货币格式，避免1234.5显示为1234.500000；
• 分页用NOT IN而非OFFSET/FETCH：因 ASP 中Execute不支持多语句，OFFSET需配合ORDER BY且在 SQL Server 2012+ 才支持，此写法兼容 2008 R2；
• onclick="return confirm()"：前端二次确认，降低误操作风险。

4.2 新增线路（route_add.asp）：参数化查询 + 事务 + 错误反馈

<!-- #include file="conn.asp" --> <% If Request.ServerVariables("REQUEST_METHOD") = "POST" Then Dim conn, cmd, param Set conn = GetConn() ' 开启事务 conn.BeginTrans On Error Resume Next Set cmd = Server.CreateObject("ADODB.Command") cmd.ActiveConnection = conn cmd.CommandText = "INSERT INTO t_route (route_name, departure_city, destination, days_count, price, status) VALUES (?, ?, ?, ?, ?, ?)" cmd.CommandType = 1 ' adCmdText ' 参数化绑定（防注入核心） Set param = cmd.CreateParameter("@name", 200, 1, 100, Request.Form("route_name")) ' 200=adVarChar, 1=adParamInput cmd.Parameters.Append param Set param = cmd.CreateParameter("@dep", 200, 1, 50, Request.Form("departure_city")) cmd.Parameters.Append param Set param = cmd.CreateParameter("@dest", 200, 1, 50, Request.Form("destination")) cmd.Parameters.Append param Set param = cmd.CreateParameter("@days", 2, 1, , CInt(Request.Form("days_count"))) ' 2=adInteger cmd.Parameters.Append param Set param = cmd.CreateParameter("@price", 14, 1, , CDbl(Request.Form("price"))) ' 14=adCurrency cmd.Parameters.Append param Set param = cmd.CreateParameter("@status", 129, 1, 1, "1") ' 129=adChar cmd.Parameters.Append param cmd.Execute If Err.Number = 0 Then conn.CommitTrans Response.Redirect "route_list.asp?msg=添加成功" Else conn.RollbackTrans Response.Write "添加失败：" & Err.Description & "（请检查价格是否为数字、天数是否为整数）" Err.Clear End If On Error GoTo 0 Set cmd = Nothing Else %> <!DOCTYPE html> <html> <head><title>新增线路</title></head> <body> <h2>新增旅游线路</h2> <form method="post"> 线路名称：<input type="text" name="route_name" required><br> 出发城市：<input type="text" name="departure_city" required><br> 目的地：<input type="text" name="destination" required><br> 天数：<input type="number" name="days_count" min="1" max="30" required><br> 价格：<input type="number" name="price" step="0.01" min="0" required><br> <input type="submit" value="提交"> </form> </body> </html> <% End If %> <% If IsObject(conn) Then conn.Close: Set conn = Nothing %>

为什么必须用参数化查询？
假设用户输入route_name="泰山一日游'; DROP TABLE t_route--"，拼接 SQL 会变成：
INSERT INTO t_route (...) VALUES ('泰山一日游'; DROP TABLE t_route--', ...)
而参数化后，'被视为字符串值的一部分，SQL 引擎绝不会执行DROP。这是防注入的唯一可靠手段，Replace("'", "''")等过滤方案已被证明可绕过。

4.3 删除线路（route_delete.asp）：软删除 + 级联检查

旅游业务中“删除”常指“下架”而非物理删除（需保留历史订单关联）。同时需检查该线路是否已有成团，避免数据不一致：

<!-- #include file="conn.asp" --> <% Dim id, conn, rs, sql id = Request.QueryString("id") If Not IsNumeric(id) Then Response.Redirect "route_list.asp" Set conn = GetConn() ' 检查是否有关联团队（业务规则：已成团的线路不可下架） sql = "SELECT COUNT(*) FROM t_team WHERE route_id=? AND status='2'" Set rs = conn.Execute(sql, Array(id)) If rs(0) > 0 Then Response.Write "错误：该线路已有成团，不可下架！" rs.Close: conn.Close: Set rs = Nothing: Set conn = Nothing Response.End End If rs.Close ' 执行软删除（更新状态） sql = "UPDATE t_route SET status='0' WHERE route_id=?" conn.Execute sql, Array(id) Response.Redirect "route_list.asp?msg=线路已下架" conn.Close: Set conn = Nothing %>

注意：此处用conn.Execute sql, Array(id)是 ADO 简化参数化写法，等价于Command对象，但更轻量。Array(id)自动匹配?占位符，类型由 SQL Server 推断（id是INT，无需显式声明）。

5. 避坑指南：ASP+SQL 旅游系统开发中 5 个高频翻车点与血泪解法

ASP+SQL 组合看似简单，但 Windows 权限、IIS 配置、SQL Server 安全策略、字符集、连接池等环节环环相扣。以下 5 个问题，是我接手过的 12 个老系统中，87% 的新手会在前 2 小时内遭遇，且网上答案大多失效或误导。每条按“现象→原因→解法”结构给出可立即执行的命令或操作。

5.1 现象：ASP 页面显示 “HTTP 500 - Internal server error”，日志无明细

原因：IIS 默认关闭详细错误信息（出于安全），实际错误被屏蔽。常见于 VBScript 语法错、Server.CreateObject失败、ADO 连接超时。
解法：

1. 打开 IIS 管理器 → 选择站点 → 双击“错误页” → 右侧“编辑功能设置” → 选“详细错误”；
2. 在 ASP 文件开头加On Error Resume Next+Response.Write Err.Description临时定位；
3. 终极排查：在web.config（若存在）或applicationHost.config中添加：

<system.webServer> <httpErrors errorMode="Detailed" /> </system.webServer>

注意：生产环境切勿长期开启Detailed，仅调试时用。

5.2 现象：中文插入数据库后变成?????，或页面显示方框

原因：三处编码不一致：ASP 文件保存编码、HTML 声明编码、SQL Server 字段类型。
解法：

• ASP 文件用UTF-8 无 BOM格式保存（Notepad++：编码→转为 UTF-8 无 BOM）；
• HTML<head>中加<meta charset="utf-8">；
• SQL Server 字段必须用NVARCHAR（非VARCHAR），且连接字符串加Charset=UTF-8（无效！SQL Server 不支持此参数，正确做法是确保字段类型为NVARCHAR）；
• 验证命令（SSMS 中执行）：

SELECT COLLATIONPROPERTY(N'Chinese_PRC_CI_AS', 'CodePage') -- 应返回 936（GBK）或 65001（UTF-8） -- 若为 936，插入中文正常；若为其他值（如 1252），需重建数据库或修改字段 Collation

5.3 现象：conn.Execute执行慢 SQL（如SELECT * FROM t_route）时页面卡死超时

原因：ASP 默认脚本超时为 90 秒，但 IIS 应用程序池的“闲置超时”（Idle Time-out）默认 20 分钟，与之无关；真正瓶颈是SQL Server 连接池耗尽或查询未走索引。
解法：

• 在 ASP 中显式设置超时（单位：毫秒）：

conn.CommandTimeout = 300 ' 5分钟 conn.Execute sql, , 1 ' 1=adCmdText，第三个参数可设为 1（异步）或省略

• 在 SQL Server 中为t_route.status字段建索引（因查询常带WHERE status='1'）：

CREATE NONCLUSTERED INDEX IX_t_route_status ON t_route(status) INCLUDE (route_name, price);

• 禁用连接池（仅调试用）：在连接字符串末尾加Pooling=false，确认是否为池泄漏。

5.4 现象：Request.Form("price")获取到空值，但表单明明填了

原因：ASP 默认Request对象最大请求长度为 100KB，超长表单（如含大量 textarea）被截断。
解法：

• 修改 IIS 请求限制（applicationHost.config）：

<system.webServer> <security> <requestFiltering> <requestLimits maxAllowedContentLength="10485760" /> <!-- 10MB --> </requestFiltering> </security> </system.webServer>

• 同时在 ASP 中检查：

If Request.TotalBytes = 0 Then Response.Write "表单为空，请检查是否超过大小限制"

5.5 现象：部署到客户机后，route_list.asp报错 “Provider cannot be found”

原因：客户机未安装SQLOLEDB提供程序（Windows 10/11 默认自带，但某些 LTSC 或精简版缺失）。
解法：

• 下载并安装 Microsoft OLE DB Provider for SQL Server (MSOLEDBSQL) ；
• 替换连接字符串中的 Provider：

' 原来用 SQLOLEDB（旧） ' connStr = "Provider=SQLOLEDB;..." ' 改为 MSOLEDBSQL（新，支持 TLS 1.2+） connStr = "Provider=MSOLEDBSQL;Data Source=localhost\SQLEXPRESS;Initial Catalog=travel_db;Integrated Security=SSPI;"

注意：MSOLEDBSQL 需 SQL Server 2012+，且连接字符串中Provider名称必须精确匹配。

6. 论文与答辩材料生成：从源码自动提取技术要点与系统截图（附 Python 脚本）

毕业设计或企业交付时，“源代码+论文+开题报告+答辩PPT” 是硬性要求。手动整理易遗漏细节、格式不统一。我习惯用 Python 脚本自动化抓取关键信息，5 分钟生成可直接粘贴进 Word 的技术章节草稿，再人工润色即可。核心思路：解析 ASP 文件结构、读取 SQL 建表语句、截图关键页面、汇总为 Markdown。

6.1 自动提取 ASP 文件中的数据库操作逻辑（extract_db_ops.py）

#!/usr/bin/env python3 # -*- coding: utf-8 -*- import re import os def extract_db_operations(folder_path): """扫描指定文件夹下所有 .asp 文件，提取 SQL 操作语句""" operations = [] asp_files = [f for f in os.listdir(folder_path) if f.endswith('.asp')] for fname in asp_files: filepath = os.path.join(folder_path, fname) with open(filepath, 'r', encoding='utf-8') as f: content = f.read() # 匹配 conn.Execute 或 cmd.Execute 后的 SQL sql_patterns = [ r'conn\.Execute\s*\(\s*[\'"]([^\'"]+)[\'"]\s*\)', r'cmd\.Execute\s*\(\s*[\'"]([^\'"]+)[\'"]\s*\)', r'rs\.Open\s*\(\s*[\'"]([^\'"]+)[\'"]\s*,' ] for pattern in sql_patterns: matches = re.findall(pattern, content, re.IGNORECASE | re.DOTALL) for sql in matches: # 清理换行和多余空格 clean_sql = re.sub(r'\s+', ' ', sql.strip()).strip() if clean_sql.upper().startswith(('SELECT', 'INSERT', 'UPDATE', 'DELETE')): operations.append({ 'file': fname, 'type': clean_sql.split()[0].upper(), 'sql': clean_sql }) return operations if __name__ == '__main__': # 替换为你的项目路径 project_dir = r"D:\travel_system" ops = extract_db_operations(project_dir) print("# 数据库操作摘要\n") for op in ops: print(f"## {op['file']} 中的 {op['type']} 操作") print(f"```sql\n{op['sql']}\n```") print()

运行效果：输出类似：

## route_add.asp 中的 INSERT 操作 ```sql INSERT INTO t_route (route_name, departure_city, destination, days_count, price, status) VALUES (?, ?, ?, ?, ?, ?)

该脚本自动识别参数化查询，避免把VALUES (?, ?, ?)错当成具体值。

6.2 自动生成系统截图与标注（capture_screens.py）

import time from selenium import webdriver from selenium.webdriver.chrome.options import Options def capture_screens(): chrome_options = Options() chrome_options.add_argument("--headless") # 无界面运行 chrome_options.add_argument("--no-sandbox") chrome_options.add_argument("--disable-dev-shm-usage") driver = webdriver.Chrome(options=chrome_options) urls = [ ("http://localhost:8080/route_list.asp", "线路列表页"), ("http://localhost:8080/route_add.asp", "新增线路页"), ("http://localhost:8080/team_list.asp", "团队列表页") ] for url, title in urls: driver.get(url) time.sleep(2) # 等待页面渲染 # 截图并保存为 PNG driver.save_screenshot(f"screens/{title}.png") print(f"已截图：{title}") driver.quit() if __name__ == '__main__': capture_screens()

前提：需安装 ChromeDriver 并加入 PATH，或指定webdriver.Chrome("path/to/chromedriver.exe")。截图自动存入screens/目录，命名清晰，答辩 PPT 中可直接插入。

6.3 论文技术章节速成模板（Markdown 格式）

将上述脚本输出整合，形成论文中“系统实现”章节的骨架：

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