基于ASP+ACCESS的学生信息管理系统(源代码及全套资料)(共15页).docx
精选优质文档-倾情为你奉上摘要随 着 科 学 技 术 的 发 展 ， 计 算 机 领 域 不 断 取 得 新 的 研 究 成 果 。 并 不 断 地 代 替 和 延 伸 脑 力 劳 动 方 面 发 挥 越 来 越 重 要 的 作 用 ， 无 论 是 工 业 还 是 日 常 生 活 都 越 来 越 离 不 开 计 算 机 ， 尤 其 是 在 学 校 里 ， 随 着 不 同 高 校 的 的 不 断 扩 大 和 招 生 人 数 的 不 断 增 加 ， 要 处 理 大 量 的 学 生 数 据 信 息 显 得 尤 为 的 重 要 。 学 生 的 信 息 管 理 是 学 校 工 作 中 一 项 重 要 的 内 容 。本 系 统 论 文 主 要 是 管 理 学 生 的 资 料 。 重 点 介 绍 其 功 能 ： 信 息 添 加 、 信 息 修 改 、 信 息 的 删 除 及 信 息 查 询 。使 用 进 行 静 态 页 面 设 计 ,应 用 A S P 程 序 进 行 后 台 管 理 操 作 ，并 用 A ccess 进 行 后 台 数 据 库 的 连 接 设 计 。 主 要 是 以 四 大 功 能 进 行 系 统 的 设 计 和 实 现 。关 键 词 ： Dreamw eaver M X 2004系 统站 点 设 计A S PA ccess 数 据 库专心-专注-专业1 .1开发工具的介绍1 . 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 可 以 与 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 sA ccess 是 一 个 数 据 库 管 理 系 统 ，它 之 所 以 被 集 成 到 Office 中 而 不 是 Visual S tudio 中 ，是 因 为 它 与 其 它 的 数 据 库 管 理 系 统（ 如 S QL S erver 2000 ） 相 比 更 加 简 单 易 学 ， 一 个 普 通 的 计 算 机 用 户 即 可 掌 握 并 使 用 它 。 而 且 最 重 要 的 一 点 是 ， A ccess 的 功 能 足 够 强 大 ， 足 以 应 付 一 般 的 数 据 管 理 及 处 理 需 要 。A ccess 可 以 实 现 建 立 数 据 库 、 报 表 ， 以 及 对 数 据 库 、 报 表 的 修 改 、 查 询 等 功 能 。A ccess 随 着 W i nd o w s 操 作 系 统 和 O ffi c e s 办 公 自 动 化 应 用 软 件 的 普 及 ， A ccess 各 个 版 本 变 得 与 其 他 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 新 的 超 文 本 标 记 语 言 (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,ssqlusername=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("Datedate.mdb ") cnn.openssql="select * from users where user_name='"&username&"' and mm ='"&password&"' " set rst =cnn.execute(ssql, ,adcmtext)if rst.eof thenresponse.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="Dateadovbs.inc" -><%Dim cnn, rst, sSQLDim StudentNum, StudentName, StudentSex, BirthDate, DepartmentDim 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 IfSet 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, , adCmdText)If Not rst.EOF ThenResponse.Write "<P>学号“" & rst("student_num") & "”已经存在，请重新输入！</P>"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 & 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="Dateadovbs.inc" -><%Dim cnn, rst, sSQL, StuNumStuNum = 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("Datedate.mdb") cnn.OpenIf StuNum <> "" ThensSQL = "SELECT * FROM students WHERE student_num='" & StuNum & "'" Set rst = cnn.Execute(sSQL, , adCmdText)If rst.EOF ThenResponse.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"> <INPUT TYPE="reset" VALUE = "全部重写" NAME = "btnReset"></TD></TR></TAB LE></FORM ><%End If End If%>Editinfo2 .a sp 页 面 脚 本 如 下 :<!- #include file="Dateadovbs.inc" -><%Dim cnn, rst, sSQLDim StudentNum, StudentName, StudentSex, BirthDate, DepartmentDim 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 IfSet 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 = "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="Dateadovbs.inc" -><%Dim cnn, rst, sSQL, StuNumStuNum = 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("Datedate.mdb") cnn.OpenIf StuNum <> "" ThensSQL = "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>
