工资管理系统ASP数据库课程设计报告

1、-. z数据库实验课程设计设 计 题 目：工资管理系统 学 院 名 称：机电学院 专 业： 计算机系统维护 指 导 老 师：邢志斌摘 要对于一个BC模式的应用程序而言，前台和后台程序同样重要，前台能够提供用户友好的操作界面，而后台则能实现数据库的操作，即数据本身实质上的操作，所以在我们不断美化和改造前台的时候，也要时刻保持后台技术的先进性，才能实现数据的优化操作。 则我们怎样才能实现网页操作连接到数据库呢我们将用到IIS以及站点等概念，IIS提供脚本运行的可能性，而站点则是一个的核心所在，站点建在哪儿，怎么建立，将有着一定的要求，所以，在我们花精力来编写脚本代码时，也要细心建立站点以及IIS的

2、设置。提到IIS，我们就得了解在是怎样搭建的，并且为什么要搭建，HTML与ASP到底有什么不同。 说到数据库，我们不得不提到ODBC。ODBC是用来创立数据源的，也就是说ASP传达的指令首先经过ODBC。开放数据库互连Open Database Connectivity，ODBC是微软公司开放效劳构造WOSA，Windows Open Services Architecture中有关数据库的一个组成局部，它建立了一组规，并提供了一组对数据库的标准API应用程序编程接口。这些API利用SQL来完成其大局部任务。ODBC本身也提供了对SQL语言的支持，用户可以直接将SQL语句送给ODBC。可以说，

3、ODBC是脚本与数据库交互的桥梁。【关键词】工资管理，数据库，IIS，ODBC，access ，ASP.目录 TOC o 1-3 h z u HYPERLINK l _Toc327015488 前言 PAGEREF _Toc327015488 h 5 HYPERLINK l _Toc327015489 第一章工程背景 PAGEREF _Toc327015489 h 6 HYPERLINK l _Toc327015490 第一节应用方向 PAGEREF _Toc327015490 h 6 HYPERLINK l _Toc327015491 第二节开展历史 PAGEREF _Toc32701549

4、1 h 7 HYPERLINK l _Toc327015492 第二章一样实现的相关技术 PAGEREF _Toc327015492 h 8 HYPERLINK l _Toc327015493 第一节相关技术 PAGEREF _Toc327015493 h 8 HYPERLINK l _Toc327015494 第二节同一技术的比拟及选择理由 PAGEREF _Toc327015494 h 9 HYPERLINK l _Toc327015495 第三章系统需求分析和概要设计 PAGEREF _Toc327015495 h 11 HYPERLINK l _Toc327015496 第一节系统需求

5、分析 PAGEREF _Toc327015496 h 11 HYPERLINK l _Toc327015497 一、功能需求 PAGEREF _Toc327015497 h 11 HYPERLINK l _Toc327015498 二、用户需求 PAGEREF _Toc327015498 h 11 HYPERLINK l _Toc327015499 三、可行性 PAGEREF _Toc327015499 h 11 HYPERLINK l _Toc327015500 第二节概要设计 PAGEREF _Toc327015500 h 12 HYPERLINK l _Toc327015501一、功能模

6、块设计 PAGEREF _Toc327015501 h 12 HYPERLINK l _Toc327015502 第四章详细设计 PAGEREF _Toc327015502 h 22 HYPERLINK l _Toc327015503 第一节功能模块的作用和流程 PAGEREF _Toc327015503 h 22 HYPERLINK l _Toc327015504 一、动态网页模块 PAGEREF _Toc327015504 h 22 HYPERLINK l _Toc327015505 二、数据库及其连接模块 PAGEREF _Toc327015505 h 23 HYPERLINK l _T

7、oc327015506 第二节模块程序流程图 PAGEREF _Toc327015506 h 23 HYPERLINK l _Toc327015507 一、系统总体功能模块 PAGEREF _Toc327015507 h 23 HYPERLINK l _Toc327015508 二、系统数据流图 PAGEREF _Toc327015508 h 24 HYPERLINK l _Toc327015509 第三节关键功能代码 PAGEREF _Toc327015509 h 25 HYPERLINK l _Toc327015510 一、登录页面局部代码 PAGEREF _Toc327015510 h

8、25 HYPERLINK l _Toc327015511 二、删除界面局部代码 PAGEREF _Toc327015511 h 27 HYPERLINK l _Toc327015512 三、更新页面局部代码 PAGEREF _Toc327015512 h 32 HYPERLINK l _Toc327015513 四、插入界面局部代码 PAGEREF _Toc327015513 h 39 HYPERLINK l _Toc327015514 五、查看界面局部代码 PAGEREF _Toc327015514 h 45 HYPERLINK l _Toc327015515 第四节测试页面 PAGEREF

9、 _Toc327015515 h 49 HYPERLINK l _Toc327015516 一、主页 PAGEREF _Toc327015516 h 50 HYPERLINK l _Toc327015517 二、登录页面 PAGEREF _Toc327015517 h 50 HYPERLINK l _Toc327015518 三、更新页面 PAGEREF _Toc327015518 h 51 HYPERLINK l _Toc327015519 四、插入页面 PAGEREF _Toc327015519 h 51 HYPERLINK l _Toc327015520 五、删除页面 PAGEREF _

10、Toc327015520 h 52 HYPERLINK l _Toc327015521 六、查看页面 PAGEREF _Toc327015521 h 52 HYPERLINK l _Toc327015522 第五章系统关键技术分析 PAGEREF _Toc327015522 h 52 HYPERLINK l _Toc327015523 第一节 ASP网页开发技术 PAGEREF _Toc327015523 h 52 HYPERLINK l _Toc327015524 第二节 IIS PAGEREF _Toc327015524 h 54 HYPERLINK l _Toc327015525 一、概

11、念 PAGEREF _Toc327015525 h 54 HYPERLINK l _Toc327015526 二、IIS的安装与配置 PAGEREF _Toc327015526 h 54 HYPERLINK l _Toc327015527 第三节 ODBC PAGEREF _Toc327015527 h 55 HYPERLINK l _Toc327015528 第四节 dreamweaver连接数据库 PAGEREF _Toc327015528 h 56 HYPERLINK l _Toc327015529 一、直接连接 PAGEREF _Toc327015529 h 56 HYPERLINK

12、l _Toc327015530 二、代码连接 PAGEREF _Toc327015530 h 56 HYPERLINK l _Toc327015531 第六章总结 PAGEREF _Toc327015531 h 57 HYPERLINK l _Toc327015532 第一节工作总结 PAGEREF _Toc327015532 h 57 HYPERLINK l _Toc327015533 一、总体工作总结 PAGEREF _Toc327015533 h 57 HYPERLINK l _Toc327015534 二、个人工作总结 PAGEREF _Toc327015534 h 58 HYPERL

13、INK l _Toc327015535 第二节心得体会 PAGEREF _Toc327015535 h 59 HYPERLINK l _Toc327015536 第三节系统缺乏和改良方向 PAGEREF _Toc327015536 h 60 HYPERLINK l _Toc327015537 一、系统缺乏 PAGEREF _Toc327015537 h 60 HYPERLINK l _Toc327015538 二、改良方向 PAGEREF _Toc327015538 h 60前 言随着经济的开展，企业正向着大型化、规模化开展，而对于大中型企业，员工、职称等跟工资管理有关的信息随之急剧增加。在这

14、种情况下单靠人工来处理员工的工资不但显得力不从心，而且极容易出错。如何设计一个小型企业工资的数据库管理系统，由计算机代替人工执行一系列诸如增加新员工，删除旧员工，工资查询，统计等操作。这样就使办公人员可以轻松快捷地完成工资管理的任务。 对于企、事业单位的工资发放来说，不需要太大型的数据库系统。只需要一个操作方便，功能实用，能同时满足财务部门、单位其他相关部门及代发单位三方对数据的管理及需求的系统。企业的目标就是在于利用VFP编程软件开发一个功能实用，用户操作方便，简单明了的工资管理程序。所以在本系统中我们并没有采取较为大型以及主流的数据库oracle，而是采用易于操作的微软access，这也是

15、数据库简单化的一种趋势，重要的是，我们没必要为了少量的数据来动用较为庞大的数据库。Database已经成为现代信息时代的一种数据载体，本系统也将带大家初步进入数据库理论。第一章 工程背景第一节 应用方向 21世纪最剧烈的竞争当属人才的竞争，一个具有多学科知识的复合性人才或许是一个企业开展壮大所不可或缺的重要因素。因此人力资源已逐步成为企业最重要的资源，人力资源管理Human Resource Management，HRM也成为现代企业管理工作中的重要容之一。而在人力资源管理中的根底工作就是人事档案工资管理。对于企业来讲，员工的人事档案工资不但可以使企业的管理者在一定程度上掌握所聘用人员的根本人

16、事信息，而且可以为企业的人力资源管理工作提供相关的人事信息数据支持。譬如：企业制定员工招聘方案、培训方案、合理的使用人员等等。因此，企业人事档案工资管理工作的好坏不但可以直接影响到企业的人力资源管理，而且会间接的影响到企业整体管理。随着我国国民经济建立的蓬勃开展和具有中国特色的社会主义市场经济体制的迅速完善，各个行业都在积极使用现代化的手段，不断改善效劳质量，提高工作效率，这些都在很大程度上给企业提出越来越严峻的挑战，对企业体系无论是在行政职能、企业管理水平以及优质效劳上都提出更高的要求。建立一个科学高效的信息管理系统是解决这一问题的必由之路。企业部财务管理是该企业运用现代化技术创造更多更高的

17、经济效益的主要因素之一。工资管理作为企业部的一种财务管理也是如此，由于企业职工人数较多，每一位职工的具体实际情况也不尽一样，各项工资条款的发放，如果没有一个完整的管理系统来进展管理，则势必会给管理人员带来种种麻烦，因此类似工资管理系统之类的财务软件的开发势在必行。随着社会的开展，科技的进步，计算机的应用在社会各领域中都得到了普及，越来越多的人都感受到利用计算机进展各类管理的科学和便捷；认识到管理信息系统对于管理工作的重要性。所以，工资管理系统也将在未来的时间里越来越得到群众型企业的青睐。第二节 开展历史作为一个新型的数据库应用领域，在其短暂但是快速的开展历程中，也是出现了很多突破性的开展。从早

18、期的仅仅依靠CS模式来进展工资管理，到现在的网页开发BS模式，从早期的面向过程程序开发，到现在的面向对象开发，不仅仅节省了大量的时间、人力和物力，并且使得程序的可操作性大大提高，我们不再去安装客户端或者效劳器在自己的电脑上或者小型机上，而是可以将数据传送到云端，仅仅通过网页的客户端来实现对企业员工工资的管理，这样的简洁而清晰的操作和浏览模式，也必将成为未来软件开发的一个必然趋势。随着Java，ASP，C*以及C+等面向对象开发语言的不断出现和衍生，也造就了工资管理系统快速而有新意的开展，未来，也将向着这个方向，不断的进步。 再从开发软件而言，工资管理系统的开发已经从最早的控制台操作，非可视化布

19、局，到现在的利用Macromedia Dreamweaver 8，或者Adobe的dreamweaver CS5来进展网页的脚本与可视化同时操作，这使得网页的美工和编译效率大大提升，所以，开发软件的开展，也带动了工资管理系统开发的开展。第二章 一样实现的相关技术第一节 相关技术对于一个基于网页的应用程序而言，首先要实现的当然是静态网页的开发。在这里我们可以先用HTML语言来编译一个静态网页，所谓静态网页，也就是说，只能在网页之间实现简单的连接，而不能按照管理员或者用户的需求来实现数据库的交互功能，虽然，看起来静态网页是作用不大的，但是，这是实现动态网页的前提条件，对于没用网页开发根底的人而言，

20、这显得尤为重要。接下来，我们就的用ASP.VBScript来编译脚本，所谓脚本，通俗来说，它是指动态网页的编译代码，这一这样理解，脚本是先来人机交互，以及网页和数据库的交互，所以说，脚本是一个动态网页的灵魂。ASPT的工作原理是：首先，有一个HTTP请求发送到Web效劳器要求一个Web网页。Web效劳器通过分析客户的HTTP请求来定位所请求网页的位置。如果所请求的网页的文件名的后缀是asp*，则就把这个文件传送到aspnet_isapi.dll进展处理，由aspnet_isapi.dll把ASP代码提交给CLR。如果以前没有执行过这个程序，则就由CLR编译并执行，得到纯HTML结果；如果已经执

21、行过这个程序，则就直接执行编译好的程序并得到纯HTML结果。最后把这些纯HTML结果传回浏览器作为HTTP响应。浏览器收到这个响应之后，就可以显示Web网页。必然的，我们要运用到数据库技术，然后与其相关的当然是SQL语言的运用，然而，当我们把SQL 语言以及ASP语言嵌套好以后，怎么来实现数据库与网页操作的共鸣能.在这里将运用到ODBC，ODBC本身也提供了对SQL语言的支持，用户可以直接将SQL语句或者ASP语言送给ODBC然后来进展数据库的相关操作，可以说，ODBC架起了一座桥梁，来连接脚本和数据库。然而仅仅是能够进展连接还是不够的，如果没有一个环境来运行，那就没有了功能。IIS(Inte

22、r-IC Sound bus)又称I2S，是菲利浦公司提出的串行数字音频总线协议。在同一时间允许翻开的页面数，翻开一个页面占一个IIS，可以说，要在显示器上来实现网页的操作，它就必须有一个接口，来运行ASP文件，这时，我们需要在IIS中建立一个，并且的效劳器，就是在dreamweaver中所建站点的目录，这样，在IIS的支持下，ASP脚本才能够实现其功能，至少，它可以在网页中显示出来。第二节 同一技术的比拟及选择理由说到这里，就不得不提连接的问题。目前的连接方式可以大概分为两种，一种是连接字符串连接，另一种则是DSN连接，然而前者的操作简单易行，但是容易出现错误，且需要对代码非常熟悉，后者则出

23、现错误率低，但是错做过程繁琐，且会对本机数据源产生影响，但是，事物都是有两面性的，可视情况而定连接方式。就脚本而言，当下最常见的可以说是有三种，ASP、JSP和PHP。则这三种语言有哪些不同呢.ASP是隶属于C*面向对象语言的，是最近几年才创造和开展的开发语言；JSP则是伴随着Java的诞生而日趋完善，可以说，在网页开发中，占了很大的比重，然而由于其需要很多配置，以及java语言和其他语言的比拟大的差异，使得，慢慢退去了前几年的光芒；PHP则完全是针对网页开发而设计的语言，可以说现在网页开发设计的最常见语言。之所以选择ASP，也是由于其简单易操作的代码，以及对电脑配置的要求低，且脚本出错的概率

24、低。在数据库方面，目前有oracle、sql sever、my sql以及微软access等等。Oracle是目前最先进，也是大型企业普遍采用的数据库软件，但是，由于先进，也使得它对于效劳器的要求有很高的水准，所以，对于小型企业而言，这就显得大材小用了，sql sever和 my sql是参不多的，也是目前较为普遍的小型数据库软件。但是对于一个人数少且数据不多的企事业单位或者小组而言，仅仅使用access足以，所以，在这里我们选择access也是出于这个原因。第三章 系统需求分析和概要设计第一节 系统需求分析一、功能需求1员工每个工种根本工资的设定2加班津贴管理，根据加班时间和类型给予不同的加

25、班津贴；3按照不同工种的根本工资情况、员工的考勤情况产生员工的每月的月工资；4员工年终奖金的生成，员工的年终奖金计算公式员工本年度的工资总和津贴的总和/12；5企业工资报表。能够查询单个员工的工资情况、每个部门的工资情况、按月的工资统计，并能够打印。二、用户需求1 管理员能够修改、添加、删除员工的信息，包括，薪金、出勤、奖金、加班津贴、档案、以及总工资；2 员工可以查看自己的信息，且能够修改自己的登陆密码；3 当有异常操作时，能够提醒操作者。三、可行性1 技术可行性 涉及到了数据库技术、网页开发技术以及连接技术和ODBC技术，这些对于用户和开发者而言，都是极易实现的；(2) 经济可行性 这个系

26、统完全没有涉及软件的经济费用，但是对于系统管理和维护而言，则要花费一定的财力来进展，但是对于一个单位而言，可以说是廉价的。第二节 概要设计一、功能模块设计首先，要实现网页的功能模块，必须的从脚本开场。网页功能大体可以分为用户查询和管理员操作。1用户查询用户查询，首先要做到的是，能够将用户输入的信息提交给ASP，然后，由ASP做出判断，并将操作容经过ODBC，来对数据库进展操作。在这里我们创立了一个数据源，用于连接网页和数据库，用户将查询的员工输入以后，SQL语言进展操作，是嵌套在ASP中的。如此，数据库完成操作以后，就可以将指令的结果返回到网页了，当然客户端是建在本机的，当上传到web以后，客

27、户端可以通过用户效劳器网页文件来讲操作界面显示在pc上，如下图。ASP、SQL数据库ODBCDSN2 管理员操作 管理员操作的主要功能有删除、创立、修改以及管理出勤和津贴。当然，这也要用到ASP语言和SQL语言，用到了create、drop等根本的SQl语言，当管理员输入登陆密码以后，asp进展操作意图的判断，然后将输入的用户名以及密码就能过SQL语言进展与数据库的数据比拟，如果匹配，则登陆成功，到管理界面，进展管理，当然管理员也是属于客户端的，因为他也需要登陆以及效劳器端的文件，这样经过输入存放在效劳器端的用户名和密码来进展高于一般用户的操作权限。2用户层次就用户而言，这里只要是指管理员和员

28、工，管理员进展数据管理和操作，员工只能查看和联系管理员，而不能介入操作。3数据库设计 1，ER逻辑表：*in*i name id ageaddressaddressaddressadreessaddress se*name idgongziWageidName Jintie津贴金额津贴类型每天加班费 ID加班信息 2，name加班天数2，数据字典：1数据项条目数据项名称password数据类型数值型长度6取值围000000999999数据项名称absenttime数据类型数值型长度3取值围0365数据项名称津贴金额数据类型数值型长度5取值围099999数据项名称津贴类型数据类型枚举类型长度1取

29、值围A，B，C数据项名称e*tradays数据类型数值型长度2取值围099数据项名称wage/day数据类型数值型长度3取值围0999数据项名称wage数据类型数值型长度5取值围099999数据项名称se*数据类型枚举类型长度3取值围man，woman数据项名称age数据类型数值型长度2取值围1899数据项名称address数据类型字符串类型长度不定取值围不定数据项名称name数据类型字符串类型长度不定取值围不定2数据存储条目数据存储名称e*tra来源管理员对加班的信息管理组成name+se*+age+address数据存储名称jintie来源管理员对津贴信息管理组成name+津贴类型+津贴金

30、额数据存储名称kaoqin来源管理员对考勤信息的管理组成name+absenttime数据存储名称password来源员工和管理员对密码信息的添加和修改组成name+password数据存储名称wage来源管理员对工资信息的管理组成name+wage数据存储名称*in*i来源管理员对信息的管理组成name+se*+age+address3数据处理条目加工名称 修改密码流入数据流 要修改的密码流出数据流 修改后的密码处理逻辑如果管理员或员工登陆成功对数据进展以下操作输入修改后的密码，有网页传送到数据库修改，再返回加工名称 修改流入数据流 要修改的信息流出数据流 修改后的信息处理逻辑如果管理员登陆

31、成功对数据进展以下操作确定要修改的工程，输入要修改的信息，传入数据库操作，再传出结果加工名称 添加流入数据流 要添加的信息流出数据流 添加完成的信息处理逻辑 如果管理员登陆成功对数据进展以下操作输入要添加的信息，出入数据库，返回加工名称 登陆流入数据流 登录用户名和密码流出数据流 的界面处理逻辑 输入密码和用户名，在数据库进展匹配，成功则跳转至界面，否则停留原页面。第四章 详细设计第一节 功能模块的作用和流程一、动态网页模块 这个模块是针对管理员和员工进展相关操作的，首先从输入端开场描述。1在网页文本框输入相关信息，则怎样才能上实现文本输入.这里采用的是dreamweaver中的表单文本框功能

32、，用于输入文本，输入文本以后，就要将文本信息提交给ASP来进展相关的判断了，经过判断，ASP得知操作员的意图，然后调用SQL语言有很大一局部ASP类方法支持直接嵌套SQL语言，这为两种语言间建立联系创造了先决条件。 2对数据库的操作，必须先得经过ODBC，因为经过ODBC才能将其转换为中间语言，这是能够对数据库进展操作，然后，操作结果，返回到ASP语言，当ASP得知数据库传输来的数据以后，将操作后的数据以用户设定的类型显示在相应的表单中，或者表格。 3然而怎么能够运行脚本语言，才是网页开发的关键，则这里就说到了IIS。IIS意即internet信息效劳，我们必须得利用IIS建立一个，并且其端口

33、要保持翻开状态，这样在客户点才能够效劳器的数据和网页文件以及相关操作，值得注意的是，的效劳器文件目录必须和在dreamweaver中创立的站点文件夹一致，才能保证脚本顺利运行。我们翻开网页时，将会占用IIS，所以务必将其翻开，并且要在windows功能中开启IIS以及ASP效劳，这也是ASP能够编译以及运行的先决条件。 4则我们要怎样在dreamweaver中建立站点呢.文件用什么关系存放. 在dreamweaver中有建立站点功能，将.ASP文件一般存放在站点的根目录下，将图片文件一般存放在images文件夹中，便于管理，并且数据库文件也要放在根目录下，这样，即便是静态网页，即HTML文件也

34、能够在浏览器中实现。二、数据库及其连接模块1数据库，即后台局部，我们采用了较易操作的access，这个模块的作用是实现网页的数据处理以及指令功能，能够实现管理员和网页的交互。则，当我们建立好独立的站点和数据库文件以后，要怎么样才能够连接到数据库呢.这里将将到ODBC的概念，可以说，ODBC是其中间枢纽，当我们从网页输入或点击发出指令后，我们的信息是以ASP形式传递的，这时，ASP才会发挥作用，他将用户指令转换为SQL操作，因为对数据库进展操作，首先得有SQL语言。2这时，SQL语言通过DSN数据源将操作指令传递给数据库进展相关操作，这期间要注意的是，我们必须新建一个DSN数据源，以实现连接，来

35、传递和承受数据。3真正实现连接的步骤是在dreamweaver中输入连接字符串或者直接在数据库功能中点击添加数据源，将新建的系统数据源添加进去，就可以通过ASP以及SQL来实现数据库操作了。第二节 模块程序流程图一、系统总体功能模块工资管理系统管路员登陆员工登陆奖金管理出勤管理工资管理修改信息增加信息删除信息查看奖金工资总额查看出勤查看信息修改密码二、系统数据流图管理员IIS数据库ODBCDSN数据源ASP，SQL第三节 关键功能代码一、登录页面局部代码% * Validate request to log in to this site.MM_LoginAction = Request.Se

36、rverVariables(URL)If Request.QueryString Then MM_LoginAction = MM_LoginAction + + Server.HTMLEncode(Request.QueryString)MM_valUsername=CStr(Request.Form(te*tfield)If MM_valUsername Then MM_fldUserAuthorization= MM_redirectLoginSuccess=manager.asp MM_redirectLoginFailed=ma load.asp MM_flag=ADODB.Reco

37、rdset set MM_rsUser = Server.CreateObject(MM_flag) MM_rsUser.ActiveConnection = MM_zhaoy_STRING MM_rsUser.Source = SELECT name, password If MM_fldUserAuthorization Then MM_rsUser.Source = MM_rsUser.Source & , & MM_fldUserAuthorization MM_rsUser.Source = MM_rsUser.Source & FROM password WHERE name= &

38、 Replace(MM_valUsername,) & AND password= & Replace(Request.Form(te*tfield2),) & MM_rsUser.CursorType = 0 MM_rsUser.CursorLocation = 2 MM_rsUser.LockType = 3 MM_rsUser.Open If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then username and password match - this is a valid user Session(MM_Username) = MM_val

39、Username If (MM_fldUserAuthorization ) Then Session(MM_UserAuthorization) = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value) Else Session(MM_UserAuthorization) = End If if CStr(Request.QueryString(accessdenied) And false Then MM_redirectLoginSuccess = Request.QueryString(accessdenied) End

40、If MM_rsUser.Close Response.Redirect(MM_redirectLoginSuccess) End If MM_rsUser.Close Response.Redirect(MM_redirectLoginFailed)End If%二、删除界面局部代码% * Edit Operations: declare variablesDim MM_editActionDim MM_abortEditDim MM_editQueryDim MM_editCmdDim MM_editConnectionDim MM_editTableDim MM_editRedirect

41、UrlDim 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_editAction = MM_editAction & & Serve

42、r.HTMLEncode(Request.QueryString)End If boolean to abort record editMM_abortEdit = false query string to e*ecuteMM_editQuery = % * Delete Record: declare variablesif (CStr(Request(MM_delete) = form1 And CStr(Request(MM_recordId) ) Then MM_editConnection = MM_zhaoy_STRING MM_editTable = *in*i MM_edit

43、Column = ID MM_recordId = + Request.Form(MM_recordId) + MM_editRedirectUrl = manager.asp append the query string to the redirect URL If (MM_editRedirectUrl And Request.QueryString ) Then If (InStr(1, MM_editRedirectUrl, , vbTe*tpare) = 0 And Request.QueryString ) Then MM_editRedirectUrl = MM_editRed

44、irectUrl & & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & & & Request.QueryString End If End IfEnd If% * Delete Record: construct a sql delete statement and e*ecute itIf (CStr(Request(MM_delete) And CStr(Request(MM_recordId) ) Then create the sql delete statement MM_editQuery =

45、 delete from & MM_editTable & where & MM_editColumn & = & MM_recordId If (Not MM_abortEdit) Then e*ecute the delete Set MM_editCmd = Server.CreateObject(ADODB.mand) MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.mandTe*t = MM_editQuery MM_editCmd.E*ecute If (MM_editRedirectUrl ) Then Res

46、ponse.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_fie

47、ldsDim 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_editAction = MM_editAction & & Server.HTMLEncode(Request.QueryString)End If boolean to abort record editMM_abortEd

48、it = false query string to e*ecuteMM_editQuery = % * Update Record: set variablesIf (CStr(Request(MM_update) = form1 And CStr(Request(MM_recordId) ) Then MM_editConnection = MM_zhaoy_STRING MM_editTable = *in*i MM_editColumn = ID MM_recordId = + Request.Form(MM_recordId) + MM_editRedirectUrl = updat

49、e.asp MM_fieldsStr = te*tfield|value|te*tfield2|value|te*tfield3|value|te*tfield4|value MM_columnsStr = name|,none,|address|,none,|age|,none,|se*|,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 = L

50、Bound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i) Ne*t append the query string to the redirect URL If (MM_editRedirectUrl And Request.QueryString ) Then If (InStr(1, MM_editRedirectUrl, , vbTe*tpare) = 0 And Request.QueryString ) Then MM_editRedirectU

51、rl = MM_editRedirectUrl & & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & & & Request.QueryString End If End IfEnd If% * Update Record: construct a sql update statement and e*ecute itIf (CStr(Request(MM_update) And CStr(Request(MM_recordId) ) Then create the sql update statement

52、 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_delim = none) Then MM_delim = MM_altVal = MM_typeArray(1) If (MM_altVal = none) Then MM_altV

53、al = 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_d

54、elim 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 Ne*t MM_editQuery = MM_editQuery & where & MM_editColumn & = & MM_recordId If (Not MM_abortEdit) Then e*ecute the update Set MM_editCmd = Server.C

55、reateObject(ADODB.mand) MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.mandTe*t = MM_editQuery MM_editCmd.E*ecute If (MM_editRedirectUrl ) Then Response.Redirect(MM_editRedirectUrl) End If End IfEnd If%Dim Recordset1_MMColParamRecordset1_MMColParam = 1If (Request.QueryString(ID) ) Then R

56、ecordset1_MMColParam = Request.QueryString(ID)End 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_field

57、sDim 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_editAction = MM_editAction & & Server.HTMLEncode(Request.QueryString)End If boolean to abort record editMM_abortEdit

58、 = false query string to e*ecuteMM_editQuery = % * Insert Record: set variablesIf (CStr(Request(MM_insert) = form1) Then MM_editConnection = MM_zhaoy_STRING MM_editTable = *in*i MM_editRedirectUrl = manager.asp MM_fieldsStr = te*tfield|value|te*tfield2|value|te*tfield3|value|te*tfield4|value MM_colu

59、mnsStr = name|,none,|age|,none,|address|,none,|se*|,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

60、_i) Ne*t append the query string to the redirect URL If (MM_editRedirectUrl And Request.QueryString ) Then If (InStr(1, MM_editRedirectUrl, , vbTe*tpare) = 0 And Request.QueryString ) Then MM_editRedirectUrl = MM_editRedirectUrl & & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl &