简介这是一套基于ASP与SQL Server构建的企业级工资管理Web系统源码面向Web开发初学者、ASP技术学习者及中小企业信息化建设人员解决薪资计算、员工信息维护、部门薪酬统计等典型HR管理场景需求。资源共97个文件含67个ASP服务端脚本实现登录验证、员工增删改查、考勤录入、工资核算、报表生成等核心逻辑、11个GIF与5个JPG/PNG图片用于界面图标与布局、6个CSS样式表含admin.css、table.css等支撑多角色后台界面、以及SQL Server数据库文件mdf/ldf和XML配置文件整体压缩包仅689KB轻量易部署。已有423人学习下载源码结构清晰包含完整前后端模块从login.asp、main.asp入口到User_gz.asp、listsalaryinfo.asp等业务页面覆盖权限控制、数据安全防护如防SQL注入基础实践及典型三层交互逻辑是掌握ASPSQL Web开发全流程的优质实战范例。1. 一个跑在 IIS 上的「老派但能打」工资系统ASP SQL Server 组合三步就能拉起完整增删改查流程适合中小企快速部署或教学演示你可能觉得 ASP 是上古技术但某高校实验室去年给本地五家制造类中小企业做数字化轻量改造时用这套 ASPSQL 工资系统源码平均 3.2 小时就完成了部署上线——不是演示是真正在用它发当月工资条、导出社保基数报表、做部门薪资结构分析。它不碰微服务、不搞前后端分离所有逻辑压在 .asp 页面里数据库直连 SQL Server没有 ORM 层抽象也没有中间件兜底。这意味着第一你改一行 SQL 就能立刻看到工资计算结果变化第二它对服务器要求极低Windows Server 2008 R2 IIS 7.5 SQL Server 2008 就能稳跑第三所有业务规则比如个税速算扣除数、加班费倍率、社保公积金比例都明文写在 VBScript 里没有黑匣子。如果你正带学生做毕业设计、接手一个要维护的老系统、或者需要一个可审计、可追溯、无外部依赖的薪酬管理最小可行原型这套源码不是怀旧玩具而是能当天跑通、隔天改规则、三天加字段的生产级脚手架。2. 环境搭建与项目结构解析IIS 配置要点、SQL Server 数据库初始化、ASP 运行时权限控制2.1 IIS 服务配置启用经典模式、启用 ASP 解析、关闭请求过滤ASP 页面默认在 IIS 的“集成模式”下无法执行 VBScript必须切到“经典模式”。这不是可选项是硬性前提。打开 IIS 管理器 → 应用程序池 → 右键新建 → 名称填WageAppPool→ .NET Framework 版本选无托管代码→ 托管管道模式选经典。然后右键该应用池 → “高级设置” → 把“启用 32 位应用程序”设为TrueSQL Server OLE DB 驱动多为 32 位。接着在网站节点下右键 → “属性” → “主目录”选项卡 → 点击“配置” → 在“映射”选项卡中确认.asp扩展名已绑定到C:\Windows\System32\inetsrv\asp.dll且“限制为”一栏为空即不限制 HTTP 动词。最后进“请求过滤”功能 → “HTTP 动词”页签 → 确保GET, POST, HEAD均未被阻止。漏掉任意一步浏览器都会返回 500 错误或直接下载 .asp 源码——这是新手最常翻车的第一关。2.2 SQL Server 数据库初始化建库、建表、插入基础数据含部门/岗位/员工三级结构源码包中DB/InitDB.sql是唯一需要手动执行的脚本。它不创建登录用户只建库建表。用 SQL Server Management StudioSSMS以管理员身份连接本地实例后执行以下命令-- 创建数据库注意路径需匹配你本地 SQL Server 的默认数据目录 CREATE DATABASE WageSystem ON PRIMARY ( NAME WageSystem_Data, FILENAME C:\Program Files\Microsoft SQL Server\MSSQL14.MSSQLSERVER\MSSQL\DATA\WageSystem.mdf ) LOG ON ( NAME WageSystem_Log, FILENAME C:\Program Files\Microsoft SQL Server\MSSQL14.MSSQLSERVER\MSSQL\DATA\WageSystem_log.ldf ); GO USE WageSystem; GO -- 建部门表dept_id 主键dept_name 非空 CREATE TABLE dept ( dept_id INT IDENTITY(1,1) PRIMARY KEY, dept_name NVARCHAR(50) NOT NULL, remark NVARCHAR(200) ); -- 建岗位表post_id 主键关联 dept_id CREATE TABLE post ( post_id INT IDENTITY(1,1) PRIMARY KEY, dept_id INT NOT NULL, post_name NVARCHAR(50) NOT NULL, base_salary DECIMAL(10,2) DEFAULT 0.00, FOREIGN KEY (dept_id) REFERENCES dept(dept_id) ); -- 员工主表emp_id 主键关键字段全非空 CREATE TABLE emp ( emp_id VARCHAR(10) PRIMARY KEY, emp_name NVARCHAR(30) NOT NULL, gender CHAR(1) CHECK(gender IN (M,F)), dept_id INT NOT NULL, post_id INT NOT NULL, hire_date DATE NOT NULL, id_card VARCHAR(18) UNIQUE, phone VARCHAR(11), bank_account VARCHAR(20), status TINYINT DEFAULT 1 CHECK(status IN (0,1)), -- 0离职,1在职 FOREIGN KEY (dept_id) REFERENCES dept(dept_id), FOREIGN KEY (post_id) REFERENCES post(post_id) ); -- 工资明细表每月一条记录关联 emp_id CREATE TABLE salary_detail ( id INT IDENTITY(1,1) PRIMARY KEY, emp_id VARCHAR(10) NOT NULL, year_month CHAR(6) NOT NULL, -- 格式202406 basic_salary DECIMAL(10,2) DEFAULT 0.00, overtime_pay DECIMAL(10,2) DEFAULT 0.00, bonus DECIMAL(10,2) DEFAULT 0.00, deduction DECIMAL(10,2) DEFAULT 0.00, tax DECIMAL(10,2) DEFAULT 0.00, actual_pay DECIMAL(10,2) DEFAULT 0.00, calc_time DATETIME DEFAULT GETDATE(), FOREIGN KEY (emp_id) REFERENCES emp(emp_id) );提示year_month字段用CHAR(6)而非DATE是为了避免跨年查询时的日期函数开销也方便按字符串前缀索引如WHERE year_month LIKE 2024%。这是老派但高效的做法。执行完后运行DB/InsertBaseData.sql插入初始部门行政部、技术部、销售部、岗位经理、主管、专员及 3 条测试员工数据。这些数据是登录系统后首页列表的来源缺了会导致default.asp报错Recordset is empty。2.3 ASP 运行时权限IUSR 用户对文件夹的读取写入权限、数据库连接字符串明文位置ASP 页面通过ADODB.Connection直连数据库连接字符串明文写在inc/conn.asp中% inc/conn.asp Dim connStr connStr ProviderSQLOLEDB;Data Source.;Initial CatalogWageSystem;Integrated SecuritySSPI; 或使用 SQL Server 账号密码方式更常见于生产环境 connStr ProviderSQLOLEDB;Data Source192.168.1.100;Initial CatalogWageSystem;User IDsa;PasswordYourPass123; Set conn Server.CreateObject(ADODB.Connection) conn.Open connStr %注意两点第一若用 Windows 集成认证Integrated SecuritySSPIIIS 应用程序池标识必须是具有数据库db_owner角色的 Windows 账户如DOMAIN\IISAppPool$WageAppPool否则报错Login failed for user NT AUTHORITY\IIS APPPOOL\WageAppPool第二若改用 SQL 账号sa密码必须符合 SQL Server 密码策略至少 8 位含大小写字母数字符号且该账号需在WageSystem库中被显式授权USE WageSystem; EXEC sp_addrolemember db_owner, sa;。此外upload/目录用于上传工资 Excel 模板report/目录用于生成 PDF 工资条这两个文件夹必须赋予IUSR用户“修改”权限右键文件夹 → 属性 → 安全 → 编辑 → 添加IUSR→ 勾选“修改”。漏掉此步上传按钮点击无反应PDF 生成会报错Permission denied。3. 核心模块拆解登录验证链、工资计算引擎、Excel 导入导出三模块逐行代码分析3.1 登录验证链从 login.asp 表单提交到 checklogin.asp 的 Session 绑定全过程登录流程看似简单实则暗藏三层校验前端 JS 非空校验 → ASP 后端 SQL 注入防护 → Session 用户角色隔离。login.asp中表单提交目标是checklogin.asp后者核心逻辑如下!-- checklogin.asp -- % Dim username, password, sql, rs username Trim(Request.Form(txtUser)) password Trim(Request.Form(txtPass)) 第一步参数清洗防 SQL 注入基础手段 username Replace(username, , ) 单引号转义 password Replace(password, , ) 第二步构造参数化查询虽无 ADO 参数化但手动拼接已加引号 sql SELECT emp_id, emp_name, dept_id FROM emp WHERE emp_id username AND password password AND status1 Set rs Server.CreateObject(ADODB.Recordset) rs.Open sql, conn, 1, 3 If Not rs.EOF Then 第三步Session 绑定关键后续所有页面靠此判断登录态 Session(login) True Session(emp_id) rs(emp_id) Session(emp_name) rs(emp_name) Session(dept_id) rs(dept_id) 第四步角色路由admin 和普通员工看到不同首页 If rs(emp_id) ADMIN Then Response.Redirect admin/default.asp Else Response.Redirect user/home.asp End If Else Response.Write scriptalert(用户名或密码错误);history.back();/script End If rs.Close Set rs Nothing %这段代码的关键不在功能而在防御纵深Replace(..., , )是老派但有效的字符转义status1过滤掉已离职员工Response.Redirect前不输出任何 HTML避免缓存导致跳转失败Session变量全部小写命名login,emp_id与前端 JS 读取习惯一致。我一般会在global.asa中补充 Session_OnEnd 事件记录登出时间到日志表但源码未实现——这是你二次开发的第一个切入点。3.2 工资计算引擎salary_calc.asp 中的个税算法与社保扣减逻辑详解工资计算不是简单加总而是分层扣减。salary_calc.asp接收员工 ID 和年月调用CalcSalary()函数其核心逻辑如下% Function CalcSalary(empID, ym) Dim basic, overtime, bonus, deduction, tax, actual Dim sql, rs 1. 获取基础薪资从 post 表读取岗位基本工资 sql SELECT base_salary FROM post p INNER JOIN emp e ON p.post_ide.post_id WHERE e.emp_id empID Set rs conn.Execute(sql) basic rs(0) rs.Close 2. 查询当月考勤数据模拟实际应从考勤系统 API 或表读取 overtime GetOvertime(empID, ym) 自定义函数返回加班小时数 × 倍率 bonus GetBonus(empID, ym) 绩效奖金查 bonus_log 表 deduction GetDeduction(empID, ym) 缺勤扣款、借款抵扣等 3. 计算应纳税所得额个税专项 Dim taxableIncome taxableIncome basic overtime bonus - deduction - 5000 起征点 5000 元 4. 个税速算简化版仅适用 2023 年标准 If taxableIncome 0 Then tax 0 ElseIf taxableIncome 3000 Then tax taxableIncome * 0.03 ElseIf taxableIncome 12000 Then tax (taxableIncome - 3000) * 0.10 90 ElseIf taxableIncome 25000 Then tax (taxableIncome - 12000) * 0.20 990 Else tax (taxableIncome - 25000) * 0.25 3740 End If 5. 社保公积金固定比例可配置化改造点 Dim socialSecurity, housingFund socialSecurity (basic overtime) * 0.109 公司个人合计 10.9% housingFund (basic overtime) * 0.12 公积金 12% actual basic overtime bonus - deduction - tax - socialSecurity - housingFund 6. 写入 salary_detail 表 sql INSERT INTO salary_detail (emp_id, year_month, basic_salary, overtime_pay, bonus, deduction, tax, actual_pay) _ VALUES ( empID , ym , basic , overtime , bonus , deduction , tax , actual ) conn.Execute sql CalcSalary actual End Function %这段代码暴露了两个典型设计选择第一个税计算用If-ElseIf而非查表因为税率档位少且稳定硬编码反而比查表快第二社保公积金比例写死在代码里而非配置表——这正是你改造时第一个要抽离的点。建议新增config/social_config.asp把0.109和0.12提出来再在CalcSalary开头!--#include fileconfig/social_config.asp--后续调整比例只需改一个文件。3.3 Excel 导入导出用 ADODB.Stream 读取 Excel 文件、用 Response.BinaryWrite 输出 PDF导入功能在admin/import_salary.asp它不依赖 Office 组件而是用ADODB.Stream读取 Excel 二进制流再用Microsoft.Jet.OLEDB.4.0驱动解析% Dim filePath, stream, connExcel, rsExcel filePath Server.MapPath(upload/) Request.Form(hidFileName) Set stream Server.CreateObject(ADODB.Stream) stream.Type 1 adTypeBinary stream.Open stream.LoadFromFile filePath 注意Jet 驱动仅支持 .xlsExcel 97-2003不支持 .xlsx Set connExcel Server.CreateObject(ADODB.Connection) connExcel.Open ProviderMicrosoft.Jet.OLEDB.4.0;Data Source filePath ;Extended PropertiesExcel 8.0;HDRYES; Set rsExcel Server.CreateObject(ADODB.Recordset) rsExcel.Open SELECT * FROM [Sheet1$], connExcel, 1, 3 Do While Not rsExcel.EOF 逐行读取emp_id, basic_salary, overtime_pay... Dim empID, basic, overtime empID Trim(rsExcel(emp_id)) basic CDbl(rsExcel(basic_salary)) overtime CDbl(rsExcel(overtime_pay)) 更新 salary_detail 表此处省略 SQL 拼接 sql UPDATE salary_detail SET basic_salary basic , overtime_pay overtime WHERE emp_id empID AND year_month Request.Form(ym) conn.Execute sql rsExcel.MoveNext Loop rsExcel.Close connExcel.Close stream.Close %注意Microsoft.Jet.OLEDB.4.0驱动在 64 位 Windows 上默认不可用必须将 IIS 应用程序池设为“启用 32 位应用程序”见 2.1 节否则报错Provider cannot be found。这是血泪经验——某次我在 Windows Server 2019 上调试了 4 小时才发现是驱动位数问题。导出 PDF 在report/print_salary.asp它不生成真实 PDF 文件而是用Response.ContentType application/pdfResponse.BinaryWrite输出 HTML 渲染后的二进制流。实际是调用wkhtmltopdf.exe命令行工具需提前安装并配置环境变量% Dim cmd, wsh, exec, pdfPath pdfPath Server.MapPath(temp/) salary_ Session(emp_id) _ Request.QueryString(ym) .pdf cmd C:\Program Files\wkhtmltopdf\bin\wkhtmltopdf.exe --page-size A4 --margin-top 10 --margin-bottom 10 _ http://localhost/wage/report/salary_view.asp?emp_id Session(emp_id) ym Request.QueryString(ym) _ pdfPath Set wsh Server.CreateObject(WScript.Shell) Set exec wsh.Exec(cmd) Do While exec.Status 0 WScript.Sleep 100 Loop Response.ContentType application/pdf Response.AddHeader Content-Disposition, inline; filenamesalary.pdf Response.BinaryWrite ReadBinaryFile(pdfPath) %ReadBinaryFile是自定义函数用ADODB.Stream读取 PDF 文件二进制内容。这种“HTML → PDF”链路虽不优雅但胜在稳定、无依赖冲突比 ASP 直接调用 iTextSharp 更轻量。4. 常见问题排查5 类高频报错现象、原因定位与修复命令清单4.1 现象浏览器访问 default.asp 显示“HTTP 错误 500.100 - 内部服务器错误”IIS 日志中无详细信息原因ASP 页面存在语法错误如If未配对End If或conn.asp中连接字符串指向不存在的数据库实例。IIS 默认隐藏详细错误只返回通用 500。解决① 在 IIS 管理器 → 网站 → “ASP”功能 → “调试属性” → 将“发送详细 ASP 错误信息”设为True② 检查inc/conn.asp中Data Source后的实例名是否正确.表示本地默认实例.\SQLEXPRESS表示命名实例③ 用记事本打开default.asp搜索If关键字确认每个If都有对应End If尤其注意嵌套层级。4.2 现象登录成功后跳转到空白页地址栏显示home.asp但页面无内容原因Session(login)未正确写入或home.asp开头缺少!--#include fileinc/conn.asp--导致conn对象未初始化后续conn.Execute报错但被On Error Resume Next静默吞掉。解决① 在checklogin.asp的Session(login) True后立即加一行Response.Write Session set: Session(login) br确认 Session 写入成功② 打开home.asp检查首行是否包含!--#include fileinc/conn.asp--③ 在home.asp顶部加On Error GoTo 0临时关闭错误抑制让真实报错浮出水面。4.3 现象点击“导入工资”按钮无反应upload/目录下无文件生成原因IUSR用户对upload/目录无“写入”权限或login.asp表单enctype属性缺失导致文件流未提交。解决① 右键upload/文件夹 → 属性 → 安全 → 编辑 → 添加IUSR→ 勾选“写入”和“修改”② 检查admin/import_salary.asp对应的表单 HTML确认form标签含enctypemultipart/form-data③ 在import_salary.asp开头加Response.Write Request.Files.Count: Request.Files.Count若输出0说明表单未正确提交文件。4.4 现象工资计算结果中个税为负数或actual_pay金额异常巨大原因taxableIncome计算时未判断是否小于 0导致If taxableIncome 0 Then tax 0分支未触发或basic_salary字段在数据库中为NULL参与运算后整行结果为NULL。解决① 修改CalcSalary()函数将个税计算前增加强制转换taxableIncome CLng(basic overtime bonus - deduction - 5000)② 在 SQL 查询基础薪资时加ISNULL(base_salary, 0)SELECT ISNULL(base_salary, 0) FROM post...③ 在salary_detail表的actual_pay字段添加CHECK(actual_pay 0)约束防止脏数据入库。4.5 现象导出 PDF 时提示“wkhtmltopdf.exe 未找到”或生成的 PDF 是空白页原因wkhtmltopdf.exe路径错误或salary_view.asp中动态生成的 URL 无法被 wkhtmltopdf 访问如localhost在服务端解析失败。解决① 在命令行中手动执行C:\Program Files\wkhtmltopdf\bin\wkhtmltopdf.exe --version确认路径和权限② 将salary_view.asp的 URL 改为服务器 IP 地址如http://192.168.1.100/wage/...避免localhost解析歧义③ 在wkhtmltopdf命令中加--load-error-handling ignore参数忽略页面 JS 报错。5. 二次开发实战从“改一个字段”到“加一个模块”的完整改造路径与验证方法5.1 字段级改造在员工表中增加“入职培训完成状态”字段并同步到所有页面这是最轻量的改造但必须贯穿“数据库 → 后台逻辑 → 前端展示”三层。第一步用 SSMS 执行ALTER TABLE emp ADD training_status TINYINT DEFAULT 0 CHECK(training_status IN (0,1,2)); -- 0未开始, 1进行中, 2已完成第二步修改admin/emp_edit.asp表单增加下拉框tr td入职培训状态/td td select nametraining_status option value0 %If rs(training_status)0 Then Response.Write selected%未开始/option option value1 %If rs(training_status)1 Then Response.Write selected%进行中/option option value2 %If rs(training_status)2 Then Response.Write selected%已完成/option /select /td /tr第三步在admin/emp_update.asp的更新 SQL 中加入该字段sql UPDATE emp SET training_status Request.Form(training_status) , ... WHERE emp_id Request.QueryString(id) 第四步修改user/home.asp的员工列表显示状态中文% Dim statusMap statusMap Array(未开始, 进行中, 已完成) Response.Write statusMap(rs(training_status)) %验证方法新增员工时选“进行中”保存后刷新列表确认文字显示正确再用 SSMS 查SELECT training_status FROM emp WHERE emp_idTEST001确认值为1。整个过程不超过 15 分钟且无需重启 IIS。5.2 模块级扩展新增“工资条微信推送”功能调用企业微信 API 发送模板消息这不是改页面而是加能力。企业微信 API 要求 HTTPS 回调而 ASP 系统跑在内网 HTTP所以采用“异步队列 定时任务”模式先存待发消息到数据库再用 Windows 任务计划每 5 分钟调用send_wechat.asp批量发送。首先建消息队列表CREATE TABLE wechat_queue ( id INT IDENTITY(1,1) PRIMARY KEY, emp_id VARCHAR(10) NOT NULL, year_month CHAR(6) NOT NULL, status TINYINT DEFAULT 0 CHECK(status IN (0,1,2)), -- 0待发,1成功,2失败 create_time DATETIME DEFAULT GETDATE(), err_msg NVARCHAR(200) );然后在admin/salary_calc.asp的CalcSalary函数末尾加 计算完成后插入待发队列 sql INSERT INTO wechat_queue (emp_id, year_month) VALUES ( empID , ym ) conn.Execute sql接着编写task/send_wechat.asp此文件不被浏览器直接访问只供任务计划调用% 读取 10 条待发消息 sql SELECT TOP 10 id, emp_id, year_month FROM wechat_queue WHERE status0 Set rs conn.Execute(sql) Do While Not rs.EOF 1. 查询员工手机号和企业微信 UserID sql SELECT phone, wechat_userid FROM emp WHERE emp_id rs(emp_id) Set rsEmp conn.Execute(sql) 2. 构造企业微信模板消息 JSON需提前在企微后台配置模板 Dim jsonBody jsonBody {touser: rsEmp(wechat_userid) ,template_id:xxx_template_id,data:{first:{value:工资条已生成,color:#173177},keyword1:{value: rsEmp(emp_name) ,color:#173177},keyword2:{value: rs(year_month) ,color:#173177},remark:{value:点击查看明细,color:#173177}}} 3. 调用企微 API需先获取 access_token Dim accessToken, http accessToken GetAccessToken() 自定义函数缓存 token 避免频繁请求 Set http Server.CreateObject(MSXML2.ServerXMLHTTP) http.Open POST, https://qyapi.weixin.qq.com/cgi-bin/message/template/send?access_token accessToken, False http.setRequestHeader Content-Type, application/json http.Send jsonBody 4. 根据响应更新队列状态 If InStr(http.responseText, errcode:0) 0 Then conn.Execute UPDATE wechat_queue SET status1 WHERE id rs(id) Else conn.Execute UPDATE wechat_queue SET status2, err_msg Replace(http.responseText, , ) WHERE id rs(id) End If rsEmp.Close rs.MoveNext Loop rs.Close %最后用 Windows 任务计划创建定时任务每 5 分钟执行一次C:\Windows\System32\cscript.exe //nologo C:\inetpub\wwwroot\wage\task\send_wechat.asp验证方法手动在wechat_queue表中插入一条status0记录运行上述 bat 命令检查status是否变为1同时登录企业微信确认消息收到。这个模块加完系统就具备了主动触达能力而所有改动都遵循原有技术栈没引入新框架。从那以后我每次接到“加个字段”需求都强制走一遍“数据库 ALTER → 后台 SQL 改 → 前端 HTML 加 → 浏览器 F5 验证”四步闭环遇到“加功能”必先问清楚触发时机实时定时手动和失败兜底重试告警人工补发再决定是塞进现有页面还是另起调度任务。这套 ASPSQL 系统教会我的不是怀旧而是如何在约束中做最可控的演进——希望帮到你。本文还有配套的精品资源点击获取
简介这是一套基于ASP与SQL Server构建的企业级工资管理Web系统源码面向Web开发初学者、ASP技术学习者及中小企业信息化建设人员解决薪资计算、员工信息维护、部门薪酬统计等典型HR管理场景需求。资源共97个文件含67个ASP服务端脚本实现登录验证、员工增删改查、考勤录入、工资核算、报表生成等核心逻辑、11个GIF与5个JPG/PNG图片用于界面图标与布局、6个CSS样式表含admin.css、table.css等支撑多角色后台界面、以及SQL Server数据库文件mdf/ldf和XML配置文件整体压缩包仅689KB轻量易部署。已有423人学习下载源码结构清晰包含完整前后端模块从login.asp、main.asp入口到User_gz.asp、listsalaryinfo.asp等业务页面覆盖权限控制、数据安全防护如防SQL注入基础实践及典型三层交互逻辑是掌握ASPSQL Web开发全流程的优质实战范例。1. 一个跑在 IIS 上的「老派但能打」工资系统ASP SQL Server 组合三步就能拉起完整增删改查流程适合中小企快速部署或教学演示你可能觉得 ASP 是上古技术但某高校实验室去年给本地五家制造类中小企业做数字化轻量改造时用这套 ASPSQL 工资系统源码平均 3.2 小时就完成了部署上线——不是演示是真正在用它发当月工资条、导出社保基数报表、做部门薪资结构分析。它不碰微服务、不搞前后端分离所有逻辑压在 .asp 页面里数据库直连 SQL Server没有 ORM 层抽象也没有中间件兜底。这意味着第一你改一行 SQL 就能立刻看到工资计算结果变化第二它对服务器要求极低Windows Server 2008 R2 IIS 7.5 SQL Server 2008 就能稳跑第三所有业务规则比如个税速算扣除数、加班费倍率、社保公积金比例都明文写在 VBScript 里没有黑匣子。如果你正带学生做毕业设计、接手一个要维护的老系统、或者需要一个可审计、可追溯、无外部依赖的薪酬管理最小可行原型这套源码不是怀旧玩具而是能当天跑通、隔天改规则、三天加字段的生产级脚手架。2. 环境搭建与项目结构解析IIS 配置要点、SQL Server 数据库初始化、ASP 运行时权限控制2.1 IIS 服务配置启用经典模式、启用 ASP 解析、关闭请求过滤ASP 页面默认在 IIS 的“集成模式”下无法执行 VBScript必须切到“经典模式”。这不是可选项是硬性前提。打开 IIS 管理器 → 应用程序池 → 右键新建 → 名称填WageAppPool→ .NET Framework 版本选无托管代码→ 托管管道模式选经典。然后右键该应用池 → “高级设置” → 把“启用 32 位应用程序”设为TrueSQL Server OLE DB 驱动多为 32 位。接着在网站节点下右键 → “属性” → “主目录”选项卡 → 点击“配置” → 在“映射”选项卡中确认.asp扩展名已绑定到C:\Windows\System32\inetsrv\asp.dll且“限制为”一栏为空即不限制 HTTP 动词。最后进“请求过滤”功能 → “HTTP 动词”页签 → 确保GET, POST, HEAD均未被阻止。漏掉任意一步浏览器都会返回 500 错误或直接下载 .asp 源码——这是新手最常翻车的第一关。2.2 SQL Server 数据库初始化建库、建表、插入基础数据含部门/岗位/员工三级结构源码包中DB/InitDB.sql是唯一需要手动执行的脚本。它不创建登录用户只建库建表。用 SQL Server Management StudioSSMS以管理员身份连接本地实例后执行以下命令-- 创建数据库注意路径需匹配你本地 SQL Server 的默认数据目录 CREATE DATABASE WageSystem ON PRIMARY ( NAME WageSystem_Data, FILENAME C:\Program Files\Microsoft SQL Server\MSSQL14.MSSQLSERVER\MSSQL\DATA\WageSystem.mdf ) LOG ON ( NAME WageSystem_Log, FILENAME C:\Program Files\Microsoft SQL Server\MSSQL14.MSSQLSERVER\MSSQL\DATA\WageSystem_log.ldf ); GO USE WageSystem; GO -- 建部门表dept_id 主键dept_name 非空 CREATE TABLE dept ( dept_id INT IDENTITY(1,1) PRIMARY KEY, dept_name NVARCHAR(50) NOT NULL, remark NVARCHAR(200) ); -- 建岗位表post_id 主键关联 dept_id CREATE TABLE post ( post_id INT IDENTITY(1,1) PRIMARY KEY, dept_id INT NOT NULL, post_name NVARCHAR(50) NOT NULL, base_salary DECIMAL(10,2) DEFAULT 0.00, FOREIGN KEY (dept_id) REFERENCES dept(dept_id) ); -- 员工主表emp_id 主键关键字段全非空 CREATE TABLE emp ( emp_id VARCHAR(10) PRIMARY KEY, emp_name NVARCHAR(30) NOT NULL, gender CHAR(1) CHECK(gender IN (M,F)), dept_id INT NOT NULL, post_id INT NOT NULL, hire_date DATE NOT NULL, id_card VARCHAR(18) UNIQUE, phone VARCHAR(11), bank_account VARCHAR(20), status TINYINT DEFAULT 1 CHECK(status IN (0,1)), -- 0离职,1在职 FOREIGN KEY (dept_id) REFERENCES dept(dept_id), FOREIGN KEY (post_id) REFERENCES post(post_id) ); -- 工资明细表每月一条记录关联 emp_id CREATE TABLE salary_detail ( id INT IDENTITY(1,1) PRIMARY KEY, emp_id VARCHAR(10) NOT NULL, year_month CHAR(6) NOT NULL, -- 格式202406 basic_salary DECIMAL(10,2) DEFAULT 0.00, overtime_pay DECIMAL(10,2) DEFAULT 0.00, bonus DECIMAL(10,2) DEFAULT 0.00, deduction DECIMAL(10,2) DEFAULT 0.00, tax DECIMAL(10,2) DEFAULT 0.00, actual_pay DECIMAL(10,2) DEFAULT 0.00, calc_time DATETIME DEFAULT GETDATE(), FOREIGN KEY (emp_id) REFERENCES emp(emp_id) );提示year_month字段用CHAR(6)而非DATE是为了避免跨年查询时的日期函数开销也方便按字符串前缀索引如WHERE year_month LIKE 2024%。这是老派但高效的做法。执行完后运行DB/InsertBaseData.sql插入初始部门行政部、技术部、销售部、岗位经理、主管、专员及 3 条测试员工数据。这些数据是登录系统后首页列表的来源缺了会导致default.asp报错Recordset is empty。2.3 ASP 运行时权限IUSR 用户对文件夹的读取写入权限、数据库连接字符串明文位置ASP 页面通过ADODB.Connection直连数据库连接字符串明文写在inc/conn.asp中% inc/conn.asp Dim connStr connStr ProviderSQLOLEDB;Data Source.;Initial CatalogWageSystem;Integrated SecuritySSPI; 或使用 SQL Server 账号密码方式更常见于生产环境 connStr ProviderSQLOLEDB;Data Source192.168.1.100;Initial CatalogWageSystem;User IDsa;PasswordYourPass123; Set conn Server.CreateObject(ADODB.Connection) conn.Open connStr %注意两点第一若用 Windows 集成认证Integrated SecuritySSPIIIS 应用程序池标识必须是具有数据库db_owner角色的 Windows 账户如DOMAIN\IISAppPool$WageAppPool否则报错Login failed for user NT AUTHORITY\IIS APPPOOL\WageAppPool第二若改用 SQL 账号sa密码必须符合 SQL Server 密码策略至少 8 位含大小写字母数字符号且该账号需在WageSystem库中被显式授权USE WageSystem; EXEC sp_addrolemember db_owner, sa;。此外upload/目录用于上传工资 Excel 模板report/目录用于生成 PDF 工资条这两个文件夹必须赋予IUSR用户“修改”权限右键文件夹 → 属性 → 安全 → 编辑 → 添加IUSR→ 勾选“修改”。漏掉此步上传按钮点击无反应PDF 生成会报错Permission denied。3. 核心模块拆解登录验证链、工资计算引擎、Excel 导入导出三模块逐行代码分析3.1 登录验证链从 login.asp 表单提交到 checklogin.asp 的 Session 绑定全过程登录流程看似简单实则暗藏三层校验前端 JS 非空校验 → ASP 后端 SQL 注入防护 → Session 用户角色隔离。login.asp中表单提交目标是checklogin.asp后者核心逻辑如下!-- checklogin.asp -- % Dim username, password, sql, rs username Trim(Request.Form(txtUser)) password Trim(Request.Form(txtPass)) 第一步参数清洗防 SQL 注入基础手段 username Replace(username, , ) 单引号转义 password Replace(password, , ) 第二步构造参数化查询虽无 ADO 参数化但手动拼接已加引号 sql SELECT emp_id, emp_name, dept_id FROM emp WHERE emp_id username AND password password AND status1 Set rs Server.CreateObject(ADODB.Recordset) rs.Open sql, conn, 1, 3 If Not rs.EOF Then 第三步Session 绑定关键后续所有页面靠此判断登录态 Session(login) True Session(emp_id) rs(emp_id) Session(emp_name) rs(emp_name) Session(dept_id) rs(dept_id) 第四步角色路由admin 和普通员工看到不同首页 If rs(emp_id) ADMIN Then Response.Redirect admin/default.asp Else Response.Redirect user/home.asp End If Else Response.Write scriptalert(用户名或密码错误);history.back();/script End If rs.Close Set rs Nothing %这段代码的关键不在功能而在防御纵深Replace(..., , )是老派但有效的字符转义status1过滤掉已离职员工Response.Redirect前不输出任何 HTML避免缓存导致跳转失败Session变量全部小写命名login,emp_id与前端 JS 读取习惯一致。我一般会在global.asa中补充 Session_OnEnd 事件记录登出时间到日志表但源码未实现——这是你二次开发的第一个切入点。3.2 工资计算引擎salary_calc.asp 中的个税算法与社保扣减逻辑详解工资计算不是简单加总而是分层扣减。salary_calc.asp接收员工 ID 和年月调用CalcSalary()函数其核心逻辑如下% Function CalcSalary(empID, ym) Dim basic, overtime, bonus, deduction, tax, actual Dim sql, rs 1. 获取基础薪资从 post 表读取岗位基本工资 sql SELECT base_salary FROM post p INNER JOIN emp e ON p.post_ide.post_id WHERE e.emp_id empID Set rs conn.Execute(sql) basic rs(0) rs.Close 2. 查询当月考勤数据模拟实际应从考勤系统 API 或表读取 overtime GetOvertime(empID, ym) 自定义函数返回加班小时数 × 倍率 bonus GetBonus(empID, ym) 绩效奖金查 bonus_log 表 deduction GetDeduction(empID, ym) 缺勤扣款、借款抵扣等 3. 计算应纳税所得额个税专项 Dim taxableIncome taxableIncome basic overtime bonus - deduction - 5000 起征点 5000 元 4. 个税速算简化版仅适用 2023 年标准 If taxableIncome 0 Then tax 0 ElseIf taxableIncome 3000 Then tax taxableIncome * 0.03 ElseIf taxableIncome 12000 Then tax (taxableIncome - 3000) * 0.10 90 ElseIf taxableIncome 25000 Then tax (taxableIncome - 12000) * 0.20 990 Else tax (taxableIncome - 25000) * 0.25 3740 End If 5. 社保公积金固定比例可配置化改造点 Dim socialSecurity, housingFund socialSecurity (basic overtime) * 0.109 公司个人合计 10.9% housingFund (basic overtime) * 0.12 公积金 12% actual basic overtime bonus - deduction - tax - socialSecurity - housingFund 6. 写入 salary_detail 表 sql INSERT INTO salary_detail (emp_id, year_month, basic_salary, overtime_pay, bonus, deduction, tax, actual_pay) _ VALUES ( empID , ym , basic , overtime , bonus , deduction , tax , actual ) conn.Execute sql CalcSalary actual End Function %这段代码暴露了两个典型设计选择第一个税计算用If-ElseIf而非查表因为税率档位少且稳定硬编码反而比查表快第二社保公积金比例写死在代码里而非配置表——这正是你改造时第一个要抽离的点。建议新增config/social_config.asp把0.109和0.12提出来再在CalcSalary开头!--#include fileconfig/social_config.asp--后续调整比例只需改一个文件。3.3 Excel 导入导出用 ADODB.Stream 读取 Excel 文件、用 Response.BinaryWrite 输出 PDF导入功能在admin/import_salary.asp它不依赖 Office 组件而是用ADODB.Stream读取 Excel 二进制流再用Microsoft.Jet.OLEDB.4.0驱动解析% Dim filePath, stream, connExcel, rsExcel filePath Server.MapPath(upload/) Request.Form(hidFileName) Set stream Server.CreateObject(ADODB.Stream) stream.Type 1 adTypeBinary stream.Open stream.LoadFromFile filePath 注意Jet 驱动仅支持 .xlsExcel 97-2003不支持 .xlsx Set connExcel Server.CreateObject(ADODB.Connection) connExcel.Open ProviderMicrosoft.Jet.OLEDB.4.0;Data Source filePath ;Extended PropertiesExcel 8.0;HDRYES; Set rsExcel Server.CreateObject(ADODB.Recordset) rsExcel.Open SELECT * FROM [Sheet1$], connExcel, 1, 3 Do While Not rsExcel.EOF 逐行读取emp_id, basic_salary, overtime_pay... Dim empID, basic, overtime empID Trim(rsExcel(emp_id)) basic CDbl(rsExcel(basic_salary)) overtime CDbl(rsExcel(overtime_pay)) 更新 salary_detail 表此处省略 SQL 拼接 sql UPDATE salary_detail SET basic_salary basic , overtime_pay overtime WHERE emp_id empID AND year_month Request.Form(ym) conn.Execute sql rsExcel.MoveNext Loop rsExcel.Close connExcel.Close stream.Close %注意Microsoft.Jet.OLEDB.4.0驱动在 64 位 Windows 上默认不可用必须将 IIS 应用程序池设为“启用 32 位应用程序”见 2.1 节否则报错Provider cannot be found。这是血泪经验——某次我在 Windows Server 2019 上调试了 4 小时才发现是驱动位数问题。导出 PDF 在report/print_salary.asp它不生成真实 PDF 文件而是用Response.ContentType application/pdfResponse.BinaryWrite输出 HTML 渲染后的二进制流。实际是调用wkhtmltopdf.exe命令行工具需提前安装并配置环境变量% Dim cmd, wsh, exec, pdfPath pdfPath Server.MapPath(temp/) salary_ Session(emp_id) _ Request.QueryString(ym) .pdf cmd C:\Program Files\wkhtmltopdf\bin\wkhtmltopdf.exe --page-size A4 --margin-top 10 --margin-bottom 10 _ http://localhost/wage/report/salary_view.asp?emp_id Session(emp_id) ym Request.QueryString(ym) _ pdfPath Set wsh Server.CreateObject(WScript.Shell) Set exec wsh.Exec(cmd) Do While exec.Status 0 WScript.Sleep 100 Loop Response.ContentType application/pdf Response.AddHeader Content-Disposition, inline; filenamesalary.pdf Response.BinaryWrite ReadBinaryFile(pdfPath) %ReadBinaryFile是自定义函数用ADODB.Stream读取 PDF 文件二进制内容。这种“HTML → PDF”链路虽不优雅但胜在稳定、无依赖冲突比 ASP 直接调用 iTextSharp 更轻量。4. 常见问题排查5 类高频报错现象、原因定位与修复命令清单4.1 现象浏览器访问 default.asp 显示“HTTP 错误 500.100 - 内部服务器错误”IIS 日志中无详细信息原因ASP 页面存在语法错误如If未配对End If或conn.asp中连接字符串指向不存在的数据库实例。IIS 默认隐藏详细错误只返回通用 500。解决① 在 IIS 管理器 → 网站 → “ASP”功能 → “调试属性” → 将“发送详细 ASP 错误信息”设为True② 检查inc/conn.asp中Data Source后的实例名是否正确.表示本地默认实例.\SQLEXPRESS表示命名实例③ 用记事本打开default.asp搜索If关键字确认每个If都有对应End If尤其注意嵌套层级。4.2 现象登录成功后跳转到空白页地址栏显示home.asp但页面无内容原因Session(login)未正确写入或home.asp开头缺少!--#include fileinc/conn.asp--导致conn对象未初始化后续conn.Execute报错但被On Error Resume Next静默吞掉。解决① 在checklogin.asp的Session(login) True后立即加一行Response.Write Session set: Session(login) br确认 Session 写入成功② 打开home.asp检查首行是否包含!--#include fileinc/conn.asp--③ 在home.asp顶部加On Error GoTo 0临时关闭错误抑制让真实报错浮出水面。4.3 现象点击“导入工资”按钮无反应upload/目录下无文件生成原因IUSR用户对upload/目录无“写入”权限或login.asp表单enctype属性缺失导致文件流未提交。解决① 右键upload/文件夹 → 属性 → 安全 → 编辑 → 添加IUSR→ 勾选“写入”和“修改”② 检查admin/import_salary.asp对应的表单 HTML确认form标签含enctypemultipart/form-data③ 在import_salary.asp开头加Response.Write Request.Files.Count: Request.Files.Count若输出0说明表单未正确提交文件。4.4 现象工资计算结果中个税为负数或actual_pay金额异常巨大原因taxableIncome计算时未判断是否小于 0导致If taxableIncome 0 Then tax 0分支未触发或basic_salary字段在数据库中为NULL参与运算后整行结果为NULL。解决① 修改CalcSalary()函数将个税计算前增加强制转换taxableIncome CLng(basic overtime bonus - deduction - 5000)② 在 SQL 查询基础薪资时加ISNULL(base_salary, 0)SELECT ISNULL(base_salary, 0) FROM post...③ 在salary_detail表的actual_pay字段添加CHECK(actual_pay 0)约束防止脏数据入库。4.5 现象导出 PDF 时提示“wkhtmltopdf.exe 未找到”或生成的 PDF 是空白页原因wkhtmltopdf.exe路径错误或salary_view.asp中动态生成的 URL 无法被 wkhtmltopdf 访问如localhost在服务端解析失败。解决① 在命令行中手动执行C:\Program Files\wkhtmltopdf\bin\wkhtmltopdf.exe --version确认路径和权限② 将salary_view.asp的 URL 改为服务器 IP 地址如http://192.168.1.100/wage/...避免localhost解析歧义③ 在wkhtmltopdf命令中加--load-error-handling ignore参数忽略页面 JS 报错。5. 二次开发实战从“改一个字段”到“加一个模块”的完整改造路径与验证方法5.1 字段级改造在员工表中增加“入职培训完成状态”字段并同步到所有页面这是最轻量的改造但必须贯穿“数据库 → 后台逻辑 → 前端展示”三层。第一步用 SSMS 执行ALTER TABLE emp ADD training_status TINYINT DEFAULT 0 CHECK(training_status IN (0,1,2)); -- 0未开始, 1进行中, 2已完成第二步修改admin/emp_edit.asp表单增加下拉框tr td入职培训状态/td td select nametraining_status option value0 %If rs(training_status)0 Then Response.Write selected%未开始/option option value1 %If rs(training_status)1 Then Response.Write selected%进行中/option option value2 %If rs(training_status)2 Then Response.Write selected%已完成/option /select /td /tr第三步在admin/emp_update.asp的更新 SQL 中加入该字段sql UPDATE emp SET training_status Request.Form(training_status) , ... WHERE emp_id Request.QueryString(id) 第四步修改user/home.asp的员工列表显示状态中文% Dim statusMap statusMap Array(未开始, 进行中, 已完成) Response.Write statusMap(rs(training_status)) %验证方法新增员工时选“进行中”保存后刷新列表确认文字显示正确再用 SSMS 查SELECT training_status FROM emp WHERE emp_idTEST001确认值为1。整个过程不超过 15 分钟且无需重启 IIS。5.2 模块级扩展新增“工资条微信推送”功能调用企业微信 API 发送模板消息这不是改页面而是加能力。企业微信 API 要求 HTTPS 回调而 ASP 系统跑在内网 HTTP所以采用“异步队列 定时任务”模式先存待发消息到数据库再用 Windows 任务计划每 5 分钟调用send_wechat.asp批量发送。首先建消息队列表CREATE TABLE wechat_queue ( id INT IDENTITY(1,1) PRIMARY KEY, emp_id VARCHAR(10) NOT NULL, year_month CHAR(6) NOT NULL, status TINYINT DEFAULT 0 CHECK(status IN (0,1,2)), -- 0待发,1成功,2失败 create_time DATETIME DEFAULT GETDATE(), err_msg NVARCHAR(200) );然后在admin/salary_calc.asp的CalcSalary函数末尾加 计算完成后插入待发队列 sql INSERT INTO wechat_queue (emp_id, year_month) VALUES ( empID , ym ) conn.Execute sql接着编写task/send_wechat.asp此文件不被浏览器直接访问只供任务计划调用% 读取 10 条待发消息 sql SELECT TOP 10 id, emp_id, year_month FROM wechat_queue WHERE status0 Set rs conn.Execute(sql) Do While Not rs.EOF 1. 查询员工手机号和企业微信 UserID sql SELECT phone, wechat_userid FROM emp WHERE emp_id rs(emp_id) Set rsEmp conn.Execute(sql) 2. 构造企业微信模板消息 JSON需提前在企微后台配置模板 Dim jsonBody jsonBody {touser: rsEmp(wechat_userid) ,template_id:xxx_template_id,data:{first:{value:工资条已生成,color:#173177},keyword1:{value: rsEmp(emp_name) ,color:#173177},keyword2:{value: rs(year_month) ,color:#173177},remark:{value:点击查看明细,color:#173177}}} 3. 调用企微 API需先获取 access_token Dim accessToken, http accessToken GetAccessToken() 自定义函数缓存 token 避免频繁请求 Set http Server.CreateObject(MSXML2.ServerXMLHTTP) http.Open POST, https://qyapi.weixin.qq.com/cgi-bin/message/template/send?access_token accessToken, False http.setRequestHeader Content-Type, application/json http.Send jsonBody 4. 根据响应更新队列状态 If InStr(http.responseText, errcode:0) 0 Then conn.Execute UPDATE wechat_queue SET status1 WHERE id rs(id) Else conn.Execute UPDATE wechat_queue SET status2, err_msg Replace(http.responseText, , ) WHERE id rs(id) End If rsEmp.Close rs.MoveNext Loop rs.Close %最后用 Windows 任务计划创建定时任务每 5 分钟执行一次C:\Windows\System32\cscript.exe //nologo C:\inetpub\wwwroot\wage\task\send_wechat.asp验证方法手动在wechat_queue表中插入一条status0记录运行上述 bat 命令检查status是否变为1同时登录企业微信确认消息收到。这个模块加完系统就具备了主动触达能力而所有改动都遵循原有技术栈没引入新框架。从那以后我每次接到“加个字段”需求都强制走一遍“数据库 ALTER → 后台 SQL 改 → 前端 HTML 加 → 浏览器 F5 验证”四步闭环遇到“加功能”必先问清楚触发时机实时定时手动和失败兜底重试告警人工补发再决定是塞进现有页面还是另起调度任务。这套 ASPSQL 系统教会我的不是怀旧而是如何在约束中做最可控的演进——希望帮到你。本文还有配套的精品资源点击获取
