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

《网上学生缴费管理信息系统分析与设计》由会员分享，可在线阅读，更多相关《网上学生缴费管理信息系统分析与设计（32页珍藏版）》请在装配图网上搜索。

1、沈阳航空航天大学北方科技学院课程设计说明书课程名称 电子商务系统分析与设计教 学 部 经管教学部 专 业 信息管理与信息系统（电子商务） 班 级 学 号 学 生 姓 名 指 导 教 师 成 绩 沈阳航空航天大学北方科技学院课程设计任务书课程设计题目 网上学生缴费管理信息系统分析与设计 教 学 部 经管部 专业 信息管理与信息系统（电子商务） 班级 学号 姓名 课程设计时间: 年 月 日 至 年 月 日（一）课程设计目的本课程是针对管理信息系统、数据库原理、网络支付与结算等课程而开设的。该课程在继承软件工程和信息系统分析与设计的思想、方法、技术和工具的基础上，从系统化的思想及结构化开发方法入手，

2、全面体现电子商务系统特色、规划方法、系统分析及设计，并依据电子商务自身的特点，着重针对网站、支付系统及安全系统进行分析设计。（二）课程设计内容及要求利用系统开发工具（例如ASP、JSP等）、数据库采用SQL server2000开发一个实用的中小型网上管理信息系统。1.合理的进度安排，按照系统开发的流程及方法，踏实地开展课程设计工作。2.总体结构设计首先要在需求分析的基础上确定应用系统的模块结构，并根据模块的设计原则进行分析和综合。模块划分时应尽可能使每一个模块的功能简单、明确。3.界面设计风格要求统一、布局合理；程序设计中要有适当注释，便于阅读。4.课程设计过程中，根据选题的具体需求，在开发

3、各环节中撰写相关的技术文档，最后要求提交各环节详细的报告文档及完整源程序，主要包括：需求分析、功能需求、数据库设计（逻辑设计、物理设计）、应用系统设计、编码和调试过程分析，课程设计总结。5.开发出可以运行的管理信息系统，学生对设计成果进行现场演示，并进行答辩。（三）主要参考书1 薛华成编，管理信息系统，北京： 清华大学出版社 2006年7月2 王珊编，数据库系统概论，高等教育出版社 ，2006年5月3 ASP+SQL Server典型网站建设案例 顼宇峰 清华大学出版社 2006年4 ASP+SQL Server网站开发实例精讲 龙马工作室 人民邮电出版社 2007年5 从零开始SQL Ser

4、ver2005中文版基础培训教程 宋晓峰 人民邮电出版社 2007年（四）评语 （五）成绩指导教师 年 月 日负责教师 年 月 日目 录前言11可行性分析21.1开发环境与开发工具21.1.1 系统软件21.1.2 工具软件21.1.3 系统硬件21.1.4 开发背景21.2 可行性报告31.2.1 开发必要性31.2.2 技术可行性31.2.3 经济可行性42系统分析52.1 系统性能分析52.2 功能需求分析52.3 组织结构分析62.4 业务流程分析62.5 数据与数据流程分析62.5.1 数据分析62.5.2 数据流程图73系统设计83.1 系统总体结构设计83.2系统设计原则83.3

5、 设计思想83.4系统功能分解93.5 代码设计93.6 数据结构设计93.6.1 E-R图设计103.6.2 建立关系数据库表114 系统实现124.1 后台登录页面设计124.2 添加管理员界面设计134.3学生缴费管理模块设计134.3.1 添加缴费模块134.3.2 缴费管理模块144.4前台界面图14课程设计总结15参考文献16附录 添加代码17附录 删除代码20附录 修改代码23前言随着21 世纪经济全球化和信息时代的到来，高校教育体制改革的深入和招生规模的扩大，学生收费收入在高校总收入中所占的比重不断提高，已成为高校教育及建设经费的主要来源，很多高校收费收入已经超过了财政拨款收入

6、，收费管理工作的重要性日益突出，而现行收费管理系统存在许多局限性，亟待改善和创新。对于一所学校来说，每年新生进校报到和老生返校缴费，是学校财务人员和班主任最忙碌的时候。由于学生进校时高度集中，大量的学生拥挤到财务科缴费，而且缴费时间又短，每个收费员每天要写几百张收据，工作强度大，身体疲劳不说，在学生缴费的高峰时段，紧张和忙碌中特别容易出差错，给工作造成麻烦，给学校造成损失。另外随着学生数量的增加，其工作量也将大大增加，这无疑会进一步增加财务人员的工作量和劳动强度，同时也将产生大量的文件和数据，这给学生缴费信息的查找、更新和维护都带来了不少困难。据调查，目前我国各类高等院校中还有相当一部分学生缴

7、费的管理依然停留在纸介质的基础上，这样的管理机制已经不能适应时代发展的需要，也不能满足学校管理工作逐步走向规范化、科学化和自动化的要求。随着计算机科学与技术的日渐成熟和计算机应用的普及，计算机已进入到人类社会的各个领域，并发挥着越来越重要的作用。这种传统的人工管理模式必然被以计算机为物质基础的信息管理方式所取代。作为计算机应用的一部分，使用计算机对学生缴费信息进行管理，有着人工管理所无法比拟的优点，如：检索迅速、查找方便、正确率高、存储量大、保密性好、寿命长、成本低等，这些优点能够极大地提高学生缴费管理的工作效率，也是学校向科学化、正规化管理发展的必要条件。因此，开发一套能够为用户提供充足的信

8、息和快捷的查询手段的学生缴费管理系统具有非常重要的意义。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 20001.1.2 工具软件开发设计：Macromedia DreamWeaver 图形

9、处理：Adobe Photoshop 1.1.3 系统硬件客户端：处理器PIII 800以上 ，内存128M以上，硬盘1G以上。服务器：处理器P4 2.0以上 ，内存256M以上，硬盘10G以上。1.1.4 开发背景经过系统调查发现，某学校学生缴费管理采用的人工管理方式落后，处理数据的能力有限, 在手工方式下，通常是先造一个学生缴费花名册，在相应的表格栏内填入每一个学期是否缴费。这种方式比较原始和落后，也容易出错。如果要查找某个系某个班级中的某位学生的缴费情况，相当费时费力，需要一个名字一个名字的查找。如果要列出某个系某个班级中全部学生的缴费情况或者欠费情况，就要重新抄写一遍名册或查找一遍名单

10、，其工作量是相当大的。由于学生缴费和欠费的情况多种多样，还有减免学费、留级和随时来补缴欠费的学生，把这些一一记录在花名册上，使表格显得杂乱，如果记录不准确或表述不准确，别人看不懂，有时时间长了，自己也会忘记，不知当时记的是什么。解决这些问题最好的办法就是实现学生缴费管理管理的自动化，用计算机处理方式代替手工处理方式，由计算机应用系统提供友好、简易、方便的操作界面，轻松地完成数据的录入、浏览、查询和统计的操作。实现学生缴费管理的计算机化之后，会给我们的各项管理工作带来很大的便利，如：当在某个数据表里修改的某项数据时，系统就会自动的更新其它跟它有联系的表里面的数据信息，保证数据的完整性和一致性，避

11、免手工处理方式中由于工作疏忽而产生的错漏现象。同时还能极大的提高工作效率，及时地为领导、管理人员和学生提供所需的各种信息数据。1.2 可行性报告可行性研究的目的是用最小的代价在尽可能的时间内确定问题是否能够解决。1.2.1 开发必要性（1）收费人数多，标准多，工作量大由于高校招生规模不断扩大，学生人数迅速上升，例如我们学校目前在校生就已达二万多人，收费金额高达数亿元，而且招生种类越来越多造成收费项目、收费标准的多样化，学校各院系、各专业、各年级学生应收金额都不尽相同，再加上学生的一些特殊情况：学费减免、修学、复学、专业变更、宿舍调整等都使收费工作变得极其繁琐。（2）学生欠费问题突出，收费时间长

12、我校是一所航空院校，学校的许多学生来自农村和边远山区，有些贫困生家庭年收入低，除去基本的生活费外，学费主要依靠助学贷款和各种补助来交清，但各种助学贷款和补助是在学期中间陆续到账的。另外由于管理不到位，少部分学生交费意识差，故意拖欠学费，导致学费很难收缴到位，每学年欠费学生的比例占应交费人数的10%20%，这些问题都使得缴费工作不能在短时间内完成。（3）管理系统独立，部门间缺少协调招生规模的不断扩大使得在校生人数激增，对学校管理提出了很高的要求，面对学生信息数据的不断膨胀，学校各个职能部门相继启用学籍管理，收费管理，选课管理，宿舍管理等相互独立的软件系统进行应对。这些管理系统虽然能满足大多数的管

13、理任务，但由于系统相互独立，数据库结构各异，缺乏共享，部门间协调管理不够，使得学生收费管理很难做到及时和高效。1.2.2 技术可行性开发风险分析: 一般的网站开发风险包括以下几种情况：网站不能按期完工；某些开发商为了谈成这个项目虽然报价低但在网站开发过程中会在技术和设计上打折扣，不能达到预期的效果；网站和当初开发商承诺的效果不一致。资源分析:根据系统设计目的衡量系统从技术上是否完备，一般可从软、硬件环境和性能要求、技术人员水平和数量等方面考虑。从软硬件环境看，目前网络上的可租用的网络空间是很多的，同时性价比也相当不错。从网络环境上分析，网站的运营质量也取决于用户所在网络的网络状况。1.2.3

14、经济可行性现在，网络的覆盖面已经达到一个恐怖的地步而计算机的价格已经十分低廉，性能却有了长足的进步。而本系统的开发，为学生缴费带来了一个质的飞跃，其具体体现主要表现有以下几个方面：第一，本系统的运行可以代替人工进行许多繁杂的劳动；第二，本系统的运行可以节省许多资源；第三，本系统可以使敏感信息更加安全，第四，本系统可以利用现代网络技术对于学生缴费进行即使的解决。2系统分析2.1 系统性能分析为了保证系统能够长期、安全、稳定、可靠、高效的运行，系统应该满足以下的性能需求：1. 系统处理的准确性和及时性：系统处理的准确性和及时性是系统的必要性能。在系统设计和开发过程中，要充分考虑系统当前和将来可能承

15、受的工作量。2. 系统的开放性和系统的可扩充性：系统在开发过程中，应该充分考虑以后的可扩充性。3. 系统的易用性和易维护性：要实现这一点，就要求系统应该尽量使用用户熟悉的术语和中文信息的界面；针对用户可能出现的使用问题，要提供足够的在线帮助，缩短用户对系统熟悉的过程。4. 系统的数据要求：（1）数据录入和处理的准确性和实时性。（2）数据的一致性与完整性。（3）数据的共享与独立性。5.本软件是WinXP+ASP +Server2000的环境下进行的、根据软件工程原理，结合面向对象方法开发完成。2.2 功能需求分析在问题定义中，已经简要地描述了待开发系统的功能，管理员权限、即完成客户在线选购、提交

16、信息、论坛交流等功能。从开发者的角度进行分析，此系统的用户主要由两部分组成： 第一部分，即网站的管理者，他们对网站的各个功能模块进行管理并将信息保存到数据库中； 第二部分，即网站的浏览者，他们将从网站中获取信息、并向网站提交信息。无论是网站的管理者还是网站的浏览者，它们可以在不同的终端上登录网站进行管理或者信息浏览，因此本系统可以采用基于B/S结构的技术。 作为学生缴费信息查询和管理的网站，其使用者主要由系统管理员、客户组成，其中管理员用户既是信息的管理者又是信息的浏览者，其具有最高权限即具有对整个数据库信息的增、删、改权限，而客户在此系统中只能作为信息的浏览者以及管理自己的基本信息和订阅信息

17、。2.3 组织结构分析由于系统的局限性，以及使用者的单一性，所以系统只有后台操作，即描述的是管理员与数据库的相互关系。2.4 业务流程分析网上学生缴费管理信息系统的流程是，首先浏览者登陆本新闻网站，在网站中可以添加缴费者姓名、金额、说明等。该系统的业务流程图如下图2-1。管理员系统数据库浏览添加修改信息数据库文件浏览删除信息管理员图2-1业务流程图2.5 数据与数据流程分析网上学生缴费管理信息系统离不开数据库系统的支持。由于数据库独立于程序而存在，具有较好的安全性，不论是缴费的信息，还是管理员信息都需要存放在数据库中。本系统的数据库采用Microsoft公司的大型数据库系统SQL Server

18、 2000。2.5.1 数据分析 在登录到本网上学生缴费网站的后台时，其中涉及到两个表，其中一个是登录表，一个是新闻信息表。他们之间的联系就是，当你输入登录表中的信息时，你可以添加、修改、删除新闻信息表中的记录。2.5.2 数据流程图信息 数据库信息表删除 添加修改 更新数据 更新数据 修改数据库 信息数据库管理库存数据库存数据管理员管理员管理员图2-2数据流程图 3系统设计3.1 系统总体结构设计系统模块设计分为前台和后台。它们分别实现不同的功能，前台主要是针对浏览新闻的访问者，后台针对的是网站管理员。前台和后台的相互连接，使得整个新闻管理系统具有良好的动态性。3.2系统设计原则为了使本系统

19、功能齐全，操作简便，并能最大限度的提高网站的质量，满足客户的实际需要，在设计开发过程中遵循了如下原则：1.实用性原则：本系统是模型系统，但要基本适合在线购物流程的实际需求，并能够处理一些特殊情况，此外，尽可能预留空间，以便扩充功能。2.准确性原则：对输入的相关信息建立检错机制，及时报错，使用户能够及时准确的输入合法资料(如类型匹配，长度不超限等)。3.易操作原则：要求设计的系统功能齐全，接口友好，操作方便，必要地方进行提示。4.源程序可读性原则：为了便于以后扩充设计，维护人员读懂代码或以后的代码修改，软件升级维护，尽可能做好代码注释工作。5.优化原则：为了达到优化目的，合理的运用窗口，菜单，对

20、象等继承，自定义用户对象，事件，函数，减少不必要的重复性代码，使程序简洁明了，也方便将来的维护。6.安全性原则3.3 设计思想由于此网站系统旨在模拟真实的系统进行工作，尽量采用现有的软硬件环境，及先进的管理系统开发方案，从而达到充分利用现有的资源，提高系统开发水平和应用效果的目的。(1) 系统应基本符合在线订阅的流程，满足在线订阅操作的需要，并达到操作过程中的直观，方便，实用，安全等要求。(2) 系统采用先进B/S结构,Browers（浏览器端）负责提供表达逻辑，显示用户界面的信息和基本操作;Server（服务器端）负责实现数据服务。(3) 系统采用模块化程序设计方法，既便于系统功能地各种组合

21、和修改，又便于未参与开发的技术人员的补充与维护。(4) 系统应具备数据库维护功能，及时根据客户要求进行数据的添加，删除，修改等操作，能够对数据库表格进行备份。(5) 合理的数据流设计，在应用系统设计中，相对独立的模块间以数据流连接，使各模块间的藕合性较低，方便系统运行，提高系统安全性。(6) 系统要求安全性极高，实时性强，无故障时间长，网络通畅，各终端客户能熟练的操作。3.4系统功能分解结合以上的分析，下面我们对缴费信息系统的功能模块进行分解。本系统应具有的功能模块如下：前台客户功能可以概括为以下几点：缴费信息模块： 包括缴费信息的分类浏览，查询搜索等；用户缴费信息管理模块： 处理用户注册、登

22、陆验证、密码修改、找回密码；后台管理者功能可以概括为以下几点：用户信息管理： 客户个人资料信息的管理，包括查询和修改客户信息；缴费信息管理： 添加、修改、删除缴费信息；在本系统中，主要完成的是后台管理的功能。3.5 代码设计 利用Dreamweaver8表格的形式设计好整体结构，以及基本的样式，然后利用该软件的特性，把已经利用SQL Server完成的数据库，与之静态网页相互联系起来。形成了ASP的网页，也就是所谓的动态页面。3.6 数据结构设计 数据结构的建立是整个后天工作的核心部分，它的出现，是的整个网站都在动态的运行中。3.6.1 E-R图设计下面介绍几个主要的实体图和实体与实体之间的E

23、-R图登录信息实体图如图3-1所示：登录信息用户名密 码Id图3-1 登录信息实体图缴费信息实体图如图3-2所示：缴费信息ID学生姓名缴费说明缴费金额图3-2 缴费信息图3.6.2 建立关系数据库表管理员信息表：用户名称、用户密码。如图3-3表3-3 管理员表字段名类型描述idsmallint主键adminvarchar用户名passwordvarchar密码dlcssmallint登陆次数dldatadatetime登陆时间缴费信息数据表：缴费分类表：费用分类。缴费信息表：学生姓名、费用金额、费用说明、缴费时间。表3-4 缴费信息表字段名类型描述IdInt主键usernamevarchar学

24、生姓名usermoneydecimal缴费金额bodyntext缴费说明addtimedatetime缴费时间4 系统实现4.1 后台登录页面设计用户管理主要针对的是操作该系统的操作人员，因为系统拥有强大的网络功能，所以可以实现多点同时操作，不同的操作人员可能会拥有不同的操作权限，并且在打印票据的时候，收款人的姓名也必须确定。用户管理功能包含密码加密功能，可以有效防止操作员密码泄露导致的数据库信息错误。图4-1 后台首页图4.2 添加管理员界面设计管理员在后台中点击添加管理员按钮会进入添加管理员的页面，页面中管理员需要输入相关的信息，其中管理员账号和密码是必须要填写的，当用户没有正确填写的时候

25、会弹出提示对话框，提醒用户。用户输入完成后，点击注册按钮提交自己的信息。图4-2 添加管理员模块视图4.3学生缴费管理模块设计4.3.1 添加缴费模块该功能板块主要实现的对于学生缴费数据的添加、删除和修改，把一些新的缴费信息发布到前台的一个实现过程。图4-3 添加缴费模块视图4.3.2 缴费管理模块该功能板块主要实现对已缴费费用的管理进行修改与删除，以便于管理员对记录学生缴费项目的检查与修改。图4-4 缴费管理模块视图4.4前台界面图图4-6前台界面图课程设计总结 利用计算机和网络技术对学生集中缴费进行管理，具有人工操作无法比拟的优点，并且该系统上手简单，适合具备多年传统财会工作的员工使用，提

26、高了学校财务工作的工作效率，促进了资源的合理利用。其功能丰富、安全可靠、运营成本低的特点也符合建设节约型社会的要求。ASP对我而言，是一门全新的知识，要想做出这样一个系统并不是一件简单的事。但是，在指导老师的细心帮助和自己不断努力下，还是基本上完成了系统的要求。在此过程中，我不紧学会了一门新的技术，更多的是学会了如何分析问题，解决问题。在开发次系统过程前就已经构思好了系统的模型，可是，当真正实现的时候，发现了好多意想不到的问题。一方面是因为自己的知识体系不够完全，另一方面也是因为没有开发项目的经验所致。但是通过指导老师的指导和自己的努力，大部分问题都已经解决。通过此次的课程设计，是我熟练的掌握

27、的此次课程设计的内容。虽然初期遇到的问题比较多，但是通过查找资料和咨询老师后，都一一解决的问题，同时也是我理解的这些问题，使我以后能够熟练的掌握这些知识。同时也使我明白了一般网站的运作方式，加深了我我对电子商务的兴趣。同时也让我明白了，网站制作的流程。另外，我还要感谢在这几年来对我有所教导的老师，他们孜孜不倦的教诲不但让我学到了很多知识，而且让我掌握了学习的方法，更教会了我做人处事的道理，在此表示感谢。同时，在系统开发过程中还有同组的同学也给了我不少帮助，这里一并表示感谢。参考文献1王珊数据库系统概论M北京：高等教育出版社，2002：1701822饶云波，张辉基于ASPNET的电子商务平台设计

28、与实现T计算机技术与发展，2006(5)1601623屈喜龙，李正庚等ASP+Dreamweaver开发动态网站实例荟萃M北京：机械工业出版社，20064 张引，潘云鹤. 面向车辆牌照字符识别的预处理算法J. 计算机应用研究，2004(7)： 85-875 叶晨洲等. 车辆牌照字符识别系统J. 计算机系统应用，2007(5): 10-136 孙增祈. 智能控制理论与技术M. 北京：清华大学出版社，20087 蒋先刚. 基于Delphi的数字图像处理工程软件设计M. 北京：中国水利水电出版社，20068 胡小锋，赵辉. Visual C + + /MATLAB 图像处理与识别M. 北京：人民邮电

29、出版社，20049 冈萨雷斯. 数字图像处理（第二版）M. 北京：电子工业出版社，200710 D. S. Kim and S. I. Chien,. Automatic car license plate extraction using modified generalized symmetry transform and image warp ing J . Int P附录 添加代码% * Edit Operations: declare variablesDim MM_editActionDim MM_abortEditDim MM_editQueryDim MM_editCmdDim

30、 MM_editConnectionDim MM_editTableDim MM_editRedirectUrlDim MM_editColumnDim MM_recordIdDim MM_fieldsStrDim MM_columnsStrDim MM_fieldsDim MM_columnsDim MM_typeArrayDim MM_formValDim MM_delimDim MM_altValDim MM_emptyValDim MM_iMM_editAction = CStr(Request.ServerVariables(SCRIPT_NAME)If (Request.Query

31、String ) Then MM_editAction = MM_editAction & ? & Server.HTMLEncode(Request.QueryString)End If boolean to abort record editMM_abortEdit = false query string to executeMM_editQuery = % * Insert Record: set variablesIf (CStr(Request(MM_insert) = form1) Then MM_editConnection = MM_conn_STRING MM_editTa

32、ble = 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 valu

33、es 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 ) Th

34、en MM_editRedirectUrl = MM_editRedirectUrl & ? & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & & & Request.QueryString End If End IfEnd If% * Insert Record: construct a sql insert statement and execute itDim MM_tableValuesDim MM_dbValuesIf (CStr(Request(MM_insert) ) Then create

35、the sql insert statement MM_tableValues = MM_dbValues = 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)

36、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_fo

37、rmVal + 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 & ) va

38、lues ( & 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

39、.Redirect(MM_editRedirectUrl) End If End IfEnd If%附录 删除代码% * Edit Operations: declare variablesDim MM_editActionDim MM_abortEditDim MM_editQueryDim MM_editCmdDim MM_editConnectionDim MM_editTableDim MM_editRedirectUrlDim MM_editColumnDim MM_recordIdDim MM_fieldsStrDim MM_columnsStrDim MM_fieldsDim M

40、M_columnsDim MM_typeArrayDim MM_formValDim MM_delimDim MM_altValDim MM_emptyValDim MM_iMM_editAction = CStr(Request.ServerVariables(SCRIPT_NAME)If (Request.QueryString ) Then MM_editAction = MM_editAction & ? & Server.HTMLEncode(Request.QueryString)End If boolean to abort record editMM_abortEdit = f

41、alse query string to executeMM_editQuery = % * Delete Record: declare variablesif (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 =

42、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_editRedire

43、ctUrl & & & Request.QueryString End If End If End If% * Delete Record: construct a sql delete statement and execute itIf (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 I

44、f (Not MM_abortEdit) Then execute the delete 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_editRedirectU

45、rl) End If End IfEnd If%Dim Recordset1_MMColParamRecordset1_MMColParam = 1If (Request.QueryString(id) ) Then Recordset1_MMColParam = Request.QueryString(id)End If%附录 修改代码% * Edit Operations: declare variablesDim MM_editActionDim MM_abortEditDim MM_editQueryDim MM_editCmdDim MM_editConnectionDim MM_e

46、ditTableDim MM_editRedirectUrlDim MM_editColumnDim MM_recordIdDim MM_fieldsStrDim MM_columnsStrDim MM_fieldsDim MM_columnsDim MM_typeArrayDim MM_formValDim MM_delimDim MM_altValDim MM_emptyValDim MM_iMM_editAction = CStr(Request.ServerVariables(SCRIPT_NAME)If (Request.QueryString ) Then MM_editActio

47、n = MM_editAction & ? & Server.HTMLEncode(Request.QueryString)End If boolean to abort record editMM_abortEdit = false query string to executeMM_editQuery = % * Update Record: set variablesIf (CStr(Request(MM_update) = form1 And CStr(Request(MM_recordId) ) Then MM_editConnection = MM_conn_STRING MM_e

48、ditTable = 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_

49、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

50、_editRedirectUrl, ?, vbTextCompare) = 0 And Request.QueryString ) Then MM_editRedirectUrl = MM_editRedirectUrl & ? & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & & & Request.QueryString End If End IfEnd If% * Update Record: construct a sql update statement and execute itIf (CSt

51、r(Request(MM_update) And CStr(Request(MM_recordId) ) Then create the sql update statement MM_editQuery = update & MM_editTable & set 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_del

52、im = 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 qu

53、otes 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_editQuery = MM_editQuery & , End If MM_editQuery = MM_editQuery & MM_columns(MM_i) & = & MM_formVal Next MM_editQuery = MM_editQuery & where & MM_editColumn

54、& = & MM_recordId If (Not MM_abortEdit) Then execute the update 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 IfEnd If%Dim Recordset1_MMColP