基于ASPACCESS的学生信息综合管理系统源代码及全套资料.docx

摘 要

随 着 科 学 技 术 发 展 ， 计 算 机 领 域 不 断 取 得 新 研 究 成 果 。 并 不 断 地 代 替 和 延 伸 脑 力 劳 动 方 面 发 挥 越 来 越 重 要 作 用 ， 无 论 是 工 业 还 是 日 常 生 活 全部 越 来 越 离 不 开 计 算 机 ， 尤 其 是 在 学 校 里 ， 随 着 不 同 高 校 不 断 扩 大 和 招 生 人 数 不 断 增 加 ， 要 处 理 大 量 学 生 数 据 信 息 显 得 尤 为 重 要 。 学 生 信 息 管 理 是 学 校 工 作 中 一 项 重 要 内 容 。
本 系 统 论 文 主 要 是 管 理 学 生 资 料 。 重 点 介 绍 其 功 能 ： 信 息 添 加 、 信 息 修 改 、 信 息 删 除 及 信 息 查 询 。使 用 进 行 静 态 页 面 设 计 ,应 用 A S P 程 序 进 行 后 台 管 理 操 作 ，并 用 A ccess 进 行 后 台 数 据 库 连 接 设 计 。 主 要 是 以 四 大 功 能 进 行 系 统 设 计 和 实 现 。
关 键 词 ： Dreamw eaver M X 系 统 站 点 设 计 A S P A ccess 数 据 库

1 .1 开发工具介绍

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 是 在 服 务 器 端 脚 本 编 译 环 境 ， 使 用 它 可 以 创 建 和 运 行 动 态 、 交 互 We b 服 务 器 应 用 程 序 。 ASP 可 以 和 HTML 页 、 脚 本 命 令 和 Ac t i ve X 组 件 组 合 创 建 交 互 We b 页 和 基 于 We b 功 能 强 大 应 用 程 序 。 ASP 应 用 程 序 很 容 易 开 发 和 修 改 。ASP 是 一 个 位 于 服 务 器 端 脚 本 运 行 环 境 。通 过 这 种 环 境 ，用 户 可 以 创 建 和 运 行 动 态 交 互 式 We b 服 务 器 应 用 程 序 ， 如 交 互 式 动 态 网 页 ， 包 括 使 用 HTML 表 单 收 集 和 处 理 信 息 、 上 传 和 下 载 等 。 通 常 情 况 下 ， 用 户 通 过 浏 览 器 看 到 网 页 大 多 是 静 态 ， 目 前 I nt e r ne t 上 许 多 站 点 ， 仍 然 提 供 “静 态 ”（ s t a t i c ） 主 页 内 容 。 所 谓 “静 态 ”， 是 指 站 点 主 页 内 容 是 “固 定 不 变 ” 。 一 个 “静 态 ” 站 点 ， 若 要 更 新 主 页 内 容 ， 必 须 手 动 更 新 其 HTML 文 件 数 据 。 而 随 着 We b 技 术 发 展 ，用 户 希 望 能 够 看 到 根 据 要 求 而 动 态 生 成 主 页 ，例 如 响 应 用 户 查 询 数 据 库 要 求 而 生 成 报 表 等 。 站 点 服 务 器 收 到 要 求 执 行 应 用 程 序 ，分 析 表 单（ f or m） 输 入 数 据 ，将 执 行 结 果 以 HTML 格 式 传 送 给 浏 览 器 。 根 据 用 户 请 求 生 成 动 态 主 页 传 统 方 法 有 CGI 、 I SAPI 等 。 CGI 是 根 据 浏 览 器 端 ht t p 请 求 激 活 响 应 进 程 ， 每 一 个 请 求 对 应 一 个 进 程 。 当 同 时 有 很 多 请 求 时 ， 程 序 挤 占 系 统 资 源 ， 造 成 效 率 低 下 。
I SAPI 针 对 这 一 缺 点 进 行 了 改 进 ， 利 用 dl l （ 动 态 链 接 库 技 术 ）， 以 线 程 代 替 进 程 ， 提 高 了 性 能 和 速 度 ， 但 要 考 虑 线 程 同 步 问 题 ， 而 且 开 发 步 骤 烦 琐 。 这 两 种 技 术 和 另 一 普 遍 使 用 开 发 动 态 网 页 技 术 J a va 全部 还 存 在 着 另 外 一 个 问 题 ，那 就 是 开 发 困 难 ，程 序 开 发 和 HTML 写 作 是 两 个 完 全 不 同 过 程 ， 需 要 专 门 程 序 员 开 发 。 ASP 使 用 Ac t i ve X 技 术 基 于 开 放 设 计 环 境 ， 用 户 可 以 自 己 定 义 和 制 作 组 件 加 入 其 中 ， 使 自 己 动 态 网 页 几 乎 具 有 无 限 扩 充 能 力 ， 这 是 传 统 CGI 等 程 序 所 远 远 不 及 地 方 。

1 . 1 . 2 Ac c e s s

A ccess 是 一 个 数 据 库 管 理 系 统 ，它 之 所 以 被 集 成 到 Office 中 而 不 是 Visual S tudio 中 ，是 因 为 它 和 其 它 数 据 库 管 理 系 统（ 如 S QL S erver ） 相 比 更 加 简 单 易 学 ， 一 个 普 通 计 算 机 用 户 即 可 掌 握 并 使 用 它 。 而 且 最 重 要 一 点 是 ， A ccess 功 能 足 够 强 大 ， 足 以 应 付 一 般 数 据 管 理 及 处 理 需 要 。
A ccess 可 以 实 现 建 立 数 据 库 、 报 表 ， 以 及 对 数 据 库 、 报 表 修 改 、 查 询 等 功 能 。
A ccess 随 着 W i nd o w s 操 作 系 统 和 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 代 码 来 自 动 操 作 A ccess 应 用 。不 论 好 坏 ，A ccess 还 共 享 了 Office 新 超 文 本 标 记 语 言 (HTM L ) 帮 助 系 统 。 A ccess 最 主 要 用 是 创 建 数 据 库 ， 并 建 立 相 应 软 件 连 接 。 如 ODB C 连 接 。

第 2 章 系 统 需 求 分 析 和 设 计

2 .1 系统需求分析

如 果 我 国 各 个 学 校 管 理 水 平 还 停 留 在 纸 介 质 基 础 上 ， 已 不 能 适 应 时 代 发 展 ， 因 为 它 浪 费 了 许 多 人 力 和 物 力 ， 在 当 今 信 息 时 代 这 种 管 理 方 法 必 然 被 计 算 机 为 基 础 信 息 管 理 所 取 代 。 学 生 信 息 管 理 系 统 开 发 ， 适 合 任 何 一 个 大 中 小 学 校 管 理 ，
该 学 生 信 息 管 理 系 统 归 纳 起 来 有 四 点 ：
1 ．学 生 信 息 插 入 。可 以 插 入 不 同 地 区 学 生 姓 名 、个 人 联 系 方 法 、所 在 院 系 、班 级 及 相 关 情 况 。 实 现 了 信 息 动 态 管 理 。
2 ． 学 生 信 息 查 询 。 学 生 信 息 使 管 理 员 可 以 通 过 多 种 方 式（ 年 级 、 班 级 、 姓 名 、 学 号 、 所 在 系 等 等 ） 查 询 ， 就 可 以 直 接 查 看 自 己 需 要 学 生 相 关 信 息 。 实 现 了 信 息 动 态 管 理 。
3 ．学 生 信 息 修 改 。管 理 人 员 可 以 随 时 对 转 入 、转 出 学 生 进 行 修 改 ，比 如 学 号 、所 在 系 等 等 实 现 了 信 息 动 态 管 理 。
3 ．学 生 信 息 删 除 。管 理 人 员 可 以 随 时 对 转 入 、转 出 学 生 进 行 删 除 ，比 如 学 号 、所 在 系 等 等 实 现 了 信 息 动 态 管 理 。
好 处 为 ：
1 ． 可 以 存 储 怕 有 学 生 档 案 ， 安 全 、 高 效 ；
2 ． 只 需 一 到 二 名 档 案 录 入 员 即 可 操 作 系 统 ， 节 省 大 量 人 力 ；
3 ． 可 以 迅 速 查 找 到 所 需 要 信 息 。 其 功 能 结 构 如 图 ：
学生信息管理系统

登录

学生资料管理

添加资料

修改资料

删除资料

查询资料

第 3 章 系 统 实 现

3 .1 数据库存设计

数 据 库 是 整 个 学 生 信 息 管 理 系 统 核 心 部 分 。 只 有 通 过 数 据 库 调 用 才 能 进 行 学 生 信 息 更 新 处 理 、 插 入 资 料 、 删 除 资 料 和 查 询 资 料 ， 方 便 管 理 进 行 管 理 ， 减 少 管 理 员 工 作 量 以 及 更 多 人 力 。

3 . 1 . 1 管 理 员 数 据 库 设 计

Us e r s 表 是 用 于 管 理 员 登 陆 时 用 于 验 证 管 理 员 身 份 ， 这 样 使 前 后 台 分 隔 开 ， 保 护 网 站 安 全 ， 阻 止 除 了 管 理 员 之 外 任 何 人 进 入 后 台 ， 威 胁 到 整 个 网 站 安 全 。 包 括 用 户 名 、 密 码 和 访 问 权 限 等 等 。
其 数 据 库 如 图 ：

3 . 1 . 2 学 生 信 息 数 据 库 设 计

学 生 信 息 数 据 库 是 存 放 学 生 基 本 信 息 资 料 ， 如 学 号 、 姓 名 、 出 生 日 期 、 所 在 系 及 一 些 个 人 联 系 方 式 等 等 。 其 数 据 库 如 下 ：

3 .2 登录

3 . 2 . 1 系 统 总 模 型

学 生 信 息 管 理 系 统 总 模 型 主 要 是 说 明 系 统 注 册 后 才 能 登 录 ， 登 录 后 进 么 主 页 面 后 实 现 主 要 有 学 生 资 料 管 理 、 管 理 员 管 理 以 及 更 改 级 别 ， 其 中 学 生 资 料 管 理 主 要 实 现 学 生 信 息 添 加 、 修 改 、 删 除 和 查 询 功 能 。 管 理 员 管 理 是 只 有 权 限 最 高 管 理 员 才 能 进 行 删 除 管 理 员 和 更 改 权 限 操 作 。 其 结 构 图 如 下 ：

注 册
登 录
主 页 面

学 生 资 料 管 理

管 理 员 设 置

更 改 级 别

添 加 资 料
修 改 资 料

删 除 资 料
查 询 资 料

3 . 2 . 2 登 录 界 面

（ 1 ） 只 有 通 过 i nde x . a s p 登 录 界 面 才 能 进 入 主 页 面 进 行 相 应 学 生 信 息 操 作 。
（ 2 ） 进 入 登 录 界 面 ： 通 过 注 册 页 面 让 用 户 提 交 注 册 并 保 存 在 us e r 表 里 ， 并 通 过 登 录 页 面 读 取 用 户 提 交 登 录 信 息 和 保 存 在 数 据 库 中 数 据 进 行 比 较 以 验 证 是 否 成 功 登 录 。

图 1 ： 用 户 登 录 界 面

3 . 2 . 3 主 页 面 实 现

图 2：主页面

学 生 信 息 管 理 系 统 主 要 是 和 数 据 库 连 接 ,然 后 数 据 库 连 接 必 须 使 用 A DO 内 置 C onnection 对 象 ， 并 且 调 用 R ecordset 对 象 来 进 行 和 数 据 库 查 找 、 删 除 、 更 改 等 功 能 ， 具 体 脚 本 如 下 ：
<%
dim username,password dim cnn,rst,ssql
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 seesion("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
ssql="select * from users where user_name='"&username&"' and mm ='"&password&"' " set rst =cnn.execute(ssql, ,adcmtext)
if rst.eof then
response.Write"<p align=center><b>Username or Password is error.sorry! </b></p>" response.write"<p align=center><a href=login.asp>重新登录(restart login)</a></p>"
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 页 面 进 行 添 加 ， 将 数 据 保 存 到 数 据 库 中 。 界 面 如 下 ：

图 1 添加页面 addinfo.asp

实 现 功 能 脚 本 如 下 ：
<!-- #include file="Date\adovbs.inc" -->
<%
Dim cnn, rst, sSQL
Dim StudentNum, StudentName, StudentSex, BirthDate, Department
Dim Speciality, Grade, sClass, ParentName, HomeAddr, HomePhone, 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(Request.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.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 WHERE student_num='" & StudentNum & "'" Set rst = cnn.Execute(sSQL, , adCmdText)
If Not rst.EOF Then
Response.Write "<P>学号“" & rst("student_num") & "”已经存在，请重新输入！</P>"
Else
sSQL = "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 & StudentNum & "','" & StudentName & "','" & StudentSex & "','" & BirthDate & "','" sSQL = sSQL & Department & "','" & Speciality & "','" & Grade & "','" & sClass & "','"
sSQL = sSQL & HomeAddr & "','" & ParentName & "','" & HomePhone & "','" & Remark & "')" cnn.Execute sSQL, , adCmdText
%>
<HR NOSHADE SIZE = "1" COLOR = "red">
<P class="STYLE1">数据保留成功！</P>
<% End If %>

3 . 3 . 2 修 改 学 生 资 料

在 学 生 信 息 管 理 系 统 首 页 （ index .a sp） 单 击 “ 修 改 资 料 ” 链 接 ， 可 以 进 入 editinfo.asp 页 面 ， 在 该 页 面 中 输 入 学 生 资 料 ， 并 提 交 给 editinfo2 .asp 页 面 进 行 修 改 ， 将 数 据 进 行 修 改 操 作 中 。 界 面 如 下 ：

图 2 修改页面 editinfo.asp
实 现 功 能 脚 本 如 下 ：

<!-- #include file="Date\adovbs.inc" -->
<%
Dim cnn, rst, sSQL, StuNum
StuNum = Trim(Request.Form("txtStuNum"))
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
If StuNum <> "" Then
sSQL = "SELECT * FROM students WHERE student_num='" & StuNum & "'" Set rst = cnn.Execute(sSQL, , adCmdText)
If rst.EOF Then
Response.Write "<P><FONT COLOR = red>没有找到符合条件统计！</FONT></P>" Else
%>
<FORM METHOD = "post" ACTION = "editInfo2.asp">
<TABLE border="1" align="center" cellpadding="2" cellspacing="1" bordercolor="#0099FF" BGCOLOR = "#B5E6FF">
<TR ALIGN = "center">
<TH COLSPAN = "6" BGCOLOR = "#0034FF">
<FONT COLOR = "#FFFFFF">修改学生资料</FONT></TH>
</TR>
<TR>
<TD ALIGN = "right">学号：</TD>
<TD><INPUT TYPE = "text" NAME = "txtStudentNum" SIZE = "12" VALUE = <% = rst("student_num")%>>
<INPUT TYPE = "hidden" NAME = "txtOldStuNum" SIZE = "12" VALUE = <% = rst("student_num")%>></TD>
<TD ALIGN = "right">姓名：</TD>
<TD><INPUT TYPE = "text" NAME = "txtStudentName" SIZE = "12" VALUE = <% = rst("student_name")%>></TD>
<TD ALIGN = "right">性别：</TD>
<TD><INPUT TYPE = "radio" VALUE = "男"
NAME="optStudentSex" <% = IIf( rst("student_sex") = "男") %>>男
<INPUT TYPE="radio" VALUE="女"
NAME="optStudentSex" <% = IIf( rst("student_sex") = "女") %>>女</TD>
</TR>
<TR>
<TD ALIGN = "right">出生日期：</TD>
<TD><INPUT TYPE = "text" NAME = "txtBirthDate" SIZE = "12"
VALUE = <% = rst("birthdate") %>></TD>
<TD ALIGN = "right">所在院系：</TD>
<TD><INPUT TYPE = "text" NAME = "txtDepartment" SIZE = "12" VALUE = <% = rst("department") %>></TD>
<TD ALIGN = "right">所在专业：</TD>
<TD><INPUT TYPE = "text" NAME = "txtSpeciality" SIZE = "12" VALUE = <% = rst("speciality") %>></TD>
</TR>
<TR>
<TD ALIGN = "right">年级：</TD>
<TD><INPUT TYPE = "text" NAME = "txtGrade" SIZE = "12"
VALUE = <% = rst("grade") %>></TD>
<TD ALIGN = "right">班级：</TD>
<TD><INPUT TYPE = "text" NAME = "txtClass" SIZE = "12"
VALUE = <% = rst("class") %>></TD>
<TD ALIGN = "right">家长姓名：</TD>
<TD><INPUT TYPE = "text" NAME = "txtParentName" SIZE = "12" VALUE = <% = rst("parent_name") %>></TD>
</TR>
<TR>
<TD ALIGN = "right">家庭住址：</TD>

<TD COLSPAN = "3"><INPUT TYPE = "text"
NAME = "txtHomeAddr" SIZE = "33" VALUE = <% = rst("home_addr") %>></TD>
<TD ALIGN = "right">住宅电话：</TD>
<TD><INPUT TYPE = "text" NAME = "txtHomePhone" SIZE = "12"
VALUE = <% = rst("home_phone") %>></TD>
</TR>
<TR>
<TD ALIGN = "right">备注：</TD>
<TD COLSPAN = "5"><TEXTAREA ROWS = "3" NAME = "txtRemark" COLS = "58"><% = rst("remark") %></TEXTAREA></TD>
</TR>
<TR ALIGN = "center">
<TD COLSPAN = "6"><INPUT TYPE = "submit" VALUE = "保留数据"
NAME = "btnSave">
&nbsp;&nbsp;&nbsp;<INPUT TYPE="reset" VALUE = "全部重写" NAME = "btnReset"></TD>
</TR>
</TAB LE>
</FORM >
<%
End If End If
%>
Editinfo2 .a sp 页 面 脚 本 如 下 :
<!-- #include file="Date\adovbs.inc" -->
<%
Dim cnn, rst, sSQL
Dim StudentNum, StudentName, StudentSex, BirthDate, Department
Dim Speciality, Grade, sClass, ParentName, HomeAddr, HomePhone, Remark NewStuNum = Trim(Request.Form("txtStudentNum"))
OldStuNum = Trim(Request.Form("txtOldStuNum")) 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(Request.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 NewStuNum = "" Or StudentName = "" Then Response.Redirect "editInfo.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 = "UPDATE students SET student_num='" & NewStuNum & "', student_name='" sSQL = sSQL & StudentName & "', student_sex='" & StudentSex & "', birthdate='" sSQL = sSQL & BirthDate & "', department='" & Department & "', speciality='"
sSQL = sSQL & Speciality & "',grade='" & Grade & "', class='" & sClass & "', home_addr='" sSQL = sSQL & HomeAddr & "', parent_name='" & ParentName & "', home_phone='"
sSQL = sSQL & HomePhone & "', remark='" & Remark & "' " sSQL = sSQL & " WHERE student_num='" & OldStuNum & "'" cnn.Execute sSQL, , adCmdText
%>

3 . 3 . 3 删 除 资 料

在 学 生 信 息 管 理 系 统 首 页 （ index .a sp） 单 击 “ 删 除 资 料 ” 链 接 ， 可 以 进 入 deleteinfo.asp 页 面 ， 在 该 页 面 中 输 入 一 个 指 定 学 号 并 单 击 ”提 交 ”按 钮 ,如 果 找 到 匹 配 学 生 记 录 ， 则 以 表 格 形 式 显 示 出 该 学 生 详 细 资 料 ,此 时 发 给 deletetinfo2.asp 页 面 进 行 删 除 操 作 。

功 能 脚 本 如 下 :
<!-- #include file="Date\adovbs.inc" -->
<%Dim cnn, rst, sSQL, StuNum
StuNum = Trim(Request.Form("txtStuNum"))
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
If StuNum <> "" Then
sSQL = "SELECT * FROM students WHERE student_num = '" & StuNum & "'" Set rst = cnn.Execute(sSQL, , adCmdText)
If rst.EOF Then%>
<P><FONT COLOR = "red">没有找到符合条件统计！</FONT></P>
<% Else %>
<TABLE BORDER = "1" align="center" cellpadding="2" cellspacing="1" bordercolor="#0099FF" bgcolor="#B5E6FF">
<CAPTION><B>学号为“<% = StuNum %>”学生资料以下：</B></CAPTION><TR>
<TD NumWRAP NOWRAP>学号：</TD><TD><% = rst("student_num") %></TD>
<TD>姓名：</TD><TD> <% = rst("student_name") %></TD>
<TD>性别：</TD><TD><% = rst("student_sex") %></TD></TR ><TR>
<TD