学生成绩管理系统.docx

学生成绩管理系统.docx

《学生成绩管理系统.docx》由会员分享，可在线阅读，更多相关《学生成绩管理系统.docx（32页珍藏版）》请在冰豆网上搜索。

学生成绩管理系统

ASP课程设计报告

设计题目：

学生成绩管理系统　　　　

专业班级：

XXXXXXX　　

姓名：

XXXXXXXXXXXXXXXXXXX

2012年6月7日

ASP课程设计报告

实验类型__设计__实验室_软件实验室一__

一、设计报告题目

学生成绩管理系统

二、运行环境

Windows7、数据库用MicrosoftAccess

三、功能模块

四、概要设计

管理员总界面代码如下：

<%ifsession（"password"）<>""then%>

--#includefile="conn.asp"-->//通过#include命令将数据库连接文件conn.asp插入到此文档中

//以下是静态网页编码过程

//嵌入JavaScript脚本语言

--

functiontest（）//用于判断输入的字符是否为数值型

{if（document.form2.page.value==""||isNaN（document.form2.page.value））{alert（"输入页数必须为数值型"）;

document.form2.page.focus（）;

returnfalse;}

returntrue;}

//-->

--

@importurl（"20051026_stry_css.css"）;

a{font-size:

12px;}

tr{font-size:

12px;}

.style1{font-size:

24px}

-->

functioncheckall（all）//用于判断全选记录的函数

{vara=document.getElementsByName（"answer"）;

for（vari=0;i

--#includefile="conn1.asp"-->

<%

page=CLng（request（"page"））'利用CLng函数把page值转换为Long型

judge=request（"judge"）

judge2=request（"judge2"）

judge3=0

sqlcmd="select*frombbs1OrderByxhDesc"

rs.Opensqlcmd,newconn,1,2

%>

删除框

班级

学号

姓名

课程

成绩

学期

类型

操作

<%

ifnot（rs.EOForrs.BOF）then

rs.MoveFirst

rs.PageSize=12'每页显示的条数

Ifpage<1Thenpage=1

Ifpage>rs.PageCountThenpage=rs.PageCount

rs.AbsolutePage=page

Foripage=1Tors.PageSize

%>

"id="Checkbox1">

<%=rs（"bj"）%>

<%=rs（"xh"）%>

<%=rs（"user"）%>

<%=rs（"kc"）%>

<%=rs（"cj"）%>

<%=rs（"xq"）%>

<%=rs（"lx"）%>

id=<%=rs（"id"）%>">修改

<%rs.MoveNext

Ifrs.EOFThenExitFor

Next%>

//选中所有记录

宋体;font-size:

9pt;'onClick="del（）"id="Button1">

页数：

<%Response.Write""'显示输入页数框并将page,judge参数传递下去%>

<%

Ifpage=1Then

Response.Write"第一页　上一页"

EndIf

Ifpage<>1Then

Response.Write"

page=1class='yellow'>第一页"

Response.Write"　

page="&（page-1）&"class='yellow'>上一页"

EndIf

Ifpage<>RS.PageCountThen

Response.Write"　

page="&（page+1）&"class='yellow'>下一页"

Response.Write"　

page="&RS.PageCount&"class='yellow'>最后一页"

EndIf

Ifpage=RS.PageCountThen

Response.Write"　下一页　最后一页"

EndIf

%>

　记录总数：

<%=rs.recordCount%>　总页数：

<%=rs.PageCount%>　当前页次：

<%=page%>

<%else%>

对不起，还没有记录！

<%endif%>

首页

添加单个成绩

批量添加成绩

通过搜索并修改

window.close（）">退出

<%

setrs=server.createobject（"adodb.recordset"）

sql="select*frombbs1orderbyxhdesc"

rs.opensql,conn,1,3

%>

<%else

Response.Redirect"admpost.asp"

endif%>

单量添加成绩代码如下

<%ifsession（"password"）<>""then%>

--

@importurl（"20041026_25175_stry_css.css"）;

-->

班级