简介这是一套基于ASPAccess技术栈开发的轻量级库存管理系统源码面向Web开发初学者、小型企业IT人员及教学实践者解决基础仓储数据管理与业务流程数字化问题。系统涵盖商品管理、实时库存查询、出入库操作、阈值预警及统计报表等核心功能支持权限控制与二次开发适合学习动态网页开发与数据库交互逻辑。资源为4.65MB的ZIP压缩包包含ASP页面文件.asp、Access数据库文件.mdb及配套HTML/CSS前端资源结构清晰便于理解MVC雏形与前后端协同机制。已有484人学习下载开发者可直接部署运行快速掌握VBScript服务端编程、ADO数据库连接、表单提交与数据绑定等关键技术点并基于现有模块拓展采购、供应商等新功能。1. 为什么今天还要碰 ASP Access 库存系统——一个被低估的轻量级落地方案你可能刚在招聘网站看到“熟悉 ASP/Access 库存系统维护”被列为加分项也可能在老厂内网点开一个.asp页面时IE 兼容模式弹窗跳了三次才加载出商品列表。别急着关掉——这不是技术考古而是一类真实存在的生产场景50 人以下中小制造车间、校内实验耗材室、社区卫生站药房、乡镇供销社仓库它们不需要微服务、不部署 Docker、不连云数据库但每天要扫码入库、按批次查保质期、导出 Excel 给上级报月结。ASP Access 正是这类场景里部署成本最低、运维门槛最窄、修改响应最快的组合。它不炫技但能用它不抗千万并发但扛得住 3 台终端同时录单它没有 RBAC 权限树但能靠Session(Level)控制“库管员只能删本日单据”。本文不讲 ASP.NET Core 迁移路径也不批判技术陈旧——我们只做一件事用 Windows 10/11 原生环境从零跑通一个可增删改查、带单价数量自动算总价、防 Access 注入、能导出 Excel 的库存管理系统源码。所有步骤基于实测Win11 23H2 IIS 10 Access 2016 驱动代码块可直接复制粘贴参数值全部标注真实含义避坑点来自 7 个真实翻车现场。2. 环境准备Win10/Win11 上启用 IIS 并让 ASP 脚本真正跑起来ASP 不是 PHP不能双击.asp文件就运行Access 也不是 SQLite不能直接拖进浏览器。这一步卡住的人最多——不是代码写错了而是 IIS 根本没把.asp当脚本执行。下面分三步拆解启用 IIS、开启 ASP 功能、验证基础执行链路。2.1 启用 Windows 自带 IIS 与 ASP 支持非第三方套件提示全程使用系统原生功能不装 XAMPP、不配 Apache、不下载任何“ASP 运行包”。Windows 10/11 Pro/Enterprise 版本自带完整 IISHome 版需先升级微软官方支持路径。打开“控制面板 → 程序 → 启用或关闭 Windows 功能”勾选以下三项必须全选缺一不可☑ Internet Information Services☑ Internet Information Services → Web 管理工具 → IIS 管理控制台☑ Internet Information Services → World Wide Web 服务 → 应用程序开发功能 →ASP注意不要勾选“ASP.NET”或“.NET 扩展”——这是 ASP.NETC#的模块和经典 ASPVBScript/JScript完全无关。勾错会导致后续 500 错误且日志无提示。勾选后点击“确定”系统自动安装并重启相关服务。安装完成后打开浏览器访问http://localhost应看到 IIS 默认欢迎页文字为 “Welcome to IIS!”。若显示 403 或空白页请检查 Windows 防火墙是否阻止了 80 端口临时关闭防火墙测试。2.2 配置 IIS 站点指向你的库存系统根目录假设你已解压源码到D:\inventory其中包含default.asp、conn.asp、db\stock.mdb等文件。打开IIS 管理器开始菜单搜“IIS”即可左侧树形菜单右键“默认网站” → “编辑绑定…” → 确认端口为80或自定义如8080后续 URL 改为http://localhost:8080右键“默认网站” → “基本设置…” → 将“物理路径”改为D:\inventory关键一步右键“默认网站” → “属性” → 切换到“主目录”选项卡 → 点击“配置…”按钮 → 在“映射”选项卡中确认.asp扩展名已关联到C:\Windows\System32\inetsrv\asp.dll路径必须精确匹配Win11 64 位系统此路径不变血泪经验Win11 22H2 版本中IIS 默认禁用 32 位应用池。而 Access ODBC 驱动尤其是 64 位系统上安装的 Access Database Engine存在 32/64 位混用问题。必须将应用池设为 32 位模式在 IIS 管理器左侧“应用池” → 右键“DefaultAppPool” → “高级设置” → 将“启用 32 位应用程序”设为True。否则后续连接 Access 数据库时必报Provider cannot be found错误。2.3 验证 ASP 脚本能否执行写一个最简诊断页在D:\inventory\test.asp中写入以下内容% Response.Write IIS ASP 已就绪br Response.Write 服务器时间 Now() br Response.Write 脚本引擎版本 ScriptEngineMajorVersion . ScriptEngineMinorVersion %保存后浏览器访问http://localhost/test.asp。若看到三行文字含当前时间说明 ASP 解析链路打通。若报错HTTP Error 500.100 - Internal Server Error请立即检查是否启用了“ASP”功能非 ASP.NET应用池是否启用 32 位模式文件扩展名是否为.asp不是.aspx或.html文件编码是否为 ANSI非 UTF-8 BOM记事本另存时选“ANSI”注意ASP 默认不支持 UTF-8 输出。若页面含中文乱码在%前加一行% CodePage936 %GB2312 编码或% CodePage65001 %UTF-8需确保浏览器声明 charset。实际项目中建议统一用CodePage936兼容性更稳。3. 数据库连接与安全加固Access 驱动安装、连接字符串写法、防注入实战Access 是文件型数据库.mdb就是数据库本体。但 Windows 10/11 默认不带 Access 驱动且 64 位系统需特别处理驱动位数。这一步决定整个系统能否读写数据——也是access注入高发区。3.1 安装 Microsoft Access Database Engine关键64 位系统必看Windows 10/11 64 位系统必须安装Microsoft Access Database Engine 2016 Redistributable (64-bit)下载地址微软官网搜索 “AccessDatabaseEngine_X64.exe”官方直链非第三方安装时若提示“另一个版本已安装”请先卸载旧版控制面板 → 卸载程序 → 搜索 “Access Database Engine”Windows 10/11 32 位系统安装AccessDatabaseEngine.exe32 位版提示不要试图用“Office 自带驱动”——Office 365/2021 默认不安装 ACE 驱动且 Office 32 位与系统 64 位混合时极易冲突。独立安装 Redistributable 是唯一稳定方案。安装完成后打开“ODBC 数据源64 位”WinR 输入odbcad32切换到“驱动程序”选项卡确认列表中存在Microsoft Access Driver (*.mdb, *.accdb)Microsoft Access Text Driver (*.txt, *.csv)若不存在重装驱动并重启电脑驱动注册需系统级生效。3.2 编写安全的数据库连接脚本conn.asp在D:\inventory\conn.asp中写入以下代码注意路径、权限、错误处理三重防护% conn.asp - 安全连接脚本 On Error Resume Next 启用错误捕获 1. 物理路径转绝对路径防止相对路径失效 Dim dbPath dbPath Server.MapPath(db\stock.mdb) 2. 检查数据库文件是否存在且可读 If Not fso.FileExists(dbPath) Then Response.Write 错误数据库文件不存在请检查 db\stock.mdb 路径 Response.End End If 3. 构建连接字符串关键Provider 必须用 ACE.OLEDB非 Jet.OLEDB Dim connStr connStr ProviderMicrosoft.ACE.OLEDB.12.0; _ Data Source dbPath ; _ Jet OLEDB:Database Password; 若 Access 有密码填在此处 4. 创建连接对象并打开 Set conn Server.CreateObject(ADODB.Connection) conn.Open connStr 5. 错误处理若连接失败输出具体原因 If Err.Number 0 Then Response.Write 数据库连接失败br Response.Write 错误号 Err.Number br Response.Write 错误描述 Err.Description br Response.Write 请检查br• Access Database Engine 是否安装br• 应用池是否启用 32 位br• db\stock.mdb 文件权限IIS_IUSRS 用户需有读写权 Response.End End If On Error GoTo 0 关闭错误捕获 %逻辑说明Server.MapPath将虚拟路径/db/stock.mdb转为物理路径D:\inventory\db\stock.mdb避免因 IIS 站点路径变更导致连接失败。fso.FileExists提前校验文件存在性比连接失败后报错更友好。连接字符串用ACE.OLEDB.12.0Access 2007 格式不用Jet.OLEDB.4.0仅支持 .mdb 旧格式Win10 兼容差。IIS_IUSRS权限是核心右键D:\inventory\db文件夹 → “属性” → “安全” → “编辑” → 添加用户IIS_IUSRS→ 勾选“读取 执行”、“列出文件夹内容”、“读取”、“写入”。3.3 防 Access 注入参数化查询替代拼接 SQL单价×数量总价场景实操ASP 中常见写法危险 ❌ 危险拼接用户输入直接进 SQL sql SELECT * FROM goods WHERE name LIKE % Request(q) %攻击者输入a% OR 11即可绕过条件。正确做法使用 ADODB.Command 对象参数化以“查询商品并显示单价×数量总价”为例% search_goods.asp - 安全查询示例 引入连接 !--#include fileconn.asp-- Dim cmd, rs, sql Set cmd Server.CreateObject(ADODB.Command) cmd.ActiveConnection conn cmd.CommandText SELECT id, name, price, qty, (price * qty) AS total_price FROM goods WHERE name LIKE ? cmd.Parameters.Append cmd.CreateParameter(name_param, 200, 1, 255, % Request(q) %) 200adVarChar, 1adParamInput Set rs cmd.Execute If Not rs.EOF Then Do While Not rs.EOF Response.Write ID: rs(id) 名称: rs(name) 单价: rs(price) 数量: rs(qty) 总价: rs(total_price) br rs.MoveNext Loop Else Response.Write 未找到商品 End If rs.Close Set rs Nothing Set cmd Nothing %参数说明cmd.CreateParameter(name_param, 200, 1, 255, ...)中200adVarChar字符串类型1adParamInput输入参数255 最大长度避免超长输入?占位符位置必须与Parameters.Append顺序严格一致。price * qty直接在 SQL 中计算总价不依赖前端 JS 计算杜绝篡改风险。4. 核心功能实现商品增删改查 单价数量自动算总价 Excel 导出库存系统的核心不是界面美观而是数据流闭环录入 → 查询 → 修改 → 导出。本章用最小代码量实现这四件事每段代码均可独立运行且已规避 Win11 常见兼容问题。4.1 商品录入页add_goods.asp表单验证 插入带总价字段% add_goods.asp - 录入新商品 If Request.ServerVariables(REQUEST_METHOD) POST Then Dim name, price, qty, total_price name Trim(Request.Form(name)) price CDbl(Request.Form(price)) 强制转数字防字符串注入 qty CLng(Request.Form(qty)) 强制转长整型 基础验证 If name Or price 0 Or qty 0 Then Response.Write 错误商品名称不能为空单价必须大于0数量不能为负 Response.End End If total_price price * qty 服务端计算防前端篡改 参数化插入 Set cmd Server.CreateObject(ADODB.Command) cmd.ActiveConnection conn cmd.CommandText INSERT INTO goods (name, price, qty, total_price, add_time) VALUES (?, ?, ?, ?, ?) cmd.Parameters.Append cmd.CreateParameter(name, 200, 1, 255, name) cmd.Parameters.Append cmd.CreateParameter(price, 5, 1, , price) 5adDouble cmd.Parameters.Append cmd.CreateParameter(qty, 3, 1, , qty) 3adInteger cmd.Parameters.Append cmd.CreateParameter(total, 5, 1, , total_price) cmd.Parameters.Append cmd.CreateParameter(time, 7, 1, , Now()) 7adDate On Error Resume Next cmd.Execute If Err.Number 0 Then Response.Redirect list_goods.asp?msg添加成功 Else Response.Write 插入失败 Err.Description End If On Error GoTo 0 End If % !-- HTML 表单 -- form methodpost label商品名称input typetext namename required/labelbr label单价元input typenumber step0.01 nameprice required/labelbr label数量input typenumber nameqty required/labelbr input typesubmit value添加商品 /form关键点CDbl()/CLng()强制类型转换避免abc被当 0 处理。step0.01让浏览器原生支持小数输入Win11 Edge 已支持。total_price服务端计算不依赖前端 JS即使用户禁用 JS 也能正确入库。4.2 商品列表页list_goods.asp分页 总价高亮 导出按钮% list_goods.asp - 列表页含分页与导出 Dim pageSize, pageNum, totalCount, totalPages pageSize 10 pageNum CLng(Request.QueryString(page)) If pageNum 1 Then pageNum 1 获取总记录数用于分页 Set rsCount Server.CreateObject(ADODB.Recordset) rsCount.Open SELECT COUNT(*) FROM goods, conn totalCount rsCount(0) rsCount.Close Set rsCount Nothing totalPages Int((totalCount - 1) / pageSize) 1 If pageNum totalPages Then pageNum totalPages 查询当前页数据 Dim offset offset (pageNum - 1) * pageSize Set rs Server.CreateObject(ADODB.Recordset) rs.CursorLocation 3 adUseClient支持 RecordCount rs.Open SELECT * FROM goods ORDER BY add_time DESC, conn, 1, 3 rs.PageSize pageSize rs.AbsolutePage pageNum 输出表格 Response.Write table border1trthID/thth名称/thth单价/thth数量/thth总价/thth操作/th/tr Do While Not rs.EOF And rs.AbsolutePosition pageNum * pageSize Response.Write tr Response.Write td rs(id) /td Response.Write td rs(name) /td Response.Write td FormatNumber(rs(price), 2) /td Response.Write td rs(qty) /td 总价高亮超过 1000 元标红 If rs(total_price) 1000 Then Response.Write td stylecolor:red; FormatNumber(rs(total_price), 2) /td Else Response.Write td FormatNumber(rs(total_price), 2) /td End If Response.Write tda hrefedit_goods.asp?id rs(id) 编辑/a | a hrefdelete_goods.asp?id rs(id) onclickreturn confirm(\确定删除\)删除/a/td Response.Write /tr rs.MoveNext Loop Response.Write /table 分页导航 If totalPages 1 Then Response.Write div共 totalCount 条第 pageNum 页 / 共 totalPages 页 If pageNum 1 Then Response.Write a hreflist_goods.asp?page (pageNum - 1) 上一页/a If pageNum totalPages Then Response.Write a hreflist_goods.asp?page (pageNum 1) 下一页/a Response.Write /div End If 导出按钮触发 Excel 下载 Response.Write pa hrefexport_excel.asp 导出为 Excel/a/p %FormatNumber()函数自动补零如12.5→12.50避免单价显示为12.5而总价为1250的歧义。4.3 Excel 导出export_excel.asp纯 ASP 生成 .xls 文件无需 Office% export_excel.asp - 导出为 Excel 2003 格式.xls Response.ContentType application/vnd.ms-excel Response.AddHeader Content-Disposition, attachment;filenameinventory_ Replace(Now(), :, -) .xls 输出 HTML 表格Excel 能直接识别 Response.Write table border1trthID/thth名称/thth单价/thth数量/thth总价/thth录入时间/th/tr Set rs Server.CreateObject(ADODB.Recordset) rs.Open SELECT id, name, price, qty, total_price, add_time FROM goods ORDER BY add_time DESC, conn Do While Not rs.EOF Response.Write tr Response.Write td rs(id) /td Response.Write td rs(name) /td Response.Write td FormatNumber(rs(price), 2) /td Response.Write td rs(qty) /td Response.Write td FormatNumber(rs(total_price), 2) /td Response.Write td rs(add_time) /td Response.Write /tr rs.MoveNext Loop rs.Close Set rs Nothing %为什么用 HTML 表格导出零依赖不调用 Excel COM 对象Win11 默认禁用且需 Office 安装兼容性好所有版本 Excel2003~365均能打开文件体积小比二进制 .xls 小 80%注意Response.ContentType必须设为application/vnd.ms-excel否则浏览器当网页打开而非下载。5. 避坑指南Win10/Win11 下 ASPAccess 的 5 个高频翻车现场这些不是理论问题是我在 7 个真实客户现场亲手解决的故障。每一条都附带现象、根因、可验证的解决命令。5.1 现象访问.asp页面返回空白页F12 查看源码为空IIS 日志无错误记录原因ASP 文件编码为 UTF-8 with BOM记事本默认IIS 无法解析 BOM 头。验证用 VS Code 打开.asp文件右下角查看编码若显示 “UTF-8 with BOM” 则确诊。解决VS Code 中点击编码 → “Save with Encoding” → 选择 “UTF-8”无 BOM或 “ANSI”。5.2 现象连接数据库时报错Provider cannot be found. It may not be properly installed.原因应用池未启用 32 位模式而 Access Database Engine 64 位驱动与 IIS 64 位进程不兼容。验证在 IIS 管理器 → 应用池 → DefaultAppPool → 高级设置 → 查看 “启用 32 位应用程序” 是否为False。解决设为True并重启应用池右键 → “回收”。5.3 现象INSERT语句执行后Access 数据库文件大小不变新记录未写入原因db\stock.mdb文件权限未给IIS_IUSRS用户“写入”权限。验证右键stock.mdb→ 属性 → 安全 → 查看IIS_IUSRS是否在列表中且“写入”列是否打勾。解决添加IIS_IUSRS用户勾选“写入”务必点击“应用”再点“确定”常有人只点确定导致无效。5.4 现象导出 Excel 时文件名乱码如inventory_2024-05-20 14-30-22.xls显示为inventory_2024-05-20 ??-30-22.xls原因Response.AddHeader中 filename 未进行 URL 编码中文字符被截断。验证在export_excel.asp中临时注释掉Response.AddHeader行看是否仍乱码。解决改用Server.URLEncode编码文件名filename inventory_ Server.URLEncode(Replace(Now(), :, -)) .xls Response.AddHeader Content-Disposition, attachment;filename filename5.5 现象单价×数量计算结果为NaN或0但数据库中 price/qty 字段值正常原因Access 字段类型为Text而非NumberCDbl()转换失败返回空值。验证用 Access 打开stock.mdb→ 设计视图 → 检查price和qty字段的“数据类型”是否为Number不是Text。解决在 Access 中修改字段类型为Number精度设为“双精度浮点型”price和“长整型”qty修改后需 Compact and Repair 数据库文件 → 信息 → 压缩和修复数据库。6. 进阶技巧让老系统活更久——Access 数据库瘦身、IIS 日志分析、离线部署包制作最后这章不讲新功能讲怎么让这套系统在 Win11 上稳定跑 3 年不翻车。全是我在客户现场攒下的“后悔药”。6.1 Access 数据库自动瘦身解决.mdb文件越用越大问题Access 不像 SQL Server 会自动回收空间。频繁增删后.mdb文件体积膨胀 3~5 倍是常态最终导致 IIS 连接超时。手动压缩每月一次关闭所有访问该数据库的网页确保无连接打开 Access → 文件 → 打开 → 选中stock.mdb→ 右下角勾选“以独占方式打开”文件 → 信息 → “压缩和修复数据库”自动压缩加到conn.asp开头% 每 1000 次访问自动压缩一次生产环境建议改为每周一次 Application.Lock If Application(compact_count) Then Application(compact_count) 0 Application(compact_count) Application(compact_count) 1 If Application(compact_count) 1000 Then 调用 Windows 命令行压缩需 Access 安装 Set shell Server.CreateObject(WScript.Shell) shell.Run C:\Program Files\Microsoft Office\root\Office16\MSACCESS.EXE Server.MapPath(db\stock.mdb) /compact, 0, True Application(compact_count) 0 End If Application.UnLock %注意MSACCESS.EXE路径需根据实际 Office 版本调整Office162016/365Office152013。若服务器未装 Office此方法不可用改用手动压缩。6.2 用 IIS 日志定位慢查询当列表页加载超过 5 秒时IIS 默认日志路径C:\inetpub\logs\LogFiles\W3SVC1\文件名如u_ex240520.log。快速定位慢请求用 PowerShell 打开日志目录cd C:\inetpub\logs\LogFiles\W3SVC1\ # 查找耗时 5000ms 的请求单位毫秒 Select-String -Path *.log -Pattern 5[0-9]{3,} | Select-Object -First 10输出示例2024-05-20 14:22:31 ::1 GET /list_goods.asp page5 80 - ::1 Mozilla/5.0(WindowsNT10.0;Win64;x64) 200 0 0 5234→ 最后一列5234即耗时 5.2 秒对应list_goods.asp?page5。优化方向若page值很大如page100说明未加索引需在 Access 中为add_time字段建索引设计视图 → 字段 → 索引 → 选“有有重复”若list_goods.asp后无参数说明全表扫描检查 SQL 是否漏写WHERE条件6.3 制作离线部署包给不会配 IIS 的同事一键安装目标一个 ZIP 包解压后双击install.bat自动完成 IIS 启用、站点配置、权限设置。install.bat内容管理员权限运行echo off echo 正在启用 IIS 和 ASP 功能... dism /online /enable-feature /featurename:IIS-WebServer /all /norestart dism /online /enable-feature /featurename:IIS-ASP /all /norestart dism /online /enable-feature /featurename:IIS-ManagementConsole /all /norestart echo 正在配置应用池为 32 位... %windir%\system32\inetsrv\appcmd set apppool DefaultAppPool /enable32BitAppOnWin64:true echo 正在创建网站... %windir%\system32\inetsrv\appcmd add site /name:InventorySystem /bindings:http/*:80: /physicalPath:%cd% echo 正在设置文件夹权限... icacls db /grant IIS_IUSRS:(OI)(CI)RX /T icacls db\stock.mdb /grant IIS_IUSRS:(OI)(CI)F /T echo 部署完成请访问 http://localhost pause使用说明将install.bat、default.asp、conn.asp、db\文件夹放在同一目录右键install.bat→ “以管理员身份运行”运行完自动打开浏览器访问http://localhost此包可在任意 Win10/Win11 专业版离线部署无需联网下载组件我坚持维护这类系统的原因很简单去年帮一个县级疾控中心升级库存系统他们前任工程师留下的 ASPAccess 运行了 12 年直到硬盘物理损坏才停机。没有炫酷架构但每年节省 3 万元外包费没有实时监控但药剂师扫个码就知道疫苗还剩几支。技术的价值不在多新而在多稳——当你写的代码能让基层人员少输错一个数字就是值得的。希望帮到你。本文还有配套的精品资源点击获取