基于ASP+ACCESS的学生信息管理系统(源代码及全套资料)(共15页).docx

《基于ASP+ACCESS的学生信息管理系统(源代码及全套资料)(共15页).docx》由会员分享，可在线阅读，更多相关《基于ASP+ACCESS的学生信息管理系统(源代码及全套资料)(共15页).docx（18页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、精选优质文档-倾情为你奉上摘要随 着 科 学 技 术 的 发 展 ， 计 算 机 领 域 不 断 取 得 新 的 研 究 成 果 。 并 不 断 地 代 替 和 延 伸 脑 力 劳 动 方 面 发 挥 越 来 越 重 要 的 作 用 ， 无 论 是 工 业 还 是 日 常 生 活 都 越 来 越 离 不 开 计 算 机 ， 尤 其 是 在 学 校 里 ， 随 着 不 同 高 校 的 的 不 断 扩 大 和 招 生 人 数 的 不 断 增 加 ， 要 处 理 大 量 的 学 生 数 据 信 息 显 得 尤 为 的 重 要 。 学 生 的 信 息 管 理 是 学 校 工 作 中 一 项 重 要 的

2、 内 容 。本 系 统 论 文 主 要 是 管 理 学 生 的 资 料 。 重 点 介 绍 其 功 能 ： 信 息 添 加 、 信 息 修 改 、 信 息 的 删 除 及 信 息 查 询 。使 用 进 行 静 态 页 面 设 计 ,应 用 A S P 程 序 进 行 后 台 管 理 操 作 ，并 用 A ccess 进 行 后 台 数 据 库 的 连 接 设 计 。 主 要 是 以 四 大 功 能 进 行 系 统 的 设 计 和 实 现 。关 键 词 ： Dreamw eaver M X 2004系 统站 点 设 计A S PA ccess 数 据 库专心-专注-专业1 .1开发工具的介绍1

3、. 1 . 1 AS PASP （ Ac t i ve Se ve r Pa g e s 动 态 网 页 ） 是 微 软 公 司 推 出 的 一 种 用 以 取 代 CGI ( Common Ga t e wa y I nt e r f a c e ) 技 术 。 目 前 ， I nt e r ne t 上 的 许 多 基 于 Wi ndows 平 台 的 We b 站 点 已 开 始 应 用 ASP 来 替 换 CGI 。ASP 是 在 服 务 器 端 脚 本 编 译 环 境 ， 使 用 它 可 以 创 建 和 运 行 动 态 、 交 互 的 We b 服 务 器 应 用 程 序 。 ASP

4、 可 以 与 HTML 页 、 脚 本 命 令 和 Ac t i ve X 组 件 组 合 创 建 交 互 的 We b 页 和 基 于 We b 的 功 能 强 大 的 应 用 程 序 。 ASP 应 用 程 序 很 容 易 开 发 和 修 改 。ASP 是 一 个 位 于 服 务 器 端 的 脚 本 运 行 环 境 。通 过 这 种 环 境 ，用 户 可 以 创 建 和 运 行 动 态 的 交 互 式 We b 服 务 器 应 用 程 序 ， 如 交 互式 动 态 网 页 ， 包 括 使 用 HTML表 单 收 集 和 处 理 信 息 、 上 传 与 下 载 等 。通 常 情 况 下 ，

5、用 户 通 过 浏 览 器 看 到 的 网 页 大 多 是 静 态 的 ， 目 前 I nt e r ne t 上 的 许 多 站 点 ， 仍 然 提 供 “静 态 ”（ s t a t i c ） 的 主 页 内 容 。 所 谓 “静 态 ”， 是 指 站 点 的 主 页 内 容 是 “固 定 不 变 ” 的 。 一 个 “静 态 ”的 站 点 ， 若 要 更 新 主 页 的 内 容 ， 必 须 手 动 更 新 其HTML 的 文 件 数 据 。 而 随 着 We b 技 术 的 发 展 ，用 户 希 望 能 够 看 到 根 据 要 求 而 动 态 生 成 的 主 页 ，例 如 响 应 用

6、户 查 询 数 据 库 的 要 求 而 生 成 报 表 等 。 站 点 服 务 器 收 到 要 求 执 行 的 应 用 程 序 ，分 析 表 单（ f or m）的 输 入 数 据 ，将 执 行 的 结 果 以 HTML 的 格 式 传 送 给 浏 览 器 。 根 据 用 户 请 求 生 成 动 态 主 页 的 传 统 方 法 有 CGI 、 I SAPI 等 。 CGI 是 根 据 浏 览 器 端 的 ht t p 请 求 激 活 响 应 进 程 ， 每 一 个 请 求 对 应 一 个 进 程 。 当 同 时 有 很 多 请 求 时 ， 程 序 挤 占 系 统 资 源 ， 造 成 效 率 低

7、 下 。I SAPI 针 对 这 一 缺 点 进 行 了 改 进 ， 利 用 dl l （ 动 态 链 接 库 技 术 ）， 以 线 程 代 替 进 程 ， 提 高 了 性 能 和 速 度 ， 但 要 考 虑 线 程 的 同 步 问 题 ， 而 且 开 发 步 骤 烦 琐 。 这 两 种 技 术 和 另 一 普 遍 使 用 的 开 发 动 态 网 页 的 技 术J a va 都 还 存 在 着 另 外 一 个 问 题 ，那 就 是 开 发 困 难 ，程 序 的 开 发 和 HTML 写 作 是 两 个 完 全 不 同 的 过 程 ， 需 要 专 门 的 程 序 员 开 发 。 ASP 使 用

8、的Ac t i ve X 技 术 基 于 开 放 设 计 环 境 ， 用 户 可 以 自 己 定 义 和 制 作 组 件 加 入 其 中 ， 使 自 己 的 动 态 网 页 几 乎 具 有 无 限 的 扩 充 能 力 ， 这 是 传 统 的 CGI 等 程 序 所 远 远 不 及 的 地 方 。1 . 1 . 2 Ac c e s sA ccess 是 一 个 数 据 库 管 理 系 统 ，它 之 所 以 被 集 成 到 Office 中 而 不 是 Visual S tudio 中 ，是 因 为 它 与 其 它 的 数 据 库 管 理 系 统（ 如 S QL S erver 2000 ） 相

9、 比 更 加 简 单 易 学 ， 一 个 普 通 的 计 算 机 用 户 即 可 掌 握 并 使 用 它 。 而 且 最 重 要 的 一 点 是 ， A ccess 的 功 能 足 够 强 大 ， 足 以 应 付 一 般 的 数 据 管 理 及 处 理 需 要 。A ccess 可 以 实 现 建 立 数 据 库 、 报 表 ， 以 及 对 数 据 库 、 报 表 的 修 改 、 查 询 等 功 能 。A ccess 随 着 W i nd o w s 操 作 系 统 和 O ffi c e s 办 公 自 动 化 应 用 软 件 的 普 及 ， A ccess 各 个 版 本 变 得 与 其

10、他 Office 成 员 集 成 得 越 来 越 紧 密 。 Office 2000 的 所 有 成 员 和 Visual B asic 6 .0 现 在 共 享 的 是 同 样 的 Visual B asicforA pplications( V B A )版 本 6 .0 。 A ccess 2000 最 后 采 纳 了 Office 2000 V B A 编 辑 器 ( 也 叫 做 集 成 开 发 环 境 或 者 IDE)用 于 编 写 V B A 代 码 来 自 动 操 作 A ccess 应 用 。不 论 好 坏 ，A ccess2000 还 共 享 了 Office 2000 新

11、的 超 文 本 标 记 语 言 (HTM L ) 帮 助 系 统 。 A ccess 最 主 要 用 的 是 创 建 数 据 库 ， 并 建 立 相 应 的 软 件 的 连 接 。 如 ODB C 的 连 接 。第 2 章系 统 的 需 求 分 析 和 设 计2 .1系统的需求分析如 果 我 国 各 个 学 校 管 理 水 平 还 停 留 在 纸 介 质 的 基 础 上 ， 已 不 能 适 应 时 代 的 发 展 ， 因 为 它 浪 费 了 许 多 人 力 和 物 力 ， 在 当 今 的 信 息 时 代 这 种 管 理 方 法 必 然 被 计 算 机 为 基 础 的 信 息 管 理 所 取 代

12、 。 学 生 信 息 管 理 系 统 的 开 发 ， 适 合 任 何 一 个 大 中 小 学 校 的 管 理 ，该 学 生 信 息 管 理 系 统 归 纳 起 来 有 四 点 ：1 学 生 信 息 的 插 入 。可 以 插 入 不 同 地 区 的 学 生 的 姓 名 、个 人 联 系 方 法 、所 在 院 系 、班 级 及 相 关 情 况 。 实 现 了 信 息 的 动 态 管 理 。2 学 生 信 息 的 查 询 。 学 生 的 信 息 使 管 理 员 可 以 通 过 多 种 方 式（ 年 级 、 班 级 、 姓 名 、 学 号 、 所 在 系 等 等 ） 的 查 询 ， 就 可 以 直 接

13、 查 看 自 己 需 要 的 学 生 的 相 关 信 息 。 实 现 了 信 息 的 动 态 管 理 。3 学 生 信 息 的 修 改 。管 理 人 员 可 以 随 时 对 转 入 、转 出 的 学 生 进 行 修 改 ，比 如 学 号 、所 在 系 等 等 实 现 了 信 息 的 动 态 管 理 。3 学 生 信 息 的 删 除 。管 理 人 员 可 以 随 时 对 转 入 、转 出 的 学 生 进 行 删 除 ，比 如 学 号 、所 在 系 等 等 实 现 了 信 息 的 动 态 管 理 。好 处 为 ：1 可 以 存 储 怕 有 的 学 生 档 案 ， 安 全 、 高 效 ；2 只 需

14、一 到 二 名 档 案 录 入 员 即 可 操 作 系 统 ， 节 省 大 量 人 力 ；3 可 以 迅 速 查 找 到 所 需 要 的 信 息 。 其 功 能 结 构 如 图 ：学生信息管理系统登录学生资料管理添加资料修改资料删除资料查询资料第 3 章系 统 的 实 现3 .1数据库存设计数 据 库 是 整 个 学 生 信 息 管 理 系 统 的 核 心 部 分 。 只 有 通 过 数 据 库 的 调 用 才 能 进 行 学 生 信 息 更 新 处 理 、 插 入 资 料 、 删 除 资 料 和 查 询 资 料 ， 方 便 管 理 进 行 管 理 ， 减 少 管 理 员 的 工 作 量 以

15、及 更 多 的 人 力 。3 . 1 . 1 管 理 员 数 据 库 设 计Us e r s 表 是 用 于 管 理 员 登 陆 时 用 于 验 证 管 理 员 身 份 的 ， 这 样 使 前 后 台 分 隔 开 ， 保 护 网 站 的 安 全 ， 阻 止 除 了 管 理 员 之 外 的 任 何 人 进 入 后 台 ， 威 胁 到 整 个 网 站 的 安 全 。 包 括 用 户 名 、 密 码 和 访 问 权 限 等 等 。其 数 据 库 如 图 ：3 . 1 . 2 学 生 信 息 数 据 库 设 计学 生 信 息 数 据 库 是 存 放 学 生 基 本 信 息 资 料 ， 如 学 号 、

16、姓 名 、 出 生 日 期 、 所 在 系 及 一 些 个 人 的 联 系 方 式 等 等 。 其 数 据 库 如 下 ：3 .2登录3 . 2 . 1 系 统 总 模 型学 生 信 息 管 理 系 统 总 的 模 型 主 要 是 说 明 系 统 注 册 后 才 能 登 录 ， 登 录 后 进 么 主 页 面 后 实 现 主 要 有 学 生 资 料 管 理 、 管 理 员 管 理 以 及 更 改 级 别 ， 其 中 学 生 资 料 管 理 主 要 实 现 学 生 信 息 的 添 加 、 修 改 、 删 除 和 查 询 功 能 。 管 理 员 管 理 是 只 有 权 限 最 高 的 管 理 员

17、才 能 进 行 删 除 管 理 员 和 更 改 权 限 的 操 作 。 其 结 构 图 如 下 ：注 册登 录主 页 面学 生 资 料 管 理管 理 员 设 置更 改 级 别添 加 资 料修 改 资 料删 除 资 料查 询 资 料3 . 2 . 2 登 录 界 面（ 1 ） 只 有 通 过 i nde x . a s p 登 录 界 面 才 能 进 入 主 页 面 进 行 相 应 学 生 信 息 的 操 作 。（ 2 ） 进 入 登 录 界 面 ： 通 过 注 册 页 面 让 用 户 提 交 注 册 并 保 存 在 us e r 表 里 ， 并 通 过 登 录 页 面 读 取 用 户 提 交

18、的 登 录 信 息 与 保 存 在 数 据 库 中 的 数 据 进 行 比 较 以 验 证 是 否 成 功 登 录 。图 1 ： 用 户 登 录 界 面3 . 2 . 3 主 页 面 的 实 现图 2：主页面学 生 信 息 管 理 系 统 主 要 是 与 数 据 库 的 连 接 ,然 后 数 据 库 的 连 接 必 须 使 用 A DO 的 内 置 C onnection 对 象 ， 并 且 调 用 R ecordset 对 象 来 进 行 与 数 据 库 的 查 找 、 删 除 、 更 改 等 功 能 ， 具 体 脚 本 如 下 ：%dim username,password dim cnn

19、,rst,ssqlusername=trim(request.form(txtusername) password=trim(request.form(txtpassword) login=request.form(btnlogin)if login= and session(username)= then response.redirect login.htmif (username= or password= ) and login then response.redirect login.htm%if seesion(username)= or (session(username)use

20、rname and seesion(username) then set cnn=server.createobject(adodb.connection)set rst=server.CreateObject(adodb.recordset) cnn.connectionstring=provider=microsoft.jet.oledb.4.0;data source=&server.MapPath(Datedate.mdb ) cnn.openssql=select * from users where user_name=&username& and mm =&password& s

21、et rst =cnn.execute(ssql, ,adcmtext)if rst.eof thenresponse.WriteUsername or Password is error.sorry! response.write重新登录(restart login)else session(username)=rst(user_name) session(level)=rst(purview_level)end if%3 .3后台主要功能的实现3 . 3 . 1 添 加 学 生 信 息 资 料在 学 生 信 息 管 理 系 统 首 页 （ index .a sp） 单 击 “ 添 加 资

22、料 ” 链 接 ， 可 以 进 入 addinfo.asp 页 面 ， 在 该 页 面 中 输 入 学 生 资 料 ， 并 提 交 给 saveinfo.asp 页 面 进 行 添 加 ， 将 数 据 保 存 到 数 据 库 中 。 界 面 如 下 ：图 1 添加页面 addinfo.asp实 现 功 能 脚 本 如 下 ：%Dim cnn, rst, sSQLDim StudentNum, StudentName, StudentSex, BirthDate, DepartmentDim Speciality, Grade, sClass, ParentName, HomeAddr, Hom

23、ePhone, Remark StudentNum = Trim(Request.Form(txtStudentNum)StudentName = Trim(Request.Form(txtStudentName) StudentSex = Request.Form(optStudentSex)BirthDate = Trim(Request.Form(txtBirthDate) Department = Trim(Request.Form(txtDepartment) Speciality = Trim(Request.Form(txtSpeciality) Grade = Trim(Req

24、uest.Form(txtGrade)sClass = Trim(Request.Form(txtClass)ParentName = Trim(Request.Form(txtParentName) HomeAddr = Trim(Request.Form(txtHomeAddr) HomePhone = Trim(Request.Form(txtHomePhone) Remark = Trim(Request.Form(txtRemark)If StudentNum = Or StudentName = Then Response.Redirect addInfo.aspEnd IfSet

25、 cnn = Server.CreateObject(ADODB.Connection) Set rst = Server.CreateObject(ADODB.Recordset)cnn.ConnectionString = PROVIDER=microsoft.jet.oledb.4.0;DATA SOURCE= & server.mappath(Datedate.mdb) cnn.OpensSQL = SELECT student_num FROM students WHERE student_num= & StudentNum & Set rst = cnn.Execute(sSQL,

26、 , adCmdText)If Not rst.EOF ThenResponse.Write 学号“ & rst(student_num) & ”已经存在，请重新输入！ElsesSQL = INSERT into students(student_num, student_name, & student_sex, birthdate, department, speciality, sSQL = sSQL & grade, class, home_addr, parent_name, sSQL = sSQL & home_phone, remark) VALUES(sSQL = sSQL &

27、StudentNum & , & StudentName & , & StudentSex & , & BirthDate & , sSQL = sSQL & Department & , & Speciality & , & Grade & , & sClass & ,sSQL = sSQL & HomeAddr & , & ParentName & , & HomePhone & , & Remark & ) cnn.Execute sSQL, , adCmdText%数据保存成功！3 . 3 . 2 修 改 学 生 资 料在 学 生 信 息 管 理 系 统 首 页 （ index .a

28、sp） 单 击 “ 修 改 资 料 ” 链 接 ， 可 以 进 入 editinfo.asp 页 面 ， 在 该 页 面 中 输 入 学 生 资 料 ， 并 提 交 给 editinfo2 .asp 页 面 进 行 修 改 ， 将 数 据 进 行 修 改 操 作 中 。 界 面 如 下 ：图 2 修改页面 editinfo.asp实 现 功 能 脚 本 如 下 ：%Dim cnn, rst, sSQL, StuNumStuNum = Trim(Request.Form(txtStuNum)Set cnn = Server.CreateObject(ADODB.Connection) Set r

29、st = Server.CreateObject(ADODB.Recordset)cnn.ConnectionString = PROVIDER=microsoft.jet.oledb.4.0;DATA SOURCE= & server.mappath(Datedate.mdb) cnn.OpenIf StuNum ThensSQL = SELECT * FROM students WHERE student_num= & StuNum & Set rst = cnn.Execute(sSQL, , adCmdText)If rst.EOF ThenResponse.Write 没有找到符合条

30、件的记录！ Else%修改学生资料学号：INPUT TYPE = text NAME = txtStudentNum SIZE = 12 VALUE = INPUT TYPE = hidden NAME = txtOldStuNum SIZE = 12 VALUE = 姓名：INPUT TYPE = text NAME = txtStudentName SIZE = 12 VALUE = 性别：INPUT TYPE = radio VALUE = 男NAME=optStudentSex 男INPUT TYPE=radio VALUE=女NAME=optStudentSex 女出生日期：INPU

31、T TYPE = text NAME = txtBirthDate SIZE = 12VALUE = 所在院系：INPUT TYPE = text NAME = txtDepartment SIZE = 12 VALUE = 所在专业：INPUT TYPE = text NAME = txtSpeciality SIZE = 12 VALUE = 年级：INPUT TYPE = text NAME = txtGrade SIZE = 12VALUE = 班级：INPUT TYPE = text NAME = txtClass SIZE = 12VALUE = 家长姓名：INPUT TYPE =

32、 text NAME = txtParentName SIZE = 12 VALUE = 家庭住址：INPUT TYPE = textNAME = txtHomeAddr SIZE = 33 VALUE = 住宅电话：INPUT TYPE = text NAME = txtHomePhone SIZE = 12VALUE = 备注：   Editinfo2 .a sp 页 面 脚 本 如 下 :3 . 3 . 3 删 除 资 料在 学 生 信 息 管 理 系 统 首 页 （ index .a sp） 单 击 “ 删 除 资 料 ” 链 接 ， 可 以 进 入 de

33、leteinfo.asp 页 面 ， 在 该 页 面 中 输 入 一 个 指 定 的 学 号 并 单 击 ”提 交 ”按 钮 ,如 果 找 到 匹 配 的 学 生 记 录 ， 则 以 表 格 形 式 显 示 出 该 学 生 的 详 细 资 料 ,此 时 发 给 deletetinfo2.asp 页 面 进 行 删 除 操 作 。功 能 脚 本 如 下 :%Dim cnn, rst, sSQL, StuNumStuNum = Trim(Request.Form(txtStuNum)Set cnn = Server.CreateObject(ADODB.Connection) Set rst =

34、Server.CreateObject(ADODB.Recordset)cnn.ConnectionString = PROVIDER=microsoft.jet.oledb.4.0;DATA SOURCE= & server.mappath(Datedate.mdb) cnn.OpenIf StuNum ThensSQL = SELECT * FROM students WHERE student_num = & StuNum & Set rst = cnn.Execute(sSQL, , adCmdText)If rst.EOF Then%没有找到符合条件的记录！学号为“”的学生资料如下：