关 键 词：

asp 学科建设 设计 源代码 论文

资源描述：

ASP学科建设设计(源代码+论文),asp,学科建设,设计,源代码,论文

内容简介：

毕业设计论文设计题目 学科建设系统 教 学 班： 学生姓名： 学 号： 指导教师： 完成日期： 摘 要随着信息时代的飞速发展，以前对学科建设信息的人工管理越来越不能满足当前大量信息管理的需求，因此建立一个学科建设信息管理系统是势在必行的。学科建设信息管理系统容纳了高校学科建设所需的各种信息，如教学、科研、高层次学位管理、设备条件管理、图书资料建设、学术交流等众多方面和环节。该系统对学科建设所需各方面的信息都进行了智能化的管理，替代了一直以来人们使用传统人工的管理文件档案，提高了效率和保密性，并且可以基于internet快速查询学科建设相关资料。 本文同时论述了强大功能的通用报表组件的研制与开发过程，该组件增加了用户同系统数据间的互动性，改进了固定报表的局限性。在对该系统做出详细具体的需求分析基础上，确定了该系统的功能要求和性能要求、选择了最适合该系统的系统模型、设计了系统的网络拓扑结构以及数据库结构，并对数据库进行了优化。系统采用的是BS与CS相结合的软件体系结构和面向对象的开发方法；采用关系型数据库、分布式数据库相结合技术来构建系统的数据库，设计数据库接口来实现对多个数据库的操作，采用用户权限分配、数据加密、存储过程、触发器等技术手段来加强系统的安全和数据库的完整性。学科建设信息管理系统主要实现以下几个功能：1、师资队伍建设信息管理；2、研究生信息管理；3、科研（论文、专著、项目）建设的信息管理；4、 图片信息管理；5、实验室建设信息管理；6、设备建设信息管理。对学院各学科的所有设备信息的有效管理；7、资料建设信息管理；8、 学科建设所涉及的所有信息的通用查询。关键字： Dreamweaver； SQL Server 2000； ASPABSTRACTWith the fast development of information era, the manual management to discipline construction information could wore and wore satisfy new demand for better management on a lots of information. Therefore, it is necessary to build a information management system of discipline construction. The system of discipline construction information includes all information required by discipline construction in university such as teaching, scientific research, degree management in high level, Conditions of equipment management, construction of library materials, academic exchanges, and many other aspects and links. The system of disciplines required for the construction of information have carried out the intelligent management, has been replaced by the use of the traditional paper file management, improved efficiency and confidentiality and can be based on the internet to quickly find information on subjects related to the building. This article also discussed the power of the general statements of components research and development process, the component with an increase of user data between the system of interaction, improvement of the limitations of the fixed statements. In the system to make a detailed analysis of the specific needs on the basis of determining the systems functional requirements and performance requirements, select the most suitable model of the system, design the system and network topology database structure, and database Optimized. System is based on B / S and C / S combination of software architecture and object-oriented development; using relational database, integration of distributed database technology to build a database system, database interface design to achieve the more A database of the operation, a user rights distribution, data encryption, storage, flip-flop, and other technical means to strengthen the systems security and the integrity of the database.Subject Construction information management system to achieve the following key features: 1, teachers construction information management; 2, post-graduate information management; 3, Research (papers, monographs, the project) to build the information management; 4, the picture information management; 5, experiment Room building information management; 6, construction equipment information management. School of the various disciplines of all equipment for the effective management of information; 7, the building of information management information; 8, the subject involved in building all the information for the generic.Key word: Dreamweaver; SQL Server 2000; ASP目 录摘要3第1章 ASP简介31.1 Active Server Pages简介31.2 ASP 的新功能41.3 ASP页面的结构51.4 ASP的运行环境51.5 ASP 内建对象51.6 ASP的主要内置组件61.7 Database Access组件ADO61.8 ASP的脚本语言61.9 ASP能干什么？71.10 HTML 和 ASP 的区别71.11 Microsoft SQL Server 2000简介5第二章 运行环境及系统性能需求分析52.1、硬件需求52.2、软件需求 62.3、开发环境 6第三章 学科建设系统管理系统的设计 93.1、系统详细功能分析83.2、数据库设计与实现 19第四章 学科建设系统管理系统的实现 254.1、数据库的连接254.2、登录界面设计 284.3、师资队伍建设信息管理模块334.4、研究生信息管理模块 374.5、科研信息管理模块包括 39总结 50致谢 51参考文献 52第1章 ASP简介1.1 Active Server Pages简介Microsoft Active Server Pages (ASP) 是服务器端的脚本编写环境，通过这种环境用户可用它来创建动态 Web 页或生成功能强大的 Web 应用程序。ASP 页是包括 HTML 标记、文本和脚本命令的文件。ASP 页可调用 ActiveX 组件来执行任务，例如连接到数据库或进行商务计算。通过 ASP，可为用户的 Web 页添加交互内容或用 HTML 页构成整个 Web 应用程序，这些应用程序使用 HTML 页作为用户的客户的界面。 对于HTML 编写人员： 如果用户是位 HTML 编写人员，用户将发现 ASP 脚本提供了创建交互页的简便方法。如果用户曾想从 HTML 表格中收集数据，或用顾客的姓名个人化 HTML 文件，或根据浏览器的不同使用不同的特性，用户会发现 ASP 提供了一个出色的解决方案。以前，要想从 HTML 表格中收集数据，就不得不学习一门编程语言来创建一个 CGI 应用程序。现在，用户只要将一些简单的指令嵌入到用户的 HTML 文件中，就可以从表格中收集数据并进行分析。用户再不必学习完整的编程语言或者单独编译程序来创建交互页。随着不断掌握使用 ASP 和脚本语言的技巧，用户可以创建更复杂的脚本。对于 ASP，用户可以便捷地使用 ActiveX 组件来执行复杂的任务，比如连接数据库以存储和检索信息。 对于有经验的脚本编写人员： 如果用户已经掌握一门脚本语言，如 VBScript、JavaScript 或 PERL，而且用户已经了解使用 ASP 的方法。只要安装了符合 ActiveX 脚本标准的相应脚本引擎，就可以在 ASP 页中使用任何一种脚本语言。ASP 带有 Microsoft Visual Basic Scripting Edition （VBScript）和 Microsoft JScript 的脚本引擎，这样用户可以立即开始编辑脚本。PERL、REXX 和 Python 的 ActiveX 脚本引擎可以从第三方开发人员处获得。 对于Web 开发人员： 如果用户已经掌握了一门编程语言，如 Visual Basic，用户将发现 ASP 是快速创建 Web 应用程序的一个非常灵活的方法。通过向 HTML 中添加脚本命令，用户能够创建应用程序的 HTML 接口。通过创建自己的 ActiveX 组件，可以将应用程序中的商业逻辑封装到能够从脚本、其他组件或从其他程序中调用的模块。使用 ASP 进行计算的 Web 可转化为有形的利益，它使 Web 供应商能够提供交互的商业应用而不仅仅是发布内容。例如，旅行社能够比公布航空时刻表做得更多；用 ASP 脚本可以让客户察看现有的航班、比较费用并预定座位。包含在 Windows NT Option pack 中的 Microsoft Transaction Server（MTS）可以降低在服务器上构造程序的复杂性和费用。MTS 可以解决开发那些保密性强的、可分级的以及可靠的 Web 应用程序的复杂性问题。 Active Server Pages 模型： 浏览器从 Web 服务器上请求 .asp 文件时，ASP 脚本开始运行。然后 Web 服务器调用 ASP，ASP 全面读取请求的文件，执行所有脚本命令，并将 Web 页传送给浏览器。由于脚本在服务器上而不是在客户端运行，传送到浏览器上的 Web 页是在 Web 服务器上生成的。所以不必担心浏览器能否处理脚本：Web 服务器已经完成了所有脚本的处理，并将标准的 HTML 传输到浏览器。由于只有脚本的结果返回到浏览器，所以服务器端脚本不易复制。用户看不到创建他们正在浏览的页的脚本命令。1.2 ASP 的新功能Active Server Pages 在功能方面有所增强，更易于开发应用程序。 Microsoft 脚本调试程序。 用户可以使用脚本调试程序调试 .asp 文件。 事务性脚本。 ASP 页和页中使用的对象可以运行于事务环境之下。在页上的全部工作只有两种结果：提交或终止。事务可以保护应用程序免于因失败而导致数据丢失。 管理工具。 许多应用程序设置可在 Internet 服务管理器上进行，这是 Internet Information Server 和 Personal Web Server（在 Windows NT Workstation 上）的管理工具。 文件上载。 浏览器可以通过 Posting Acceptor 应用程序将文件上载到 Web 服务器。可以编写 ASP 脚本来发送带有从 Posting Acceptor 传来的信息的 email，如每一个上载文件的位置和名称。 新的 ASP 组件。 ASP 提供了新的基础组件。 应用程序根目录的改变。 ASP 应用程序的根目录在用户的 Web 站点上可以是物理目录。以前，根目录必须映射为虚拟目录。现在可以用 Internet 服务管理器指示 ASP 应用程序的根目录。必须将 .asp 文件置于应用程序树中，Web 服务器才能检测文件的改变并且自动重装它们。 支持 HTTP 1.1 协议。 Internet Information Server 和 Personal Web Server 支持 HTTP 1.1 协议。在响应支持 HTTP 1.1 的浏览器（例如 Internet Explorer 4.0）时，这一支持可使 ASP 利用新协议的高效率。例如，当向浏览器返回页的时候，ASP 使用大块转换编码以提高网络效率。1.3 ASP页面的结构ASP的程序代码简单、通用，文件名由.asp结尾，ASP文件通常由四部分构成： 标准的HTML标记：所有的HTML标记均可使用。 ASP语法命令：位于标签内的ASP代码。 服务器端的include语句：可用#include语句调入其他ASP代码，增强了编成的灵活性。 脚本语言：ASP自带JaverScript和VBScript两种脚本语言，增加了ASP的编程功能，用户也可安装其他脚本语言，如 Perl、Rexx等。1.4 ASP的运行环境 目前ASP可运行在四种环境下：WINDOWS NT server，运行IIS(Internet Information Service) 4.0以上。WINDOWS NT workstation运行 PWS（Personal Web Server） 4.0以上。WINDOWS 95/98/Me 运行PWS 4.0以上。WINDOWS 2000/XP 运行IIS 5.0/5.1（支持最新的ASP 3.0）1.5 ASP 内建对象Active Server Pages 提供内建对象，这些对象使用户更容易收集通过浏览器请求发送的信息、响应浏览器以及存储用户信息（如用户首选项）。Application 对象： 可以使用 Application 对象使给定应用程序的所有用户共享信息。Request 对象： 可以使用 Request 对象访问任何用 HTTP 请求传递的信息，包括从 HTML 表格用 POST 方法或 GET 方法传递的参数、cookie 和用户认证。Request 对象使您能够访问发送给服务器的二进制数据，如上载的文件。Response 对象： 可以使用 Response 对象控制发送给用户的信息。包括直接发送信息给浏览器、重定向浏览器到另一个 URL 或设置 cookie 的值。Server 对象： Server 对象提供对服务器上的方法和属性进行的访问。最常用的方法是创建 ActiveX 组件的实例 (Server.CreateObject)。其他方法用于将 URL 或 HTML 编码成字符串，将虚拟路径映射到物理路径以及设置脚本的超时期限。Session 对象： 可以使用 Session 对象存储特定的用户会话所需的信息。当用户在应用程序的页之间跳转时，存储在 Session 对象中的变量不会清除；而用户在应用程序中访问页时，这些变量始终存在。也可以使用 Session 方法显式地结束一个会话和设置空闲会话的超时期限。ObjectConection 对象： 可以使用 ObjectConection 对象提交或撤消由 ASP 脚本初始化的事务。1.6 ASP的主要内置组件Ad Rotator组件：可用来安指定计划在同一页上自动轮换显示广告，用于WWW上日益重要的广告服务。Browser Capabilities组件：确定访问WEB站点的用户浏览器的功能数据，包括类型、性能、版本等。Database Access组件：提供ADO（ActiveX Data Objects）来访问支持ODBC的数据库。File Access组件：提供对服务器端文件的读写功能。Content Linking组件：生成WEB页内容列表，并将各页顺序连接，用于制作导航条。此外，还可安装Myinfo、Counters、Content Rotator、Page Count等组件，用户也可自行编制Active组件，以提高系统的实用性。1.7 Database Access组件ADO WWW上很重要的应用是访问WEB数据库，用ASP访问WEB数据库时，必须使用ADO组件，ADO是ASP内置的ActiveX服务器组件（ActiveX Server Component）,通过在WEB服务器上设置 ODBC和OLEDB可连接多种数据库：如 SYBASE、ORACLE、INFORMIX、SQL SERVER、ACCESS、VFP等，是对目前微软所支持的数据库进行操作的最有效和最简单直接的方法。 ADO组件主要提供了以下七个对象和四个集合来访问数据库。 Connection对象：建立与后台数据库的连接。 Command对象：执行SQL指令，访问数据库。 Parameters对象和Parameters集合：为Command对象提供数据和参数。 RecordSet对象：存放访问数据库后的数据信息，是最经常使用的对象。 Field对象和Field集合：提供对RecordSet中当前纪录的各个字段进行访问的功能。 Property对象和Properties集合：提供有关信息，供Connection、Command、RecordSet、Field对象使用。 Error对象和Errors集合：提供访问数据库时的错误信息。1.8 ASP的脚本语言脚本语言是一种介于HTML和VB、JAVA等高级语言之间的一种语言，它可以和HTML语言混在一起使用，可以用来在浏览器客户端进行程序编制，从而控制浏览器等对象操作。ASP本身不是一种脚本语言，但他却为嵌入HTML的脚本语言提供了运行环境。ASP中常用的脚本语言有VBScript和JavaScript，系统默认语言是VBScript，在系统中，两种脚本语言都有使用。19ASP能干什么？用 HTML, CSS 已经能够编写非常漂亮的静态网页，但是这些网页缺乏和用户的互动性。比如，你需要为你的网站增加用户注册和登录的功能；你可能还需要做一些网上调查，了解用户对于某个事件或者产品的反馈；你还可能需要一个电子商务网站，及时发布产品信息和满足用户在线订购的需要编写 ASP 动态网页能够帮助你实现这些和用户互动的功能。1.10 HTML 和 ASP 的区别HTML是编写网页的最简单的语言。HTML 只能用于编写静态的网页。当一个用户浏览器(下图所示：Web Client)从 Web 服务器 (下图所示：Web Server) 要求一个 HTML 网页时，Web 服务器就将这个网页直接发送给用户浏览器，不经过计算处理。然后用户浏览器会处理该网页的 HTML 代码，然后将结果显示出来。见下图所示：（2.1）而 ASP 的处理过程则更复杂些。当一个用户浏览器(下图所示：Web Client) 从 Web 服务器 (下图所示：Web Server) 要求一个ASP 网页时，Web 服务器会将这个 ASP 文件发送给 Web 服务器的 ASP 引擎 (下图所示：ASP Engine)，ASP 引擎则将该 ASP 网页中所有的服务器端脚本(下图所示：之间的代码)转换成 HTML 代码，然后将所有 HTML 代码发送给用户浏览器。见下图所示：(2.2)从下图就可以看出来静态网页和动态网页的不同之处，所以说动态网页并不是有能动的图片和动画的网页。图2.1图2.2 1.11 Microsoft SQL Server 2000简介SQL是英文（Structured Query Language）的缩写，意思为结构化查询语言。SQL语言的主要功能就是同各种数据库建立联系，进行沟通。SQL被作为关系型数据库管理系统的标准语言。SQL语句可以用来执行各种各样的操作，例如更新数据库中的数据，从数据库中提取数据等。目前，绝大多数流行的关系型数据库管理系统，如Oracle, Sybase, Microsoft SQL Server, Access等都采用了SQL语言标准。SQL语言有以下几个优点：1 非过程化语言 SQL是一个非过程化的语言，因为它一次处理一个记录，对数据提供自动导航。SQL允许用户在高层的数据结构上工作，而不对单个记录进行操作，可操作记录集，所有SQL 语句接受集合作为输入，返回集合作为输出。SQL的集合特性允许一条SQL语句的结果作为另一条SQL语句的输入。SQL不要求用户指定对数据的存放方法， 这种特性使用户更易集中精力于要得到的结果；所有SQL语句使用查询优化器，它是RDBMS的一部分，由它决定对指定数据存取的最快速度的手段，查询优化器知道存在什么索引，在哪儿使用索引合适，而用户则从不需要知道表是否有索引、有什么类型的索引。2. 统一的语言 SQL可用于所有用户的DB活动模型，包括系统管理员、数据库管理员、 应用程序员、决策支持系统人员及许多其它类型的终端用户。基本的SQL 命令只需很少时间就能学会，最高级的命令在几天内便可掌握。3. 所有关系数据库的公共语言 由于所有主要的关系数据库管理系统都支持SQL语言，用户可将使用SQL的技能从一个RDBMS(关系数据库管理系统)转到另一个，所有用SQL编写的程序都是可以移植的。第二章 运行环境及系统性能需求分析2.1、硬件需求：cpu :inter pentuimII 或等效处理器、300MHZ或更高 内存：96MB 可用内存 硬盘：275MB以上可用磁盘空间 显示器：可达800600像素的256色显示器或更高2.2、软件需求：操作系统windows 98/2000/NT(或更高版本) 浏览器：netscape navigator4.0或microsoft internet explover4.0或更高本。2.3、开发环境：dreamweaver主要利用ASP+SQL2000及IIS环境进行开发开发工具，主要利用Dreamweaver8.0 及sql2000进行开发第三章 学科建设系统管理系统的设计3.1、系统详细功能分析 系统维护功能模块描述该模块主要是用于维护系统中数据以及其它数据库信息导入等。其功能模块如图3.4所示。1) 用户信息管理：系统管理员对该系统用户信息进行添加修改与删除。2) 用户权限分配：系统管理员可以对用户分配系统各功能模块的权限，如给各学科设备负责人分配设备信息管理权限，给各学科师资负责人分配师资信息管理权限。3) 登录用户密码更改：已登录用户可以更改自己的旧密码。4) 数据字典维护：对数据库中各字典表的信息管理。如学科字典、籍贯字典、民族字典等等。5) 数据导入：从设备管理系统中将与本系统相关联的设备数据和研究生信息管理系统中将与本系统相关联的研究生信息及教师综合评价中将师资信息导入本系统中来。6) 注销：用户可以重新以别的身份登录本系统。如某位用户拥有两个用户权限，可以在其中一个身份登录后，再通过注销功能以另外的一个身份登录系统。7) 系统日志：系统日志记录的是每次操作的情况，反映操作过程，所以只有在实际操作过程中才能产生日志记录，不能随意增加。系统将分别记录操作员的信息、操作的具体哪个表、操作日期、操作时间、操作性质等。对系统日志的操作有：浏览、查询、更新、删除等。如果由于操作不当使得数据不符合实际时，可以查询系统日志。系统日志是整个工作过程的见证，要长期保存，在清除系统日志时尤其要小心并要有足够的权限。 师资队伍信息管理。其功能模块如图3.5所示：师资队伍信息管理教师基本信息管理教师简历信息管理教师各种证件图片管理 图3.5 师资队伍信息管理模块功能图1) 教师基本信息管理：用户对各教师的基本信息包括相片进行添加、修改、删除、查询和打印等操作。2) 教师简历信息管理：用户对各教师的简历信息进行添加、修改、删除、查询和打印等操作。3) 教师各种证件图片管理：用户对各教师所获得的各种证件图片（如毕业证书、学位证书、获奖证书）进行添加、修改、删除、查看和打印等操作。 科研信息管理。其功能模块如图3.6所示：科研信息管理项目信息管理专著信息管理论文信息管理科研证书图片管理图3.6 科研信息管理模块功能图1) 论文信息管理：用户对教师、研究生发表的所有论文信息进行添加、删除、修改、打印和查询等操作。2) 专著信息管理：用户对教师发表的专著信息进行添加、删除、修改、打印和查询等操作。3) 项目信息管理：包括项目基本信息、项目转让情况、项目获专利情况、项目获奖情况、项目鉴定情况等。4) 科研证书图片管理：用户对论文、项目、专著所获得的证书图片进行添加、删除、打印和查看等操作。 研究生信息管理1) 研究生信息管理功能模块是用于对各学科的所有研究生信息进行输入、修改、删除、查询等操作。2)对所有考取博士的研究生情况进行管理，有利于高校人才培养的统计。 设备信息管理本系统可以直接通过用户对设备信息进行输入、修改、删除、打印和查询等操作，也可以从学院已有的单机设备信息管理系统中导入与本系统相关的设备数据。 实验室信息管理对各学科实验室的所有信息进行输入、修改、删除、打印和查询等操作。 资料信息管理 对学院的所有杂志图书资料信息进行输入、修改、删除、打印和查询等操作。3.2、数据库设计与实现数据库名:k教师 teacher 编号 姓名 性别 民族 出生年月 身份证号 籍贯 政治面貌 所属系别 联系方式研究生 student 编号 姓名 性别 民族 籍贯 学科 政治面貌 所属系别 身份证科研 keyan 编号 证书名称 图片 类别用户 user username password教师 teacher id name xb mz csny sfz jg zzmm xibie lx研究生 student id name xb mz jg xk zzmm xibie sfz科研 keyan id name tupian type用户 user id username password第四章 学科建设系统管理系统的实现4.1、数据库的连接4.2、登录界面设计%Dim MM_editActionMM_editAction = CStr(Request.ServerVariables(SCRIPT_NAME)If (Request.QueryString ) Then MM_editAction = MM_editAction & ? & Server.HTMLEncode(Request.QueryString)End If boolean to abort record editDim MM_abortEditMM_abortEdit = false%If (CStr(Request(MM_insert) = form1) Then If (Not MM_abortEdit) Then execute the insert Dim MM_editCmd Set MM_editCmd = Server.CreateObject (ADODB.Command) MM_editCmd.ActiveConnection = MM_conn_STRING MM_editCmd.CommandText = INSERT INTO dbo.user (username, password) VALUES (?, ?) MM_editCmd.Prepared = true MM_editCmd.Parameters.Append MM_editCmd.CreateParameter(param1, 201, 1, 50, Request.Form(user_name) adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter(param2, 201, 1, 50, Request.Form(password) adLongVarChar MM_editCmd.Execute MM_editCmd.ActiveConnection.Close append the query string to the redirect URL Dim MM_editRedirectUrl MM_editRedirectUrl = admin.asp If (Request.QueryString ) Then If (InStr(1, MM_editRedirectUrl, ?, vbTextCompare) = 0) Then MM_editRedirectUrl = MM_editRedirectUrl & ? & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & & & Request.QueryString End If End If Response.Redirect(MM_editRedirectUrl) End IfEnd If%学科建设系统 用户登陆 form ACTION= method=POST name=form1 id=form1 onsubmit= webbot-action=-WEBBOT-SELF- 用户名： 密码： 学科建设系统介绍 学科建设是高等学校专业建设的前提和基础。学科建设质量的好坏关系着人才培养的类型、规格和层次，也关系着高校专业建设的好坏程度以及高校的长远发展。学科建设是一个系统工程，涉及教学、科研、高层次学位管理、人事管理、设备条件管理、图书资料建设、学术交流等众多方面和环节，可以说是涉及大学管理的各个层次。但是各个相关部门和环节是相对独立的，因而有关学科建设的信息档案管理工作是不可或缺的。可以说学科建设是高校发展的核心因素 专利公告 相关专利新闻 学科建设是高等学校专业建设的前提和基础。学科建设质量的好坏关系着人才培养的类型、规格和层次，也关系着高校专业建设的好坏程度以及高校的长远发展。学科建设是一个系统工程，涉及教学、科研、高层次学位管理、人事管理、设备条件管理、图书资料建设、学术交流等众多方面和环节，可以说是涉及大学管理的各个层次。但是各个相关部门和环节是相对独立的，因而有关学科建设的信息档案管理工作是不可或缺的。可以说学科建设是高校发展的核心因素 79878683 2008-5-24 54242 2008-5-24 45545 2008-5-22 121 2008-5-22 1 2008-5-22 4.3、师资队伍建设信息管理模块%Dim MM_editActionMM_editAction = CStr(Request.ServerVariables(SCRIPT_NAME)If (Request.QueryString ) Then MM_editAction = MM_editAction & ? & Server.HTMLEncode(Request.QueryString)End If boolean to abort record editDim MM_abortEditMM_abortEdit = false%If (CStr(Request(MM_insert) = form_name) Then If (Not MM_abortEdit) Then execute the insert Dim MM_editCmd Set MM_editCmd = Server.CreateObject (ADODB.Command) MM_editCmd.ActiveConnection = MM_conn_STRING MM_editCmd.CommandText = INSERT INTO dbo.student (name, xb, mz, jg, xk, zzmm, xibie, sfz) VALUES (?, ?, ?, ?, ?, ?, ?, ?) MM_editCmd.Prepared = true MM_editCmd.Parameters.Append MM_editCmd.CreateParameter(param1, 201, 1, 50, Request.Form(name) adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter(param2, 201, 1, 50, Request.Form(xb) adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter(param3, 201, 1, 50, Request.Form(mz) adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter(param4, 201, 1, 50, Request.Form(jg) adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter(param5, 201, 1, 50, Request.Form(xk) adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter(param6, 201, 1, 50, Request.Form(zzmm) adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter(param7, 201, 1, 50, Request.Form(xibie) adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter(param8, 201, 1, 50, Request.Form(sfz) adLongVarChar MM_editCmd.Execute MM_editCmd.ActiveConnection.Close append the query string to the redirect URL Dim MM_editRedirectUrl MM_editRedirectUrl = cg2.htm If (Request.QueryString ) Then If (InStr(1, MM_editRedirectUrl, ?, vbTextCompare) = 0) Then MM_editRedirectUrl = MM_editRedirectUrl & ? & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & & & Request.QueryString End If End If Response.Redirect(MM_editRedirectUrl) End IfEnd If% * Recordset Stats, Move To Record, and Go To Record: declare stats variablesDim Recordset1_totalDim Recordset1_firstDim Recordset1_last set the record countRecordset1_total = Recordset1.RecordCount set the number of rows displayed on this pageIf (Recordset1_numRows 0) Then Recordset1_numRows = Recordset1_totalElseif (Recordset1_numRows = 0) Then Recordset1_numRows = 1End If set the first and last displayed recordRecordset1_first = 1Recordset1_last = Recordset1_first + Recordset1_numRows - 1 if we have the correct record count, check the other statsIf (Recordset1_total -1) Then If (Recordset1_first Recordset1_total) Then Recordset1_first = Recordset1_total End If If (Recordset1_last Recordset1_total) Then Recordset1_last = Recordset1_total End If If (Recordset1_numRows Recordset1_total) Then Recordset1_numRows = Recordset1_total End IfEnd If% 0) Then Recordset1.MoveFirst Else Recordset1.Requery End If set the number of rows displayed on this page If (Recordset1_numRows Recordset1_total) Then Recordset1_numRows = Recordset1_total End If set the first and last displayed record Recordset1_first = 1 Recordset1_last = Recordset1_first + Recordset1_numRows - 1 If (Recordset1_first Recordset1_total) Then Recordset1_first = Recordset1_total End If If (Recordset1_last Recordset1_total) Then Recordset1_last = Recordset1_total End IfEnd If% * Move To Record and Go To Record: declare variablesDim MM_rsDim MM_rsCountDim MM_sizeDim MM_uniqueColDim MM_offsetDim MM_atTotalDim MM_paramIsDefinedDim MM_paramDim MM_indexSet MM_rs = Recordset1MM_rsCount = Recordset1_totalMM_size = Recordset1_numRowsMM_uniqueCol = MM_paramName = MM_offset = 0MM_atTotal = falseMM_paramIsDefined = falseIf (MM_paramName ) Then MM_paramIsDefined = (Request.QueryString(MM_paramName) )End If% * Move To Record: handle index or offset parameterif (Not MM_paramIsDefined And MM_rsCount 0) then use index parameter if defined, otherwise use offset parameter MM_param = Request.QueryString(index) If (MM_param = ) Then MM_param = Request.QueryString(offset) End If If (MM_param ) Then MM_offset = Int(MM_param) End If if we have a record count, check if we are past the end of the recordset If (MM_rsCount -1) Then If (MM_offset = MM_rsCount Or MM_offset = -1) Then past end or move last If (MM_rsCount Mod MM_size) 0) Then last page not a full repeat region MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If move the cursor to the selected record MM_index = 0 While (Not MM_rs.EOF) And (MM_index % * Move To Record: if we dont know the record count, check the display rangeIf (MM_rsCount = -1) Then walk to the end of the display range for this page MM_index = MM_offset While (Not MM_rs.EOF And (MM_size 0 Or MM_index MM_offset + MM_size) MM_rs.MoveNext MM_index = MM_index + 1 Wend if we walked off the end of the recordset, set MM_rsCount and MM_size If (MM_rs.EOF) Then MM_rsCount = MM_index If (MM_size MM_rsCount) Then MM_size = MM_rsCount End If End If if we walked off the end, set the offset based on page size If (MM_rs.EOF And Not MM_paramIsDefined) Then If (MM_offset MM_rsCount - MM_size Or MM_offset = -1) Then If (MM_rsCount Mod MM_size) 0) Then MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If reset the cursor to the beginning If (MM_rs.CursorType 0) Then MM_rs.MoveFirst Else MM_rs.Requery End If move the cursor to the selected record MM_index = 0 While (Not MM_rs.EOF And MM_index % * Move To Record: update recordset stats set the first and last displayed recordRecordset1_first = MM_offset + 1Recordset1_last = MM_offset + MM_sizeIf (MM_rsCount -1) Then If (Recordset1_first MM_rsCount) Then Recordset1_first = MM_rsCount End If If (Recordset1_last MM_rsCount) Then Recordset1_last = MM_rsCount End IfEnd If set the boolean used by hide region to check if we are on the last recordMM_atTotal = (MM_rsCount -1 And MM_offset + MM_size = MM_rsCount)% * Go To Record and Move To Record: create strings for maintaining URL and Form parametersDim MM_keepNoneDim MM_keepURLDim MM_keepFormDim MM_keepBothDim MM_removeListDim MM_itemDim MM_nextItem create the list of parameters which should not be maintainedMM_removeList = &index=If (MM_paramName ) Then MM_removeList = MM_removeList & & & MM_paramName & =End IfMM_keepURL=MM_keepForm=MM_keepBoth=MM_keepNone= add the URL parameters to the MM_keepURL stringFor Each MM_item In Request.QueryString MM_nextItem = & & MM_item & = If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item) End IfNext add the Form variables to the MM_keepForm stringFor Each MM_item In Request.Form MM_nextItem = & & MM_item & = If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item) End IfNext create the Form + URL string and remove the intial & from each of the stringsMM_keepBoth = MM_keepURL & MM_keepFormIf (MM_keepBoth ) Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)End IfIf (MM_keepURL ) Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)End IfIf (MM_keepForm ) Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)End If a utility function used for adding additional parameters to these stringsFunction MM_joinChar(firstItem) If (firstItem ) Then MM_joinChar = & Else MM_joinChar = End IfEnd Function% 1) Then MM_moveParam = offset If (MM_keepMove ) Then MM_paramList = Split(MM_keepMove, &) MM_keepMove = For MM_paramIndex = 0 To UBound(MM_paramList) MM_nextParam = Left(MM_paramList(MM_paramIndex), InStr(MM_paramList(MM_paramIndex),=) - 1) If (StrComp(MM_nextParam,MM_moveParam,1) 0) Then MM_keepMove = MM_keepMove & & & MM_paramList(MM_paramIndex) End If Next If (MM_keepMove ) Then MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1) End If End IfEnd If set the strings for the move to linksIf (MM_keepMove ) Then MM_keepMove = Server.HTMLEncode(MM_keepMove) & &End IfMM_urlStr = Request.ServerVariables(URL) & ? & MM_keepMove & MM_moveParam & =MM_moveFirst = MM_urlStr & 0MM_moveLast = MM_urlStr & -1MM_moveNext = MM_urlStr & CStr(MM_offset + MM_size)If (MM_offset - MM_size 用户后台管理 form ACTION= METHOD=POST id=form_name name=form_name 研究生信息管理 姓名 性别 男 女 民族 籍贯 学科 政治面貌 所属系别 身份证 研究生信息管理 % While (Repeat1_numRows 0) AND (NOT Recordset1.EOF) % 姓名 性别 select name=select id=select title= option value= 0) Then Recordset1.MoveFirstElse Recordset1.RequeryEnd If% 民族 籍贯 学科 政治面貌 所属系别 身份证 记录 到 (总共 ) % If MM_offset 0 Then % a href=第一页 % End If end MM_offset 0 % % If MM_offset 0 Then % a href=前一页 % End If end MM_offset 0 % a href=下一页 a href=最后一页 4.4、研究生信息管理模块%Dim MM_editActionMM_editAction = CStr(Request.ServerVariables(SCRIPT_NAME)If (Request.QueryString ) Then MM_editAction = MM_editAction & ? & Server.HTMLEncode(Request.QueryString)End If boolean to abort record editDim MM_abortEditMM_abortEdit = false%If (CStr(Request(MM_insert) = form_name) Then If (Not MM_abortEdit) Then execute the insert Dim MM_editCmd Set MM_editCmd = Server.CreateObject (ADODB.Command) MM_editCmd.ActiveConnection = MM_conn_STRING MM_editCmd.CommandText = INSERT INTO dbo.teacher (name, xb, mz, csny, sfz, jg, zzmm, xibie, lx) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?) MM_editCmd.Prepared = true MM_editCmd.Parameters.Append MM_editCmd.CreateParameter(param1, 201, 1, 50, Request.Form(name) adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter(param2, 201, 1, 50, Request.Form(xb) adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter(param3, 201, 1, 50, Request.Form(mz) adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter(param4, 201, 1, 50, Request.Form(csny) adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter(param5, 201, 1, 50, Request.Form(sfz) adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter(param6, 201, 1, 50, Request.Form(jg) adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter(param7, 201, 1, 50, Request.Form(zzmm) adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter(param8, 201, 1, 50, Request.Form(xibie) adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter(param9, 201, 1, 50, Request.Form(lx) adLongVarChar MM_editCmd.Execute MM_editCmd.ActiveConnection.Close append the query string to the redirect URL Dim MM_editRedirectUrl MM_editRedirectUrl = cg1.htm If (Request.QueryString ) Then If (InStr(1, MM_editRedirectUrl, ?, vbTextCompare) = 0) Then MM_editRedirectUrl = MM_editRedirectUrl & ? & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & & & Request.QueryString End If End If Response.Redirect(MM_editRedirectUrl) End IfEnd If% * Recordset Stats, Move To Record, and Go To Record: declare stats variablesDim Recordset1_totalDim Recordset1_firstDim Recordset1_last set the record countRecordset1_total = Recordset1.RecordCount set the number of rows displayed on this pageIf (Recordset1_numRows 0) Then Recordset1_numRows = Recordset1_totalElseif (Recordset1_numRows = 0) Then Recordset1_numRows = 1End If set the first and last displayed recordRecordset1_first = 1Recordset1_last = Recordset1_first + Recordset1_numRows - 1 if we have the correct record count, check the other statsIf (Recordset1_total -1) Then If (Recordset1_first Recordset1_total) Then Recordset1_first = Recordset1_total End If If (Recordset1_last Recordset1_total) Then Recordset1_last = Recordset1_total End If If (Recordset1_numRows Recordset1_total) Then Recordset1_numRows = Recordset1_total End IfEnd If% 0) Then Recordset1.MoveFirst Else Recordset1.Requery End If set the number of rows displayed on this page If (Recordset1_numRows Recordset1_total) Then Recordset1_numRows = Recordset1_total End If set the first and last displayed record Recordset1_first = 1 Recordset1_last = Recordset1_first + Recordset1_numRows - 1 If (Recordset1_first Recordset1_total) Then Recordset1_first = Recordset1_total End If If (Recordset1_last Recordset1_total) Then Recordset1_last = Recordset1_total End IfEnd If% * Move To Record and Go To Record: declare variablesDim MM_rsDim MM_rsCountDim MM_sizeDim MM_uniqueColDim MM_offsetDim MM_atTotalDim MM_paramIsDefinedDim MM_paramDim MM_indexSet MM_rs = Recordset1MM_rsCount = Recordset1_totalMM_size = Recordset1_numRowsMM_uniqueCol = MM_paramName = MM_offset = 0MM_atTotal = falseMM_paramIsDefined = falseIf (MM_paramName ) Then MM_paramIsDefined = (Request.QueryString(MM_paramName) )End If% * Move To Record: handle index or offset parameterif (Not MM_paramIsDefined And MM_rsCount 0) then use index parameter if defined, otherwise use offset parameter MM_param = Request.QueryString(index) If (MM_param = ) Then MM_param = Request.QueryString(offset) End If If (MM_param ) Then MM_offset = Int(MM_param) End If if we have a record count, check if we are past the end of the recordset If (MM_rsCount -1) Then If (MM_offset = MM_rsCount Or MM_offset = -1) Then past end or move last If (MM_rsCount Mod MM_size) 0) Then last page not a full repeat region MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If move the cursor to the selected record MM_index = 0 While (Not MM_rs.EOF) And (MM_index % * Move To Record: if we dont know the record count, check the display rangeIf (MM_rsCount = -1) Then walk to the end of the display range for this page MM_index = MM_offset While (Not MM_rs.EOF And (MM_size 0 Or MM_index MM_offset + MM_size) MM_rs.MoveNext MM_index = MM_index + 1 Wend if we walked off the end of the recordset, set MM_rsCount and MM_size If (MM_rs.EOF) Then MM_rsCount = MM_index If (MM_size MM_rsCount) Then MM_size = MM_rsCount End If End If if we walked off the end, set the offset based on page size If (MM_rs.EOF And Not MM_paramIsDefined) Then If (MM_offset MM_rsCount - MM_size Or MM_offset = -1) Then If (MM_rsCount Mod MM_size) 0) Then MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If reset the cursor to the beginning If (MM_rs.CursorType 0) Then MM_rs.MoveFirst Else MM_rs.Requery End If move the cursor to the selected record MM_index = 0 While (Not MM_rs.EOF And MM_index % * Move To Record: update recordset stats set the first and last displayed recordRecordset1_first = MM_offset + 1Recordset1_last = MM_offset + MM_sizeIf (MM_rsCount -1) Then If (Recordset1_first MM_rsCount) Then Recordset1_first = MM_rsCount End If If (Recordset1_last MM_rsCount) Then Recordset1_last = MM_rsCount End IfEnd If set the boolean used by hide region to check if we are on the last recordMM_atTotal = (MM_rsCount -1 And MM_offset + MM_size = MM_rsCount)% * Go To Record and Move To Record: create strings for maintaining URL and Form parametersDim MM_keepNoneDim MM_keepURLDim MM_keepFormDim MM_keepBothDim MM_removeListDim MM_itemDim MM_nextItem create the list of parameters which should not be maintainedMM_removeList = &index=If (MM_paramName ) Then MM_removeList = MM_removeList & & & MM_paramName & =End IfMM_keepURL=MM_keepForm=MM_keepBoth=MM_keepNone= add the URL parameters to the MM_keepURL stringFor Each MM_item In Request.QueryString MM_nextItem = & & MM_item & = If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item) End IfNext add the Form variables to the MM_keepForm stringFor Each MM_item In Request.Form MM_nextItem = & & MM_item & = If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item) End IfNext create the Form + URL string and remove the intial & from each of the stringsMM_keepBoth = MM_keepURL & MM_keepFormIf (MM_keepBoth ) Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)End IfIf (MM_keepURL ) Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)End IfIf (MM_keepForm ) Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)End If a utility function used for adding additional parameters to these stringsFunction MM_joinChar(firstItem) If (firstItem ) Then MM_joinChar = & Else MM_joinChar = End IfEnd Function% 1) Then MM_moveParam = offset If (MM_keepMove ) Then MM_paramList = Split(MM_keepMove, &) MM_keepMove = For MM_paramIndex = 0 To UBound(MM_paramList) MM_nextParam = Left(MM_paramList(MM_paramIndex), InStr(MM_paramList(MM_paramIndex),=) - 1) If (StrComp(MM_nextParam,MM_moveParam,1) 0) Then MM_keepMove = MM_keepMove & & & MM_paramList(MM_paramIndex) End If Next If (MM_keepMove ) Then MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1) End If End IfEnd If set the strings for the move to linksIf (MM_keepMove ) Then MM_keepMove = Server.HTMLEncode(MM_keepMove) & &End IfMM_urlStr = Request.ServerVariables(URL) & ? & MM_keepMove & MM_moveParam & =MM_moveFirst = MM_urlStr & 0MM_moveLast = MM_urlStr & -1MM_moveNext = MM_urlStr & CStr(MM_offset + MM_size)If (MM_offset - MM_size 用户后台管理 form ACTION= METHOD=POST id=form_name name=form_name 师资队伍建设信息管理 姓名 性别 男 女 民族 出生年月 身份证号 籍贯 政治面貌 所属系别 联系方式 师资队伍建设信息管理 % While (Repeat1_numRows 0) AND (NOT Recordset1.EOF) % 姓名 性别 option value= 0) Then Recordset1.MoveFirstElse Recordset1.RequeryEnd If% 民族 出生年月 身份证号 籍贯 政治面貌 所属系别 联系方式 记录 到 (总共 ) % If MM_offset 0 Then % a href=第一页 % End If end MM_offset 0 % % If MM_offset 0 Then % a href=前一页 % End If end MM_offset 0 % a href=下一页 a href=最后一页 4.5、科研信息管理模块%Dim MM_editActionMM_editAction = CStr(Request.ServerVariables(SCRIPT_NAME)If (Request.QueryString ) Then MM_editAction = MM_editAction & ? & Server.HTMLEncode(Request.QueryString)End If boolean to abort record editDim MM_abortEditMM_abortEdit = false%If (CStr(Request(MM_insert) = form_name) Then If (Not MM_abortEdit) Then execute the insert Dim MM_editCmd Set MM_editCmd = Server.CreateObject (ADODB.Command) MM_editCmd.ActiveConnection = MM_conn_STRING MM_editCmd.CommandText = INSERT INTO dbo.keyan (name, type, tupian) VALUES (?, ?, ?) MM_editCmd.Prepared = true MM_editCmd.Parameters.Append MM_editCmd.CreateParameter(param1, 201, 1, 50, Request.Form(name) adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter(param2, 201, 1, 50, Request.Form(type) adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter(param3, 201, 1, 50, Request.Form(cn_content) adLongVarChar MM_editCmd.Execute MM_editCmd.ActiveConnection.Close append the query string to the redirect URL Dim MM_editRedirectUrl MM_editRedirectUrl = cg.htm If (Request.QueryString ) Then If (InStr(1, MM_editRedirectUrl, ?, vbTextCompare) = 0) Then MM_editRedirectUrl = MM_editRedirectUrl & ? & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & & & Request.QueryString End If End If Response.Redirect(MM_editRedirectUrl) End IfEnd If% * Recordset Stats, Move To Record, and Go To Record: declare stats variablesDim Recordset1_totalDim Recordset1_firstDim Recordset1_last set the record countRecordset1_total = Recordset1.RecordCount set the number of rows displayed on this pageIf (Recordset1_numRows 0) Then Recordset1_numRows = Recordset1_totalElseif (Recordset1_numRows = 0) Then Recordset1_numRows = 1End If set the first and last displayed recordRecordset1_first = 1Recordset1_last = Recordset1_first + Recordset1_numRows - 1 if we have the correct record count, check the other statsIf (Recordset1_total -1) Then If (Recordset1_first Recordset1_total) Then Recordset1_first = Recordset1_total End If If (Recordset1_last Recordset1_total) Then Recordset1_last = Recordset1_total End If If (Recordset1_numRows Recordset1_total) Then Recordset1_numRows = Recordset1_total End IfEnd If% 0) Then Recordset1.MoveFirst Else Recordset1.Requery End If set the number of rows displayed on this page If (Recordset1_numRows Recordset1_total) Then Recordset1_numRows = Recordset1_total End If set the first and last displayed record Recordset1_first = 1 Recordset1_last = Recordset1_first + Recordset1_numRows - 1 If (Recordset1_first Recordset1_total) Then Recordset1_first = Recordset1_total End If If (Recordset1_last Recordset1_total) Then Recordset1_last = Recordset1_total End IfEnd If% * Move To Record and Go To Record: declare variablesDim MM_rsDim MM_rsCountDim MM_sizeDim MM_uniqueColDim MM_offsetDim MM_atTotalDim MM_paramIsDefinedDim MM_paramDim MM_indexSet MM_rs = Recordset1MM_rsCount = Recordset1_totalMM_size = Recordset1_numRowsMM_uniqueCol = MM_paramName = MM_offset = 0MM_atTotal = falseMM_paramIsDefined = falseIf (MM_paramName ) Then MM_paramIsDefined = (Request.QueryString(MM_paramName) )End If% * Move To Record: handle index or offset parameterif (Not MM_paramIsDefined And MM_rsCount 0) then use index parameter if defined, otherwise use offset parameter MM_param = Request.QueryString(index) If (MM_param = ) Then MM_param = Request.QueryString(offset) End If If (MM_param ) Then MM_offset = Int(MM_param) End If if we have a record count, check if we are past the end of the recordset If (MM_rsCount -1) Then If (MM_offset = MM_rsCount Or MM_offset = -1) Then past end or move last If (MM_rsCount Mod MM_size) 0) Then last page not a full repeat region MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If move the cursor to the selected record MM_index = 0 While (Not MM_rs.EOF) And (MM_index % * Move To Record: if we dont know the record count, check the display rangeIf (MM_rsCount = -1) Then walk to the end of the display range for this page MM_index = MM_offset While (Not MM_rs.EOF And (MM_size 0 Or MM_index MM_offset + MM_size) MM_rs.MoveNext MM_index = MM_index + 1 Wend if we walked off the end of the recordset, set MM_rsCount and MM_size If (MM_rs.EOF) Then MM_rsCount = MM_index If (MM_size MM_rsCount) Then MM_size = MM_rsCount End If End If if we walked off the end, set the offset based on page size If (MM_rs.EOF And Not MM_paramIsDefined) Then If (MM_offset MM_rsCount - MM_size Or MM_offset = -1) Then If (MM_rsCount Mod MM_size) 0) Then MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If reset the cursor to the beginning If (MM_rs.CursorType 0) Then MM_rs.MoveFirst Else MM_rs.Requery End If move the cursor to the selected record MM_index = 0 While (N