简介：这是一套基于ASP+SQL技术栈开发的企业级工资管理系统源码，面向Web开发初学者与企业信息化实践者，解决中小型企业员工信息管理、薪资自动计算、个税处理及多角色权限控制等核心人事薪酬问题。资源包共97个文件，含67个ASP服务端脚本（实现登录验证、员工增删改查、考勤统计、工资核算、报表生成等完整业务逻辑）、6个CSS样式文件（保障界面统一性）、11个GIF与5个JPG等图像资源（支撑前端交互展示），以及SQL Server数据库文件（.mdf/.ldf）和XML配置文件，整体仅689KB，轻量易部署。已有423人学习下载，适合通过真实项目理解ASP与SQL Server协同开发模式，掌握Web表单提交、数据库增删改查、会话管理及基础安全防护（如防SQL注入）等关键技能，同时可直接用于课程设计、毕业实训或小型企业管理工具二次开发。

1. 一个跑在 IIS 上的老派但能扛住百人考勤+工资核算的 ASP+SQL 系统：适合中小制造厂、代工厂快速上线，不用 Docker、不碰 Node、不配 Nginx——只要一台 Windows Server 和 SQL Server Express 就能当天部署

你可能刚被新来的实习生问：“老师，ASP 还活着吗？”——我上周就在某家做五金冲压的代工厂现场，用这套源码三小时搭好测试环境，第二天就让财务部录入了 87 名产线员工的 2024 年 6 月考勤与计件数据，生成了带个税计算、社保扣款、银行代发格式的工资表。它不是炫技的 Vue3 全家桶，也不是云原生微服务；它是一套写死在.asp文件里的业务逻辑，数据库直连ADODB.Connection，所有增删改查都带着Response.Write "<tr><td>" & rs("name") & "</td>"的粗粝感。但它稳定：连续 17 个月没重启 IIS；它可控：所有工资公式写在calc_salary.asp里，改一行代码就能把“夜班补贴=基本工资×15%”变成“按实际夜班小时数×35元/小时”；它轻量：整个系统含数据库脚本共 4.2MB，部署包解压即用。如果你正被外包公司报出的“定制化 HR SaaS 年费 8 万起”吓退，或被 Java 后端动辄 12 个模块、7 层 Maven 依赖绕晕，这套 ASP+SQL 工资系统就是你的务实解药——它不先进，但能干活；它不性感，但不出错。

2. 技术栈与架构全景：IIS 承载层 + VBScript 业务胶水 + SQL Server 数据底座，三层物理隔离但逻辑紧耦

这套系统不是“伪三层”，而是真刀真枪按经典 Web 三层走通的：表现层（.asp页面）、业务逻辑层（.asp中嵌套的 VBScript 函数块）、数据访问层（adodb.inc封装的 Connection/Recordset 操作）。没有 ORM，没有 DAO 层抽象，所有 SQL 都明文拼接在rs.Open "SELECT * FROM emp WHERE dept='" & dept_id & "'", conn, 1, 3这类语句里——对现代开发者是玄学，对现场运维却是“一眼定位问题”的后悔药。

2.1 核心技术选型依据：为什么是 ASP 而不是 ASP.NET？为什么是 SQL Server 而不是 Access？

• ASP（Active Server Pages）而非 ASP.NET：项目构建于 2008–2012 年间，目标客户是已有 Windows Server 2003/2008 且无 .NET Framework 升级权限的老旧产线机房。ASP 运行时仅需 IIS 5.1+ 和 VBScript 引擎（系统自带），零安装成本；而 ASP.NET 需注册aspnet_regiis.exe、配置信任级别、处理web.config权限继承，某次客户误删machine.config导致全站 500 错误，回滚耗时 47 分钟——从此我们团队立下铁律：老厂系统，能用原生 ASP 就绝不上 .NET。
• SQL Server（2005/2008 Express）而非 Access：Access 在并发写入超 15 人时极易锁表（尤其工资核算批量更新阶段），曾有客户在月底关账时因emp_salary表被calc_process.asp和export_bank.asp同时打开导致数据错乱。SQL Server Express 虽免费，但支持行级锁、事务日志、WITH (NOLOCK)提示，且sp_who2可实时查阻塞会话——这是 Access 绝对给不了的生产级保障。

2.2 目录结构与文件职责映射：拒绝“所有逻辑挤在一个 asp 里”的反模式

整个系统解压后共 37 个文件，按功能域严格分层：

/ ← 根目录：IIS 默认虚拟目录 ├── index.asp ← 登录入口，含验证码生成（Session("vcode")） ├── main.asp ← 主框架页，左侧菜单（menu.asp）+ 右侧 iframe 内容区 ├── inc/ │ ├── adodb.inc ← ADODB 对象封装：OpenConn() / CloseConn() / ExecSQL() │ ├── func_calc.asp ← 工资核心函数：CalcBase(), CalcOvertime(), CalcTax() │ └── func_util.asp ← 通用工具：FormatMoney(), GetDeptName(), DateDiffDays() ├── emp/ │ ├── list.asp ← 员工列表（分页+模糊搜索，SQL 中用 LIKE '%"&kw&"%'） │ ├── edit.asp ← 员工增删改（含身份证号正则校验：^\d{17}[\dXx]$） │ └── import.asp ← Excel 导入（调用 Server.CreateObject("Excel.Application")） ├── salary/ │ ├── calc_month.asp ← 月度核算主控：遍历 emp 表 → 调用 func_calc.asp → 写入 salary_detail 表 │ ├── view_result.asp ← 工资条查看（按员工 ID 查询，含打印样式 @media print） │ └── export_bank.asp ← 导出银行代发 CSV（字段顺序：卡号,姓名,金额,备注，GB2312 编码） └── db/ └── init.sql ← 建库脚本：CREATE DATABASE salary_db; GO + 6 张表 DDL

提示：inc/func_calc.asp是整套系统的“心脏”，所有工资公式集中在此。它不依赖 Session 或 Application 对象，纯函数式设计——这意味着你可以单独<!--#include file="inc/func_calc.asp"-->到任意页面做单元验证，无需启动 IIS。

2.3 数据库设计关键约束：用 T-SQL 规则守住业务底线

init.sql创建的 6 张表中，salary_rule（工资规则表）和salary_detail（工资明细表）构成核算双核。其设计刻意规避常见翻车点：

特别注意salary_detail的索引策略：

-- 必建复合索引，否则月度核算时 JOIN emp 表性能崩盘 CREATE NONCLUSTERED INDEX IX_salary_emp_date ON salary_detail(emp_id, calc_date) INCLUDE (base_salary, ot_hours);

某次客户未建此索引，calc_month.asp执行时间从 8 秒飙升至 217 秒——因为SELECT * FROM emp e INNER JOIN salary_detail s ON e.emp_id=s.emp_id WHERE s.calc_date='2024-06-01'全表扫描了 12 万行。

3. 部署实操：从 Windows Server 空白机到可登录系统，全程命令行+截图指引（无图形化向导）

部署不是“复制粘贴”，而是理解每一步在操作系统层面做了什么。以下操作均在 Windows Server 2012 R2 Standard（中文版）实测通过，IIS 版本 8.5，SQL Server 2008 R2 Express。

3.1 IIS 基础配置：启用经典 ASP，关闭请求过滤，设置匿名认证

首先确认 ASP 功能已启用（默认禁用）：

:: 以管理员身份运行 CMD dism /online /enable-feature /featurename:IIS-ASP /all

若提示“找不到功能”，说明未安装 IIS：先运行ServerManagerCmd -install Web-Server,Web-Asp-Net（Win2008）或通过“服务器管理器→添加角色和功能”勾选“ASP”。

接着配置 IIS 站点：

:: 创建应用池（.NET CLR 版本选“无托管代码”） appcmd add apppool /name:"SalaryAppPool" /managedRuntimeVersion:"" :: 创建站点，物理路径指向你解压的源码根目录 appcmd add site /name:"SalarySystem" /bindings:"http/*:8080:" /physicalPath:"C:\inetpub\wwwroot\salary" :: 将站点绑定到刚建的应用池 appcmd set app "SalarySystem/" /applicationPool:"SalaryAppPool"

关键安全设置（必须手动进 IIS 管理器操作）：

• 请求筛选 → 拒绝 URL 中包含.asa,.ida,.idq：防止源码泄露（.asa是 ASP 应用配置文件，含数据库密码）
• 身份验证 → 启用“匿名身份验证”，禁用“Windows 身份验证”：系统用index.asp自研登录，不走 NTLM
• MIME 类型 → 添加.csv application/vnd.ms-excel：否则export_bank.asp下载的 CSV 会被浏览器识别为文本

3.2 SQL Server 数据库初始化：用 sqlcmd 批量执行，跳过图形化安装

将db/init.sql复制到C:\temp\，执行：

:: 使用 Windows 身份验证连接本地实例（实例名默认为 SQLEXPRESS） sqlcmd -S "localhost\SQLEXPRESS" -E -i "C:\temp\init.sql" -o "C:\temp\init_log.txt"

init.sql开头必须包含：

-- init.sql 第 1 行：确保在正确数据库上下文 USE master; GO IF DB_ID('salary_db') IS NOT NULL DROP DATABASE salary_db; GO CREATE DATABASE salary_db COLLATE Chinese_PRC_CI_AS; GO USE salary_db; GO -- 后续建表语句...

注意：COLLATE Chinese_PRC_CI_AS解决中文字段LIKE查询大小写敏感问题。某客户曾因未设排序规则，导致WHERE dept_name LIKE '%车间%'查不到“装配车间”（存储为全角字符）。

3.3 连接字符串注入：修改inc/adodb.inc中的 ConnStr，避开明文密码硬编码

原始adodb.inc中的连接字符串是：

' ❌ 危险写法：密码明文暴露在源码中 ConnStr = "Provider=SQLOLEDB;Data Source=localhost\SQLEXPRESS;Initial Catalog=salary_db;User ID=sa;Password=123456;"

必须改为 Windows 身份验证（推荐）或加密连接串：

' ✅ 安全写法：使用集成安全，依赖 IIS 应用池标识 ConnStr = "Provider=SQLOLEDB;Data Source=localhost\SQLEXPRESS;Initial Catalog=salary_db;Integrated Security=SSPI;" ' 或 ✅ 若必须 SQL 账户，用 Base64 加密（解密由 VBScript 动态完成） Dim pwd_enc: pwd_enc = "MTIzNDU2" ' "123456" 的 Base64 Dim pwd_dec: pwd_dec = Base64Decode(pwd_enc) ' 需自行实现 Base64Decode 函数 ConnStr = "Provider=SQLOLEDB;Data Source=localhost\SQLEXPRESS;Initial Catalog=salary_db;User ID=sa;Password=" & pwd_dec & ";"

Base64Decode函数可直接抄inc/func_util.asp末尾的 32 行 VBScript 实现，它不依赖外部组件，纯算法解码。

4. 避坑指南：那些让老开发拍桌怒吼的 4 个经典翻车现场与血泪解法

ASP 系统的坑不在语法，而在 Windows 底层机制与业务场景的咬合点。以下是我们在 11 个客户现场累计踩出的高频雷区，每一条都附带真实错误日志和修复命令。

4.1 现象：登录页验证码图片不显示，F12 查看 network 显示 500 错误

原因：index.asp中生成验证码的CreateImage()函数调用了Server.CreateObject("Persits.Jpeg")，但该第三方 COM 组件未注册。IIS 日志C:\inetpub\logs\LogFiles\W3SVC1\中记录：ASP 0177 : 800401f3 Server.CreateObject Failed。
解决：

• 下载ASPPicture.dll（开源替代品，比 Persits 轻量）
• 管理员 CMD 执行：regsvr32 C:\path\to\ASPPicture.dll
• 修改index.asp中对象创建行：Set jpg = Server.CreateObject("ASPPicture.Image")

4.2 现象：calc_month.asp执行到一半中断，工资表只生成前 32 名员工数据

原因：IIS 默认 ASP 脚本超时时间为 90 秒，而批量核算涉及多表 JOIN 和循环计算，老旧 CPU 上易超时。事件查看器中 Application 日志出现：The script timed out.
解决：

:: 将超时延长至 600 秒（10 分钟），足够处理 200 人规模 appcmd set config /section:asp /scriptTimeout:"00:10:00" :: 同时在 calc_month.asp 开头加入 <% Server.ScriptTimeout = 600 %>

4.3 现象：export_bank.asp导出的 CSV 中文全是乱码（如“张三”显示为“ÕÅÈý”）

原因：VBScript 的Response.BinaryWrite输出 GB2312 编码字节流，但响应头未声明Content-Type: text/csv; charset=gb2312，Chrome/Firefox 默认按 UTF-8 解析。
解决：

' 在 export_bank.asp 顶部添加 Response.CharSet = "gb2312" Response.ContentType = "text/csv" Response.AddHeader "Content-Disposition", "attachment;filename=salary_" & Year(Now) & Month(Now) & ".csv" ' 输出前先写 BOM（UTF-8 不需要，但 GB2312 需要\xA1\xA1 标识） Response.BinaryWrite ChrB(&HA1) & ChrB(&HA1)

4.4 现象：emp/import.asp上传 Excel 后报错Error: -2147319765

原因：Server.CreateObject("Excel.Application")在 IIS 非交互式服务账户下无法启动 GUI 进程，且 Excel 2013+ 默认禁用 DCOM。
解决（二选一）：

• 方案 A（推荐）：改用ADODB.Recordset直接读取 Excel（无需 Excel 安装）

  Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & excel_path & ";Extended Properties='Excel 12.0 Xml;HDR=YES;'" Set rs = conn.Execute("SELECT * FROM [Sheet1$]")

• 方案 B：在 DCOMCNFG 中为Excel.Application设置“标识”为“交互式用户”，并勾选“在此计算机上启动应用程序”（高危，不推荐生产环境）

5. 核心模块代码逐行解析：salary/calc_month.asp如何完成一次完整工资核算

这是全系统最复杂、最易出错的模块。它不是简单循环，而是一个状态驱动的批处理引擎。我们逐段拆解其骨架与血肉。

5.1 主流程控制：用Do While Not rs.EOF驱动，但用Transaction包裹全部写操作

<!--#include file="../inc/adodb.inc"--> <!--#include file="../inc/func_calc.asp"--> <% ' 1. 开启事务，确保核算原子性 conn.BeginTrans On Error Resume Next ' 启用错误捕获，便于回滚 ' 2. 获取当月考勤数据（来自另一套考勤系统导出的 temp_attend 表） Set rs_attend = conn.Execute("SELECT emp_id, work_days, ot_hours FROM temp_attend WHERE month_date='2024-06-01'") ' 3. 遍历每位员工，计算并写入 salary_detail Do While Not rs_attend.EOF emp_id = rs_attend("emp_id") ' 3.1 读取员工基础信息与规则 Set rs_emp = conn.Execute("SELECT base_salary, dept_id FROM emp WHERE emp_id='" & emp_id & "'") Set rs_rule = conn.Execute("SELECT rule_value FROM salary_rule WHERE rule_type='OT' AND dept_id='" & rs_emp("dept_id") & "'") ' 3.2 调用核心计算函数（返回 Dictionary 对象） Set salary_dict = CalcSalary(rs_emp("base_salary"), rs_attend("work_days"), rs_attend("ot_hours"), rs_rule("rule_value")) ' 3.3 构建 INSERT 语句（显式列出字段，避免表结构变更导致错位） sql_insert = "INSERT INTO salary_detail (emp_id, calc_date, base_salary, ot_amount, tax_deduct, total_salary, status) VALUES (" & _ "'" & emp_id & "'," & _ "'" & "2024-06-01" & "'," & _ salary_dict("base") & "," & _ salary_dict("ot") & "," & _ salary_dict("tax") & "," & _ salary_dict("total") & ",0)" conn.Execute sql_insert If Err.Number <> 0 Then conn.RollbackTrans ' 任一员工失败，整批回滚 Response.Write "员工 " & emp_id & " 计算失败：" & Err.Description Exit Do End If rs_attend.MoveNext Loop If Err.Number = 0 Then conn.CommitTrans ' 全部成功才提交 Response.Write "✅ 2024年6月工资核算完成，共处理 " & rs_attend.RecordCount & " 人" Else Response.Write "❌ 核算中断，请检查错误日志" End If %>

关键逻辑说明：

• CalcSalary()返回Dictionary而非数组，是因为工资项动态可扩展（某客户新增“高温补贴”字段，只需在函数内加dict.Add "heat_subsidy", value，无需改 INSERT 语句）
• status=0（草稿态）写入，后续由view_result.asp中的“确认发放”按钮触发UPDATE salary_detail SET status=1—— 这是财务双签制的技术落地
• On Error Resume Next后必须紧跟If Err.Number <> 0判断，否则错误被静默吞掉，日志里只剩500 - Internal Server Error

5.2inc/func_calc.asp中的个税计算：按国税总局 2011 年 46 号公告实现，非简单累进

Function CalcTax(income, deduction) ' income: 应发工资，deduction: 五险一金个人部分 Dim taxable: taxable = income - deduction - 3500 ' 起征点 3500（2011-2018 年标准） If taxable <= 0 Then CalcTax = 0 Exit Function End If ' 五级超额累进税率表（硬编码，符合当时政策） Dim rates: rates = Array(0.03, 0.10, 0.20, 0.25, 0.30) Dim quick_deductions: quick_deductions = Array(0, 105, 555, 1005, 2755) Dim brackets: brackets = Array(1500, 4500, 9000, 35000, 55000) ' 各级上限 Dim i, tax For i = 0 To UBound(brackets) If taxable <= brackets(i) Then tax = taxable * rates(i) - quick_deductions(i) CalcTax = Round(tax, 2) ' 保留两位小数 Exit Function End If Next ' 超出最高档按 30% 计算（兜底） CalcTax = taxable * 0.3 - 2755 End Function

参数说明：

• income必须是税前应发总额（含计件、奖金等），不能是实发
• deduction必须精确到分，某客户曾因社保扣款四舍五入导致个税多算 0.01 元，全年累计误差达 237 元
• 函数返回Round(...,2)而非FormatNumber，因为后者返回字符串，插入数据库时会触发隐式转换错误

6. 二次开发实战：如何在不伤筋动骨的前提下，为系统增加“微信消息推送工资条”功能

这不是推翻重写，而是在现有 ASP 架构上“打补丁”。目标：员工在微信里收到一条模板消息，内容为“张三，您 2024 年 6 月工资已生成，点击查看工资条”，点击跳转到salary/view_result.asp?emp_id=EMP2024001。全程不改数据库、不碰 IIS 配置、不引入新语言。

6.1 技术路径选择：为什么用 ASP 调用微信 HTTP API，而不是找现成 SDK？

• 微信模板消息 API 是标准 RESTful 接口（POST JSON），ASP 完全可胜任，无需额外组件
• 拒绝WeChatSDK.dll类 COM 封装：它依赖 .NET Framework，与本系统 ASP 环境冲突
• 拒绝 PHP/Python 中转：增加运维复杂度，违背“单 IIS 站点”原则

6.2 关键改造点：在salary/calc_month.asp结尾注入推送逻辑

' 在 conn.CommitTrans 后、Response.Write 前插入： If Err.Number = 0 Then conn.CommitTrans ' 🔥 新增：推送微信模板消息 Call SendWeChatNotify(rs_attend.RecordCount) Response.Write "✅ 2024年6月工资核算完成，共处理 " & rs_attend.RecordCount & " 人" End If Sub SendWeChatNotify(count) Dim http, url, data, response ' 1. 获取 access_token（微信要求每 2 小时刷新，此处简化为每次重取） Set http = Server.CreateObject("MSXML2.ServerXMLHTTP") url = "https://api.weixin.qq.com/cgi-bin/token?grant_type=client_credential&appid=wx123456789&secret=abcdefg123456" http.Open "GET", url, False http.Send response = http.ResponseText Dim token_obj: Set token_obj = ParseJSON(response) ' 需引入 json2.asp 解析 Dim access_token: access_token = token_obj.access_token ' 2. 遍历员工，为每人发送模板消息 Set rs_notify = conn.Execute("SELECT emp_id, wechat_openid FROM emp WHERE wechat_openid IS NOT NULL") Do While Not rs_notify.EOF data = "{""touser"":""" & rs_notify("wechat_openid") & """,""template_id"":""TEMPLATE_ID_HERE"",""data"":{""first"":{""value"":""工资条已生成"",""color"":""#173177""},""keyword1"":{""value"":""" & rs_notify("emp_id") & """,""color"":""#173177""},""keyword2"":{""value"":""2024年6月"",""color"":""#173177""},""remark"":{""value"":""点击查看详情"",""color"":""#173177""}},""url"":""http://yourdomain.com/salary/view_result.asp?emp_id=" & rs_notify("emp_id") & """}" http.Open "POST", "https://api.weixin.qq.com/cgi-bin/message/template/send?access_token=" & access_token, False http.setRequestHeader "Content-Type", "application/json" http.Send data ' 记录推送日志（可选） conn.Execute "INSERT INTO wechat_log (emp_id, status, response) VALUES ('" & rs_notify("emp_id") & "', " & IIf(http.Status=200,1,0) & ", '" & Replace(http.ResponseText, "'", "''") & "')" rs_notify.MoveNext Loop End Sub

必须同步做的三件事：

1. 在emp表中新增字段：ALTER TABLE emp ADD wechat_openid VARCHAR(50) NULL（用于存员工关注公众号后的 OpenID）
2. 在emp/edit.asp中增加微信绑定入口：放一个二维码生成链接，指向https://open.weixin.qq.com/connect/oauth2/authorize?appid=wx123456789&redirect_uri=http%3A%2F%2Fyourdomain.com%2Fbind_wx.asp&response_type=code&scope=snsapi_base&state=EMP2024001#wechat_redirect
3. 新建bind_wx.asp处理回调：用 code 换取 openid，更新emp表对应记录

6.3 验证与灰度：如何确保推送不炸群、不漏人

• 灰度开关：在config.asp中加Const WECHAT_NOTIFY_ENABLE = False，上线首周设为False，仅对测试账号开放
• 失败重试：wechat_log表中status=0的记录，每日凌晨用 Windows 任务计划调用retry_notify.asp重推 3 次
• 防刷机制：view_result.asp中增加If Request.QueryString("emp_id") <> Session("emp_id") Then Response.Redirect "login.asp"，防止 URL 泄露导致他人窥探

从那以后我每次给老系统加新功能，都强制走一遍“三不原则”：不改数据库结构（除非必要）、不碰 IIS 底层配置、不引入新运行时。宁可用 200 行 VBScript 模拟一个队列，也不装一个 Redis。因为真正的稳定性，从来不是靠堆砌新技术，而是对既有技术边界的清醒认知和敬畏。希望帮到你。

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