1、 摘 要 随 着 科 学 技 术 发 展 ， 计 算 机 领 域 不 断 取 得 新 研 究 成 果 。 并 不 断 地 代 替 和 延 伸 脑 力 劳 动 方 面 发 挥 越 来 越 重 要 作 用 ， 无 论 是 工 业 还 是 日 常 生 活 全部 越 来 越 离 不 开 计 算 机 ， 尤 其 是 在 学 校 里 ， 随 着 不 同 高 校 不 断 扩 大 和 招 生 人 数 不 断 增 加 ， 要 处 理 大 量 学 生 数 据 信 息 显 得 尤 为 重 要 。 学 生 信 息 管 理 是 学 校 工 作 中 一 项 重 要 内
2、容 。 本 系 统 论 文 主 要 是 管 理 学 生 资 料 。 重 点 介 绍 其 功 能 ： 信 息 添 加 、 信 息 修 改 、 信 息 删 除 及 信 息 查 询 。使 用 进 行 静 态 页 面 设 计 ,应 用 A S P 程 序 进 行 后 台 管 理 操 作 ，并 用 A ccess 进 行 后 台 数 据 库 连 接 设 计 。 主 要 是 以 四 大 功 能 进 行 系 统 设 计 和 实 现 。 关 键 词 ： Dreamw eaver M X 系 统 站 点 设 计 A S P A ccess 数 据 库 1 .1 开发工具介绍
3、 1 . 1 . 1 AS P ASP （ 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 是 在 服 务 器 端
4、 脚 本 编 译 环 境 ， 使 用 它 可 以 创 建 和 运 行 动 态 、 交 互 We b 服 务 器 应 用 程 序 。 ASP 可 以 和 HTML 页 、 脚 本 命 令 和 Ac t i ve X 组 件 组 合 创 建 交 互 We b 页 和 基 于 We b 功 能 强 大 应 用 程 序 。 ASP 应 用 程 序 很 容 易 开 发 和 修 改 。ASP 是 一 个 位 于 服 务 器 端 脚 本 运 行 环 境 。通 过 这 种 环 境 ，用 户 可 以 创 建 和 运 行 动 态 交 互 式 We b 服 务 器 应 用 程 序 ， 如 交
5、 互 式 动 态 网 页 ， 包 括 使 用 HTML 表 单 收 集 和 处 理 信 息 、 上 传 和 下 载 等 。 通 常 情 况 下 ， 用 户 通 过 浏 览 器 看 到 网 页 大 多 是 静 态 ， 目 前 I nt e r ne t 上 许 多 站 点 ， 仍 然 提 供 “静 态 ”（ s t a t i c ） 主 页 内 容 。 所 谓 “静 态 ”， 是 指 站 点 主 页 内 容 是 “固 定 不 变 ” 。 一 个 “静 态 ” 站 点 ， 若 要 更 新 主 页 内 容 ， 必 须 手 动 更 新 其 HTML 文 件 数 据 。 而
6、 随 着 We b 技 术 发 展 ，用 户 希 望 能 够 看 到 根 据 要 求 而 动 态 生 成 主 页 ，例 如 响 应 用 户 查 询 数 据 库 要 求 而 生 成 报 表 等 。 站 点 服 务 器 收 到 要 求 执 行 应 用 程 序 ，分 析 表 单（ f or m） 输 入 数 据 ，将 执 行 结 果 以 HTML 格 式 传 送 给 浏 览 器 。 根 据 用 户 请 求 生 成 动 态 主 页 传 统 方 法 有 CGI 、 I SAPI 等 。 CGI 是 根 据 浏 览 器 端 ht t p 请 求 激 活 响 应 进 程 ， 每
7、一 个 请 求 对 应 一 个 进 程 。 当 同 时 有 很 多 请 求 时 ， 程 序 挤 占 系 统 资 源 ， 造 成 效 率 低 下 。 I SAPI 针 对 这 一 缺 点 进 行 了 改 进 ， 利 用 dl l （ 动 态 链 接 库 技 术 ）， 以 线 程 代 替 进 程 ， 提 高 了 性 能 和 速 度 ， 但 要 考 虑 线 程 同 步 问 题 ， 而 且 开 发 步 骤 烦 琐 。 这 两 种 技 术 和 另 一 普 遍 使 用 开 发 动 态 网 页 技 术 J a va 全部 还 存 在 着 另 外 一 个 问 题 ，那 就 是 开 发 困 难 ，程
8、序 开 发 和 HTML 写 作 是 两 个 完 全 不 同 过 程 ， 需 要 专 门 程 序 员 开 发 。 ASP 使 用 Ac t i ve X 技 术 基 于 开 放 设 计 环 境 ， 用 户 可 以 自 己 定 义 和 制 作 组 件 加 入 其 中 ， 使 自 己 动 态 网 页 几 乎 具 有 无 限 扩 充 能 力 ， 这 是 传 统 CGI 等 程 序 所 远 远 不 及 地 方 。 1 . 1 . 2 Ac c e s s A ccess 是 一 个 数 据 库 管 理 系 统 ，它 之 所 以 被 集 成 到 Office 中 而
9、 不 是 Visual S tudio 中 ，是 因 为 它 和 其 它 数 据 库 管 理 系 统（ 如 S QL S erver ） 相 比 更 加 简 单 易 学 ， 一 个 普 通 计 算 机 用 户 即 可 掌 握 并 使 用 它 。 而 且 最 重 要 一 点 是 ， A ccess 功 能 足 够 强 大 ， 足 以 应 付 一 般 数 据 管 理 及 处 理 需 要 。 A ccess 可 以 实 现 建 立 数 据 库 、 报 表 ， 以 及 对 数 据 库 、 报 表 修 改 、 查 询 等 功 能 。 A ccess 随 着 W i nd o w s 操
10、 作 系 统 和 O ffi c e s 办 公 自 动 化 应 用 软 件 普 及 ， A ccess 各 个 版 本 变 得 和 其 她 Office 成 员 集 成 得 越 来 越 紧 密 。 Office 所 有 成 员 和 Visual B asic 6 .0 现 在 共 享 是 同 样 Visual B asicforA pplications( V B A )版 本 6 .0 。 A ccess 最 后 采 纳 了 Office V B A 编 辑 器 ( 也 叫 做 集 成 开 发 环 境 或 者 IDE)用 于 编 写 V B A 代 码 来 自 动 操
11、作 A ccess 应 用 。不 论 好 坏 ，A ccess 还 共 享 了 Office 新 超 文 本 标 记 语 言 (HTM L ) 帮 助 系 统 。 A ccess 最 主 要 用 是 创 建 数 据 库 ， 并 建 立 相 应 软 件 连 接 。 如 ODB C 连 接 。 第 2 章 系 统 需 求 分 析 和 设 计 2 .1 系统需求分析 如 果 我 国 各 个 学 校 管 理 水 平 还 停 留 在 纸 介 质 基 础 上 ， 已 不 能 适 应 时 代 发 展 ， 因 为 它 浪 费 了 许 多 人 力 和
12、物 力 ， 在 当 今 信 息 时 代 这 种 管 理 方 法 必 然 被 计 算 机 为 基 础 信 息 管 理 所 取 代 。 学 生 信 息 管 理 系 统 开 发 ， 适 合 任 何 一 个 大 中 小 学 校 管 理 ， 该 学 生 信 息 管 理 系 统 归 纳 起 来 有 四 点 ： 1 ．学 生 信 息 插 入 。可 以 插 入 不 同 地 区 学 生 姓 名 、个 人 联 系 方 法 、所 在 院 系 、班 级 及 相 关 情 况 。 实 现 了 信 息 动 态 管 理 。 2 ． 学 生 信 息 查 询 。 学 生 信 息 使 管 理 员 可 以
13、通 过 多 种 方 式（ 年 级 、 班 级 、 姓 名 、 学 号 、 所 在 系 等 等 ） 查 询 ， 就 可 以 直 接 查 看 自 己 需 要 学 生 相 关 信 息 。 实 现 了 信 息 动 态 管 理 。 3 ．学 生 信 息 修 改 。管 理 人 员 可 以 随 时 对 转 入 、转 出 学 生 进 行 修 改 ，比 如 学 号 、所 在 系 等 等 实 现 了 信 息 动 态 管 理 。 3 ．学 生 信 息 删 除 。管 理 人 员 可 以 随 时 对 转 入 、转 出 学 生 进 行 删 除 ，比 如 学 号 、所 在 系 等 等 实 现 了 信
14、息 动 态 管 理 。 好 处 为 ： 1 ． 可 以 存 储 怕 有 学 生 档 案 ， 安 全 、 高 效 ； 2 ． 只 需 一 到 二 名 档 案 录 入 员 即 可 操 作 系 统 ， 节 省 大 量 人 力 ； 3 ． 可 以 迅 速 查 找 到 所 需 要 信 息 。 其 功 能 结 构 如 图 ： 学生信息管理系统 登录 学生资料管理 添加资料 修改资料 删除资料 查询资料 第 3 章 系 统 实 现 3 .1 数据库存设计 数 据 库
15、 是 整 个 学 生 信 息 管 理 系 统 核 心 部 分 。 只 有 通 过 数 据 库 调 用 才 能 进 行 学 生 信 息 更 新 处 理 、 插 入 资 料 、 删 除 资 料 和 查 询 资 料 ， 方 便 管 理 进 行 管 理 ， 减 少 管 理 员 工 作 量 以 及 更 多 人 力 。 3 . 1 . 1 管 理 员 数 据 库 设 计 Us e r s 表 是 用 于 管 理 员 登 陆 时 用 于 验 证 管 理 员 身 份 ， 这 样 使 前 后 台 分 隔 开 ， 保 护 网 站 安 全 ， 阻 止 除 了 管 理 员 之 外 任 何
16、人 进 入 后 台 ， 威 胁 到 整 个 网 站 安 全 。 包 括 用 户 名 、 密 码 和 访 问 权 限 等 等 。 其 数 据 库 如 图 ： 3 . 1 . 2 学 生 信 息 数 据 库 设 计 学 生 信 息 数 据 库 是 存 放 学 生 基 本 信 息 资 料 ， 如 学 号 、 姓 名 、 出 生 日 期 、 所 在 系 及 一 些 个 人 联 系 方 式 等 等 。 其 数 据 库 如 下 ： 3 .2 登录 3 . 2 . 1 系 统 总 模 型 学 生 信 息 管 理 系 统 总 模 型
17、 主 要 是 说 明 系 统 注 册 后 才 能 登 录 ， 登 录 后 进 么 主 页 面 后 实 现 主 要 有 学 生 资 料 管 理 、 管 理 员 管 理 以 及 更 改 级 别 ， 其 中 学 生 资 料 管 理 主 要 实 现 学 生 信 息 添 加 、 修 改 、 删 除 和 查 询 功 能 。 管 理 员 管 理 是 只 有 权 限 最 高 管 理 员 才 能 进 行 删 除 管 理 员 和 更 改 权 限 操 作 。 其 结 构 图 如 下 ： 注 册 登 录 主 页 面 学 生 资 料 管 理 管 理 员 设 置
18、 更 改 级 别 添 加 资 料 修 改 资 料 删 除 资 料 查 询 资 料 3 . 2 . 2 登 录 界 面 （ 1 ） 只 有 通 过 i nde x . a s p 登 录 界 面 才 能 进 入 主 页 面 进 行 相 应 学 生 信 息 操 作 。 （ 2 ） 进 入 登 录 界 面 ： 通 过 注 册 页 面 让 用 户 提 交 注 册 并 保 存 在 us e r 表 里 ， 并 通 过 登 录 页 面 读 取 用 户 提 交 登 录 信 息 和 保 存 在 数 据 库 中 数 据 进 行 比 较 以 验
19、 证 是 否 成 功 登 录 。 图 1 ： 用 户 登 录 界 面 3 . 2 . 3 主 页 面 实 现 图 2：主页面 学 生 信 息 管 理 系 统 主 要 是 和 数 据 库 连 接 ,然 后 数 据 库 连 接 必 须 使 用 A DO 内 置 C onnection 对 象 ， 并 且 调 用 R ecordset 对 象 来 进 行 和 数 据 库 查 找 、 删 除 、 更 改 等 功 能 ， 具 体 脚 本 如 下 ： <% dim username,password dim cnn,rst,ssq
20、l username=trim(request.form("txtusername")) password=trim(request.form("txtpassword")) login=request.form("btnlogin") 'if login="" and session("username")="" then response.redirect "login.htm" if (username="" or password="" ) and login<>"" then response.redirect "login.htm" %> <% 'if see
21、sion("username")="" or (session("username")<>username 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("Date\date.mdb ") cnn.open
22、 ssql="select * from users where user_name='"&username&"' and mm ='"&password&"' " set rst =cnn.execute(ssql, ,adcmtext) if rst.eof then response.Write"
Username or Password is error.sorry!
" response.write"23、" else session("username")=rst("user_name") session("level")=rst("purview_level") end if %> 3 .3 后台关键功效实现 3 . 3 . 1 添 加 学 生 信 息 资 料 在 学 生 信 息 管 理 系 统 首 页 （ index .a sp） 单 击 “ 添 加 资 料 ” 链 接 ， 可 以 进 入 addinfo.asp 页 面 ， 在 该 页 面 中 输 入 学 生 资 料 ， 并 提 交 给 saveinfo.asp 页 面 进 行 添 加 ， 将 数
24、 据 保 存 到 数 据 库 中 。 界 面 如 下 ： 图 1 添加页面 addinfo.asp 实 现 功 能 脚 本 如 下 ： <% Dim cnn, rst, sSQL Dim StudentNum, StudentName, StudentSex, BirthDate, Department Dim Speciality, Grade, sClass, ParentName, HomeAddr, HomePhone, Remark StudentNum
25、 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(Reques
26、t.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 R
27、esponse.Redirect "addInfo.asp" End If Set cnn = Server.CreateObject("ADODB.Connection") Set rst = Server.CreateObject("ADODB.Recordset") cnn.ConnectionString = "PROVIDER=microsoft.jet.oledb.4.0;DATA SOURCE=" & server.mappath("Date\date.mdb") cnn.Open sSQL = "SELECT student_num FROM students WH
28、ERE student_num='" & StudentNum & "'" Set rst = cnn.Execute(sSQL, , adCmdText) If Not rst.EOF Then Response.Write "
学号“" & rst("student_num") & "”已经存在，请重新输入！
" Else sSQL = "INSERT into students(student_num, student_name, " & "student_sex, birthdate, department, speciality," sSQL = sSQL29、 "grade, class, home_addr, parent_name, " sSQL = sSQL & "home_phone, remark) VALUES('" sSQL = sSQL & StudentNum & "','" & StudentName & "','" & StudentSex & "','" & BirthDate & "','" sSQL = sSQL & Department & "','" & Speciality & "','" & Grade & "','" & sClass & "','" sSQL = sSQL & HomeAddr
30、 "','" & ParentName & "','" & HomePhone & "','" & Remark & "')" cnn.Execute sSQL, , adCmdText %>
数据保留成功！
<% End If %> 3 . 3 . 2 修 改 学 生 资 料 在 学 生 信 息 管 理 系 统 首 页 （ index .a sp） 单 击 “ 修 改 资 料 ” 链 接 ， 可 以 进 入 editinfo.asp 页 面31、 在 该 页 面 中 输 入 学 生 资 料 ， 并 提 交 给 editinfo2 .asp 页 面 进 行 修 改 ， 将 数 据 进 行 修 改 操 作 中 。 界 面 如 下 ： 图 2 修改页面 editinfo.asp 实 现 功 能 脚 本 如 下 ： <% Dim cnn, rst, sSQL, StuNum StuNum = Trim(Request.Form("txtStuNum")) Set cnn = Server.Create
32、Object("ADODB.Connection") Set rst = Server.CreateObject("ADODB.Recordset") cnn.ConnectionString = "PROVIDER=microsoft.jet.oledb.4.0;DATA SOURCE=" & server.mappath("Date\date.mdb") cnn.Open If StuNum <> "" Then sSQL = "SELECT * FROM students WHERE student_num='" & StuNum & "'" Set rst = cnn.Exec
33、ute(sSQL, , adCmdText) If rst.EOF Then Response.Write "
没有找到符合条件统计！
" Else %>