网上学生缴费管理信息系统分析与设计.doc

沈阳航空航天大学北方科技学院沈阳航空航天大学北方科技学院 课程设计说明书课程设计说明书 课程名称课程名称 电子商务系统分析与设计电子商务系统分析与设计 教教 学学 部部 经管教学部经管教学部 专专 业业 信息管理与信息系统 电子商务 信息管理与信息系统 电子商务 班班 级级 学学 号号 学学 生生 姓姓 名名 指指 导导 教教 师师 成成 绩绩 沈阳航空航天大学北方科技学院课程设计 I 沈阳航空航天大学北方科技学院沈阳航空航天大学北方科技学院 课程设计任务书课程设计任务书 课程设计题目 网上学生缴费管理信息系统分析与设计 教 学 部 经管部 专业 信息管理与信息系统 电子商务 班级 学号 姓名 课程设计时间 年 月 日 至 年 月 日 一 课程设计目的 一 课程设计目的 本课程是针对 管理信息系统 数据库原理 网络支付与结算 等课程而 开设的 该课程在继承软件工程和信息系统分析与设计的思想 方法 技术和工具 的基础上 从系统化的思想及结构化开发方法入手 全面体现电子商务系统特色 规划方法 系统分析及设计 并依据电子商务自身的特点 着重针对网站 支付系 统及安全系统进行分析设计 二 课程设计内容及要求 二 课程设计内容及要求 利用系统开发工具 例如 ASP JSP 等 数据库采用 SQL server2000 开发一个 实用的中小型网上管理信息系统 1 合理的进度安排 按照系统开发的流程及方法 踏实地开展课程设计工作 2 总体结构设计首先要在需求分析的基础上确定应用系统的模块结构 并根据 模块的设计原则进行分析和综合 模块划分时应尽可能使每一个模块的功能简单 明确 3 界面设计风格要求统一 布局合理 程序设计中要有适当注释 便于阅读 4 课程设计过程中 根据选题的具体需求 在开发各环节中撰写相关的技术文 档 最后要求提交各环节详细的报告文档及完整源程序 主要包括 需求分析 功 能需求 数据库设计 逻辑设计 物理设计 应用系统设计 编码和调试过程分析 沈阳航空航天大学北方科技学院课程设计 II 课程设计总结 5 开发出可以运行的管理信息系统 学生对设计成果进行现场演示 并进行答 辩 三 主要参考书 三 主要参考书 1 薛华成编 管理信息系统 北京 清华大学出版社 2006 年 7 月 2 王珊编 数据库系统概论 高等教育出版社 2006 年 5 月 3 ASP SQL Server 典型网站建设案例 顼宇峰 清华大学出版社 2006 年 4 ASP SQL Server 网站开发实例精讲 龙马工作室 人民邮电出版社 2007 年 5 从零开始 SQL Server2005 中文版基础培训教程 宋晓峰 人民邮电出版 社 2007 年 四 评语 四 评语 五 成绩 五 成绩 沈阳航空航天大学北方科技学院课程设计 III 指导教师指导教师 年年 月月 日日 负责教师负责教师 年年 月月 日日 目 录 前言 1 1可行性分析 2 1 1开发环境与开发工具 2 1 1 1 系统软件 2 1 1 2 工具软件 2 1 1 3 系统硬件 2 1 1 4 开发背景 2 1 2 可行性报告 3 1 2 1 开发必要性 3 1 2 2 技术可行性 3 1 2 3 经济可行性 4 2 系统分析 5 2 1 系统性能分析 5 2 2 功能需求分析 5 2 3 组织结构分析 6 2 4 业务流程分析 6 2 5 数据与数据流程分析 6 2 5 1 数据分析 6 2 5 2 数据流程图 7 3 系统设计 8 3 1 系统总体结构设计 8 3 2 系统设计原则 8 3 3 设计思想 8 3 4 系统功能分解 9 沈阳航空航天大学北方科技学院课程设计 IV 3 5 代码设计 9 3 6 数据结构设计 9 3 6 1 E R 图设计 10 3 6 2 建立关系数据库表 11 4 系统实现 12 4 1 后台登录页面设计 12 4 2 添加管理员界面设计 13 4 3 学生缴费管理模块设计 13 4 3 1 添加缴费模块 13 4 3 2 缴费管理模块 14 4 4 前台界面图 14 课程设计总结 15 参考文献 16 附录 添加代码 17 附录 删除代码 20 附录 修改代码 23 沈阳航空航天大学北方科技学院课程设计 1 前言 随着 21 世纪经济全球化和信息时代的到来 高校教育体制改革的深入和招生 规模的扩大 学生收费收入在高校总收入中所占的比重不断提高 已成为高校教育 及建设经费的主要来源 很多高校收费收入已经超过了财政拨款收入 收费管理工 作的重要性日益突出 而现行收费管理系统存在许多局限性 亟待改善和创新 对于一所学校来说 每年新生进校报到和老生返校缴费 是学校财务人员和班 主任最忙碌的时候 由于学生进校时高度集中 大量的学生拥挤到财务科缴费 而 且缴费时间又短 每个收费员每天要写几百张收据 工作强度大 身体疲劳不说 在学生缴费的高峰时段 紧张和忙碌中特别容易出差错 给工作造成麻烦 给学校 造成损失 另外随着学生数量的增加 其工作量也将大大增加 这无疑会进一步增 加财务人员的工作量和劳动强度 同时也将产生大量的文件和数据 这给学生缴费 信息的查找 更新和维护都带来了不少困难 据调查 目前我国各类高等院校中还 有相当一部分学生缴费的管理依然停留在纸介质的基础上 这样的管理机制已经不 能适应时代发展的需要 也不能满足学校管理工作逐步走向规范化 科学化和自动 化的要求 随着计算机科学与技术的日渐成熟和计算机应用的普及 计算机已进入到人类 社会的各个领域 并发挥着越来越重要的作用 这种传统的人工管理模式必然被以 计算机为物质基础的信息管理方式所取代 作为计算机应用的一部分 使用计算机 对学生缴费信息进行管理 有着人工管理所无法比拟的优点 如 检索迅速 查找 方便 正确率高 存储量大 保密性好 寿命长 成本低等 这些优点能够极大地 提高学生缴费管理的工作效率 也是学校向科学化 正规化管理发展的必要条件 因此 开发一套能够为用户提供充足的信息和快捷的查询手段的学生缴费管理系统 具有非常重要的意义 沈阳航空航天大学北方科技学院课程设计 2 1可行性分析可行性分析 1 1 开发环境与开发工具开发环境与开发工具 1 1 1 系统软件系统软件 客户端软件 操作系统 Windows 2000 Xp 及以上版本 浏览器 Internet Explorer IE 6 及以上版本 服务器端软件 操作系统 Windows NT 2000 Server XP 及以上版本 浏览器 Internet Explorer IE 6 及以上版本 IIS Internet Information Server IIS 5 0 及其以上版本 数据库 SQL Server 2000 1 1 2 工具软件工具软件 开发设计 Macromedia DreamWeaver 图形处理 Adobe Photoshop 1 1 3 系统硬件系统硬件 客户端 处理器 PIII 800 以上 内存 128M 以上 硬盘 1G 以上 服务器 处理器 P4 2 0 以上 内存 256M 以上 硬盘 10G 以上 1 1 4 开发背景开发背景 经过系统调查发现 某学校学生缴费管理采用的人工管理方式落后 处理数据 的能力有限 在手工方式下 通常是先造一个学生缴费花名册 在相应的表格栏内 填入每一个学期是否缴费 这种方式比较原始和落后 也容易出错 如果要查找某 个系某个班级中的某位学生的缴费情况 相当费时费力 需要一个名字一个名字的 查找 如果要列出某个系某个班级中全部学生的缴费情况或者欠费情况 就要重新 抄写一遍名册或查找一遍名单 其工作量是相当大的 由于学生缴费和欠费的情况 多种多样 还有减免学费 留级和随时来补缴欠费的学生 把这些一一记录在花名 册上 使表格显得杂乱 如果记录不准确或表述不准确 别人看不懂 有时时间长 了 自己也会忘记 不知当时记的是什么 解决这些问题最好的办法就是实现学生 沈阳航空航天大学北方科技学院课程设计 3 缴费管理管理的自动化 用计算机处理方式代替手工处理方式 由计算机应用系统 提供友好 简易 方便的操作界面 轻松地完成数据的录入 浏览 查询和统计的 操作 实现学生缴费管理的计算机化之后 会给我们的各项管理工作带来很大的便 利 如 当在某个数据表里修改的某项数据时 系统就会自动的更新其它跟它有联 系的表里面的数据信息 保证数据的完整性和一致性 避免手工处理方式中由于工 作疏忽而产生的错漏现象 同时还能极大的提高工作效率 及时地为领导 管理人 员和学生提供所需的各种信息数据 1 2 可行性报告可行性报告 可行性研究的目的是用最小的代价在尽可能的时间内确定问题是否能够解决 1 2 1 开发必要性开发必要性 1 收费人数多 标准多 工作量大 由于高校招生规模不断扩大 学生人数迅速上升 例如我们学校目前在校生就 已达二万多人 收费金额高达数亿元 而且招生种类越来越多造成收费项目 收费 标准的多样化 学校各院系 各专业 各年级学生应收金额都不尽相同 再加上学 生的一些特殊情况 学费减免 修学 复学 专业变更 宿舍调整等都使收费工作 变得极其繁琐 2 学生欠费问题突出 收费时间长 我校是一所航空院校 学校的许多学生来自农村和边远山区 有些贫困生家庭 年收入低 除去基本的生活费外 学费主要依靠助学贷款和各种补助来交清 但各 种助学贷款和补助是在学期中间陆续到账的 另外由于管理不到位 少部分学生交 费意识差 故意拖欠学费 导致学费很难收缴到位 每学年欠费学生的比例占应交 费人数的 10 20 这些问题都使得缴费工作不能在短时间内完成 3 管理系统独立 部门间缺少协调 招生规模的不断扩大使得在校生人数激增 对学校管理提出了很高的要求 面 对学生信息数据的不断膨胀 学校各个职能部门相继启用学籍管理 收费管理 选 课管理 宿舍管理等相互独立的软件系统进行应对 这些管理系统虽然能满足大多 数的管理任务 但由于系统相互独立 数据库结构各异 缺乏共享 部门间协调管 理不够 使得学生收费管理很难做到及时和高效 1 2 2 技术可行性技术可行性 开发风险分析 沈阳航空航天大学北方科技学院课程设计 4 一般的网站开发风险包括以下几种情况 网站不能按期完工 某些开发商为了 谈成这个项目虽然报价低但在网站开发过程中会在技术和设计上打折扣 不能达到 预期的效果 网站和当初开发商承诺的效果不一致 资源分析 根据系统设计目的衡量系统从技术上是否完备 一般可从软 硬件环境和性能 要求 技术人员水平和数量等方面考虑 从软硬件环境看 目前网络上的可租用的 网络空间是很多的 同时性价比也相当不错 从网络环境上分析 网站的运营质量 也取决于用户所在网络的网络状况 1 2 3 经济可行性经济可行性 现在 网络的覆盖面已经达到一个恐怖的地步而计算机的价格已经十分低廉 性能却有了长足的进步 而本系统的开发 为学生缴费带来了一个质的飞跃 其具 体体现主要表现有以下几个方面 第一 本系统的运行可以代替人工进行许多繁杂 的劳动 第二 本系统的运行可以节省许多资源 第三 本系统可以使敏感信息更 加安全 第四 本系统可以利用现代网络技术对于学生缴费进行即使的解决 沈阳航空航天大学北方科技学院课程设计 5 2 系统分析系统分析 2 1 系统性能分析系统性能分析 为了保证系统能够长期 安全 稳定 可靠 高效的运行 系统应该满足以下 的性能需求 1 系统处理的准确性和及时性 系统处理的准确性和及时性是系统的必要性能 在系统设计和开发过程中 要充分考虑系统当前和将来可能承受的工作量 2 系统的开放性和系统的可扩充性 系统在开发过程中 应该充分考虑以后的 可扩充性 3 系统的易用性和易维护性 要实现这一点 就要求系统应该尽量使用用户熟 悉的术语和中文信息的界面 针对用户可能出现的使用问题 要提供足够的在线帮 助 缩短用户对系统熟悉的过程 4 系统的数据要求 1 数据录入和处理的准确性和实时性 2 数据的一致性与完整性 3 数据的共享与独立性 5 本软件是 WinXP ASP Server2000 的环境下进行的 根据软件工程原理 结 合面向对象方法开发完成 2 2 功能需求分析功能需求分析 在问题定义中 已经简要地描述了待开发系统的功能 管理员权限 即完成客 户在线选购 提交信息 论坛交流等功能 从开发者的角度进行分析 此系统的用户主要由两部分组成 第一部分 即网站的管理者 他们对网站的各个功能模块进行管理并将信 息保存到数据库中 第二部分 即网站的浏览者 他们将从网站中获取信息 并向网站提交信 息 无论是网站的管理者还是网站的浏览者 它们可以在不同的终端上登录网站进 行管理或者信息浏览 因此本系统可以采用基于 B S 结构的技术 沈阳航空航天大学北方科技学院课程设计 6 作为学生缴费信息查询和管理的网站 其使用者主要由系统管理员 客户组成 其中管理员用户既是信息的管理者又是信息的浏览者 其具有最高权限即具有对整 个数据库信息的增 删 改权限 而客户在此系统中只能作为信息的浏览者以及管 理自己的基本信息和订阅信息 2 3 组织结构分析组织结构分析 由于系统的局限性 以及使用者的单一性 所以系统只有后台操作 即描述的 是管理员与数据库的相互关系 2 4 业务流程分析业务流程分析 网上学生缴费管理信息系统的流程是 首先浏览者登陆本新闻网站 在网站中 可以添加缴费者姓名 金额 说明等 该系统的业务流程图如下图 2 1 管理员 系统 数据 库 浏览 添加修 改信息 数据库文件 浏览 删除信 息 管理员 图图 2 12 1 业务流程图业务流程图 2 5 数据与数据流程分析数据与数据流程分析 网上学生缴费管理信息系统离不开数据库系统的支持 由于数据库独立于程序 而存在 具有较好的安全性 不论是缴费的信息 还是管理员信息都需要存放在数 据库中 本系统的数据库采用 Microsoft 公司的大型数据库系统 SQL Server 2000 2 5 1 数据分析数据分析 在登录到本网上学生缴费网站的后台时 其中涉及到两个表 其中一个是登录 表 一个是新闻信息表 他们之间的联系就是 当你输入登录表中的信息时 你可 以添加 修改 删除新闻信息表中的记录 沈阳航空航天大学北方科技学院课程设计 7 2 5 2 数据流程图数据流程图 信息 数据库信息表 删除 添加修改 更新数据 更新数据 修 改 数 据 库 信息 数据库管理 库 存 数 据 库 存 数 据 管理员 管理员 管理员 图图 2 22 2 数据流程图数据流程图 沈阳航空航天大学北方科技学院课程设计 8 3 系统设计系统设计 3 1 系统总体结构设计系统总体结构设计 系统模块设计分为前台和后台 它们分别实现不同的功能 前台主要是针对浏 览新闻的访问者 后台针对的是网站管理员 前台和后台的相互连接 使得整个新 闻管理系统具有良好的动态性 3 2 系统设计原则系统设计原则 为了使本系统功能齐全 操作简便 并能最大限度的提高网站的质量 满足客 户的实际需要 在设计开发过程中遵循了如下原则 1 实用性原则 本系统是模型系统 但要基本适合在线购物流程的实际需求 并能够处理一些特殊情况 此外 尽可能预留空间 以便扩充功能 2 准确性原则 对输入的相关信息建立检错机制 及时报错 使用户能够及时 准确的输入合法资料 如类型匹配 长度不超限等 3 易操作原则 要求设计的系统功能齐全 接口友好 操作方便 必要地方进 行提示 4 源程序可读性原则 为了便于以后扩充设计 维护人员读懂代码或以后的代 码修改 软件升级维护 尽可能做好代码注释工作 5 优化原则 为了达到优化目的 合理的运用窗口 菜单 对象等继承 自定 义用户对象 事件 函数 减少不必要的重复性代码 使程序简洁明了 也方便将 来的维护 6 安全性原则 3 3 设计思想设计思想 由于此网站系统旨在模拟真实的系统进行工作 尽量采用现有的软硬件环境 及先进的管理系统开发方案 从而达到充分利用现有的资源 提高系统开发水平和 应用效果的目的 1 系统应基本符合在线订阅的流程 满足在线订阅操作的需要 并达到操作 过程中的直观 方便 实用 安全等要求 2 系统采用先进 B S 结构 Browers 浏览器端 负责提供表达逻辑 显示用户 沈阳航空航天大学北方科技学院课程设计 9 界面的信息和基本操作 Server 服务器端 负责实现数据服务 3 系统采用模块化程序设计方法 既便于系统功能地各种组合和修改 又便 于未参与开发的技术人员的补充与维护 4 系统应具备数据库维护功能 及时根据客户要求进行数据的添加 删除 修改等操作 能够对数据库表格进行备份 5 合理的数据流设计 在应用系统设计中 相对独立的模块间以数据流连接 使各模块间的藕合性较低 方便系统运行 提高系统安全性 6 系统要求安全性极高 实时性强 无故障时间长 网络通畅 各终端客户 能熟练的操作 3 4 系统功能分解系统功能分解 结合以上的分析 下面我们对缴费信息系统的功能模块进行分解 本系统应具 有的功能模块如下 前台客户功能可以概括为以下几点 缴费信息模块 包括缴费信息的分类浏览 查询搜索等 用户缴费信息管理模块 处理用户注册 登陆验证 密码修改 找回密码 后台管理者功能可以概括为以下几点 用户信息管理 客户个人资料信息的管理 包括查询和修改客户信息 缴费信息管理 添加 修改 删除缴费信息 在本系统中 主要完成的是后台管理的功能 3 5 代码设计代码设计 利用 Dreamweaver8 表格的形式设计好整体结构 以及基本的样式 然后利用该 软件的特性 把已经利用 SQL Server 完成的数据库 与之静态网页相互联系起来 形成了 ASP 的网页 也就是所谓的动态页面 3 6 数据结构设计数据结构设计 数据结构的建立是整个后天工作的核心部分 它的出现 是的整个网站都在动 态的运行中 沈阳航空航天大学北方科技学院课程设计 10 3 6 1 E R 图设计图设计 下面介绍几个主要的实体图和实体与实体之间的 E R 图 登录信息实体图如图 3 1 所示 登录信息 用户名密 码Id 图图 3 1 登录信息实体图登录信息实体图 缴费信息实体图如图 3 2 所示 缴费信息 ID 学生姓名 缴费说明 缴费金额 图图 3 2 缴费信息图缴费信息图 沈阳航空航天大学北方科技学院课程设计 11 3 6 2 建立关系数据库表建立关系数据库表 管理员信息表 用户名称 用户密码 如图 3 3 表表 3 3 管理员表管理员表 字段名类型描述 idsmallint主键 adminvarchar用户名 passwordvarchar密码 dlcssmallint登陆次数 dldatadatetime登陆时间 缴费信息数据表 缴费分类表 费用分类 缴费信息表 学生姓名 费用金额 费用说明 缴费时间 表表 3 4 缴费信息表缴费信息表 字段名类型描述 IdInt主键 usernamevarchar学生姓名 usermoneydecimal缴费金额 bodyntext缴费说明 addtimedatetime缴费时间 沈阳航空航天大学北方科技学院课程设计 12 4 系统实现系统实现 4 1 后台登录页面设计后台登录页面设计 用户管理主要针对的是操作该系统的操作人员 因为系统拥有强大的网络功能 所以可以实现多点同时操作 不同的操作人员可能会拥有不同的操作权限 并且在 打印票据的时候 收款人的姓名也必须确定 用户管理功能包含密码加密功能 可 以有效防止操作员密码泄露导致的数据库信息错误 图图 4 1 后台首页图后台首页图 沈阳航空航天大学北方科技学院课程设计 13 4 2 添加管理员界面设计添加管理员界面设计 管理员在后台中点击添加管理员按钮会进入添加管理员的页面 页面中管理员 需要输入相关的信息 其中管理员账号和密码是必须要填写的 当用户没有正确填 写的时候会弹出提示对话框 提醒用户 用户输入完成后 点击注册按钮提交自己 的信息 图图 4 2 添加管理员模块视图添加管理员模块视图 4 3 学生缴费管理模块设计学生缴费管理模块设计 4 3 1 添加缴费模块添加缴费模块 该功能板块主要实现的对于学生缴费数据的添加 删除和修改 把一些新的缴 费信息发布到前台的一个实现过程 图图 4 3 添加缴费模块视图添加缴费模块视图 沈阳航空航天大学北方科技学院课程设计 14 4 3 2 缴费管理模块缴费管理模块 该功能板块主要实现对已缴费费用的管理进行修改与删除 以便于管理员对记 录学生缴费项目的检查与修改 图图 4 4 缴费管理模块视图缴费管理模块视图 4 4 前台界面图前台界面图 图图 4 64 6 前台界面图前台界面图 沈阳航空航天大学北方科技学院课程设计 15 课程设计总结课程设计总结 利用计算机和网络技术对学生集中缴费进行管理 具有人工操作无法比拟的优 点 并且该系统上手简单 适合具备多年传统财会工作的员工使用 提高了学校财 务工作的工作效率 促进了资源的合理利用 其功能丰富 安全可靠 运营成本低 的特点也符合建设节约型社会的要求 ASP 对我而言 是一门全新的知识 要想做出这样一个系统并不是一件简单的 事 但是 在指导老师的细心帮助和自己不断努力下 还是基本上完成了系统的要 求 在此过程中 我不紧学会了一门新的技术 更多的是学会了如何分析问题 解 决问题 在开发次系统过程前就已经构思好了系统的模型 可是 当真正实现的时 候 发现了好多意想不到的问题 一方面是因为自己的知识体系不够完全 另一方 面也是因为没有开发项目的经验所致 但是通过指导老师的指导和自己的努力 大 部分问题都已经解决 通过此次的课程设计 是我熟练的掌握的此次课程设计的内容 虽然初期遇到 的问题比较多 但是通过查找资料和咨询老师后 都一一解决的问题 同时也是我 理解的这些问题 使我以后能够熟练的掌握这些知识 同时也使我明白了一般网站 的运作方式 加深了我我对电子商务的兴趣 同时也让我明白了 网站制作的流程 另外 我还要感谢在这几年来对我有所教导的老师 他们孜孜不倦的教诲不但 让我学到了很多知识 而且让我掌握了学习的方法 更教会了我做人处事的道理 在此表示感谢 同时 在系统开发过程中还有同组的同学也给了我不少帮助 这里 一并表示感谢 沈阳航空航天大学北方科技学院课程设计 16 参考文献 1 王珊 数据库系统概论 M 北京 高等教育出版社 2002 170 182 2 饶云波 张辉 基于 ASP NET 的电子商务平台设计与实现 T 计算机技术与 发展 2006 5 160 162 3 屈喜龙 李正庚等 ASP Dreamweaver 开发动态网站实例荟萃 M 北京 机械 工业出版社 2006 4 张引 潘云鹤 面向车辆牌照字符识别的预处理算法 J 计算机应用研究 2004 7 85 87 5 叶晨洲等 车辆牌照字符识别系统 J 计算机系统应用 2007 5 10 13 6 孙增祈 智能控制理论与技术 M 北京 清华大学出版社 2008 7 蒋先刚 基于 Delphi 的数字图像处理工程软件设计 M 北京 中国水利水电出 版社 2006 8 胡小锋 赵辉 Visual C MATLAB 图像处理与识别 M 北京 人民邮电出 版社 2004 9 冈萨雷斯 数字图像处理 第二版 M 北京 电子工业出版社 2007 10 D S Kim and S I Chien Automatic car license plate extraction using modified generalized symmetry transform and image warp ing J Int P 沈阳航空航天大学北方科技学院课程设计 17 附录 添加代码 Edit Operations declare variables Dim MM editAction Dim MM abortEdit Dim MM editQuery Dim MM editCmd Dim MM editConnection Dim MM editTable Dim MM editRedirectUrl Dim MM editColumn Dim MM recordId Dim MM fieldsStr Dim MM columnsStr Dim MM fields Dim MM columns Dim MM typeArray Dim MM formVal Dim MM delim Dim MM altVal Dim MM emptyVal Dim MM i MM editAction CStr Request ServerVariables SCRIPT NAME If Request QueryString Then MM editAction MM editAction Server HTMLEncode Request QueryString End If boolean to abort record edit 沈阳航空航天大学北方科技学院课程设计 18 MM abortEdit false query string to execute MM editQuery Insert Record set variables If CStr Request MM insert form1 Then MM editConnection MM conn STRING MM editTable dbo shangping MM editRedirectUrl manage asp MM fieldsStr spname value yuanjia value xianjia value MM columnsStr spname none yuanjia none xianjia none create the MM fields and MM columns arrays MM fields Split MM fieldsStr MM columns Split MM columnsStr set the form values For MM i LBound MM fields To UBound MM fields Step 2 MM fields MM i 1 CStr Request Form MM fields MM i Next append the query string to the redirect URL If MM editRedirectUrl And Request QueryString Then If InStr 1 MM editRedirectUrl vbTextCompare 0 And Request QueryString Then MM editRedirectUrl MM editRedirectUrl Request QueryString Else MM editRedirectUrl MM editRedirectUrl Request QueryString End If End If End If Insert Record construct a sql insert statement and execute it Dim MM tableValues Dim MM dbValues If CStr Request MM insert Then create the sql insert statement MM tableValues MM dbValues 沈阳航空航天大学北方科技学院课程设计 19 For MM i LBound MM fields To UBound MM fields Step 2 MM formVal MM fields MM i 1 MM typeArray Split MM columns MM i 1 MM delim MM typeArray 0 If MM delim none Then MM delim MM altVal MM typeArray 1 If MM altVal none Then MM altVal MM emptyVal MM typeArray 2 If MM emptyVal none Then MM emptyVal If MM formVal Then MM formVal MM emptyVal Else If MM altVal Then MM formVal MM altVal ElseIf MM delim Then escape quotes MM formVal Replace MM formVal Else MM formVal MM delim MM formVal MM delim End If End If If MM i LBound MM fields Then MM tableValues MM tableValues MM dbValues MM dbValues End If MM tableValues MM tableValues MM columns MM i MM dbValues MM dbValues MM formVal Next MM editQuery insert into MM editTable MM tableValues values MM dbValues If Not MM abortEdit Then execute the insert Set MM editCmd Server CreateObject ADODB Command MM editCmd ActiveConnection MM editConnection MM editCmd CommandText MM editQuery MM editCmd Execute MM editCmd ActiveConnection Close If MM editRedirectUrl Then Response Redirect MM editRedirectUrl End If End If End If 沈阳航空航天大学北方科技学院课程设计 20 附录 删除代码 Edit Operations declare variables Dim MM editAction Dim MM abortEdit Dim MM editQuery Dim MM editCmd Dim MM editConnection Dim MM editTable Dim MM editRedirectUrl Dim MM editColumn Dim MM recordId Dim MM fieldsStr Dim MM columnsStr Dim MM fields Dim MM columns Dim MM typeArray Dim MM formVal Dim MM delim Dim MM altVal Dim MM emptyVal Dim MM i MM editAction CStr Request ServerVariables SCRIPT NAME If Request QueryString Then MM editAction MM editAction Server HTMLEncode Request QueryString End If boolean to abort record edit MM abortEdit false 沈阳航空航天大学北方科技学院课程设计 21 query string to execute MM editQuery Delete Record declare variables if CStr Request MM delete form1 And CStr Request MM recordId Then MM editConnection MM conn STRING MM editTable dbo shangping MM editColumn id MM recordId Request Form MM recordId MM editRedirectUrl manage asp append the query string to the redirect URL If MM editRedirectUrl And Request QueryString Then If InStr 1 MM editRedirectUrl vbTextCompare 0 And Request QueryString Then MM editRedirectUrl MM editRedirectUrl Request QueryString Else MM editRedirectUrl MM editRedirectUrl Request QueryString End If End If End If Delete Record construct a sql delete statement and execute it If CStr Request MM delete And CStr Request MM recordId Then create the sql delete statement MM editQuery delete from MM editTable where MM editColumn MM recordId If Not MM abortEdit Then execute the delete Set MM editCmd Server CreateObject ADODB Command MM editCmd ActiveConnection MM editConnection 沈阳航空航天大学北方科技学院课程设计 22 MM editCmd CommandText MM editQuery MM editCmd Execute MM editCmd ActiveConnection Close If MM editRedirectUrl Then Response Redirect MM editRedirectUrl End If End If End If Dim Recordset1 MMColParam Recordset1 MMColParam 1 If Request QueryString id Then Recordset1 MMColParam Request QueryString id End If 沈阳航空航天大学北方科技学院课程设计 23 附录 修改代码 Edit Operations declare variables Dim MM editAction Dim MM abortEdit Dim MM editQuery Dim MM editCmd Dim MM editConnection Dim MM editTable Dim MM editRedirectUrl Dim MM editColumn Dim MM recordId Dim MM fieldsStr Dim MM columnsStr Dim MM fields Dim MM columns Dim MM typeArray Dim MM formVal Dim MM delim Dim MM altVal Dim MM emptyVal Dim MM i MM editAction CStr Request ServerVariables SCRIPT NAME If Request QueryString Then MM editAction MM editAction Server HTMLEncode Request QueryString End If boolean to abort record edit MM abortEdit false 沈阳航空航天大学北方科技学院课程设计 24 query string to execute MM editQuery Update Record set variables If CStr Request MM update form1 And CStr Request MM recordId Then MM editConnection MM conn STRING MM editTable dbo shangping MM editColumn id MM recordId Request Form MM recordId MM editRedirectUrl manage asp MM fieldsStr spname value yuanjia value xianjia value MM columnsStr spname none yuanjia none xianjia none create the MM fields and MM columns arrays MM fields Split MM fieldsStr MM columns Split MM columnsStr set the form values For MM i LBound MM fields To UBound MM fields Step 2 MM fields MM i 1 CStr Request Form MM fields MM i Next append the query string to the redirect URL If MM editRedirectUrl And Request QueryString Then If InStr 1 MM editRedirectUrl vbTextCompare 0 And Request QueryString Then MM editRedirectUrl MM editRedirectUrl Request QueryString Else MM editRedirectUrl MM edit