学生成绩管理系统论文

if(zhuanye_table[i][0]==$(this).val()){ $(\

value='\

} } });

$(\

$(\ alert($(\ }); });

6.5.2 班级删除

若该班级没有学生，则可直接删除；否则不允许删除。而对于所删除班级的确定，同样是通过前面所传参数确定的。相关代码如下：

<%

id =request(\

set rs1=server.CreateObject(\

sql1=\ rs1.open sql1,conn,1,1

if rs1(0)>0 then ‘确定该班级内是否有学生信息 response.write \该班级还有学生，不可以删除！');history.back();\

else

sql2=\ conn.execute(sql2)

Response.Write \language=JavaScript>alert('删除成功！');this.location.href='admin_class.asp';\

end if rs1.close

set rs1=nothing %>

6.6 课程管理界面 6.6.1 课程的添加与查询

课程管理界面（图6-7）

对于课程类型的选择，在课程表中有字段cif，当cif=1时，为专业课；cif=0时，为公共课。相关代码如下：

<% a=rs1(\ if a=1 then b=\专业课\ else

b=\公共课\ end if %> 6.7成绩管理界面 6.7.1 成绩查询

成绩查询界面（图6-8）

此功能是基于学号的精确查询，学号任务精确查询的条件，而学期条件可根据需要进行选择。相关代码如下：

<%

dim sid

sid=request.Form(\

set rs_if=server.CreateObject(\

sql_if=\

rs_if.open sql_if,conn,1,1 if rs_if(0)=0 then

response.Write\查无此人！')\ ‘首先确认要查询的学号是否存在（即有无此学生） else

set rs_s = server.CreateObject(\

sql_s=\c where c.cla_id=s.cla_id and c.did=d.did and sid='\

rs_s.open sql_s,conn,1,1 ‘此查询用于输入显示学生的基本信息

%>

<% dim snumber dim term

snumber=request.Form(\

term=request.Form(\

set rs_cj = server.CreateObject(\

if term<>\‘若学期值不为空，则查询条件包括学期条件

sql_cj=\cj.*, course.* from student s,chengji cj,course where cj.sid=s.sid and cj.cid=course.cid and cj.sid='\term='\

else

sql_cj=\cj.*, course.* from student s,chengji cj,course where cj.sid=s.sid and cj.cid=course.cid and cj.sid='\cj.cid asc\

end if

rs_cj.open sql_cj,conn,1,3

if not isnumeric(request(\ Page=1 else

Page=int(abs(request(\‘对成绩进行分页显示 end if

rs_cj.PageSize = 10

total = rs_cj.recordcount ?? %>

6.7.2 成绩添加

成绩添加页面（图6-9）

添加学生成绩时，首先以填写的学号为条件检索学生表，如果有此学生则继续添加学生成绩，否则交停止添加成绩并提示该学生不存在。相关代码如下：

<%

sql=\

set rs=server.CreateObject(\ rs.open sql,conn,1,3

‘查询课程表，并将课程名附值给课程下拉列表框 sql_term=\

set rs_term=server.CreateObject(\ rs_term.open sql_term,conn,1,3

‘查询学期表，并将学期名附值给学期下拉列表框 %> <%

sub addchengji()

dim kecheng,xuehao,xueqi,fenshu kecheng=request.Form(\ xuehao=request.Form(\ xueqi=request.Form(\ fenshu=request.Form(\

set rs_if=server.CreateObject(\

sql_if=\ rs_if.open sql_if,conn,1,1 if kecheng=\

response.Write\请选择课程！')\ elseif xuehao=\

response.Write\请填写学号！')\ elseif rs_if(0)=0 then

response.Write\查无此人，无法添加！')\

‘查询添加的学号是否在于学生表 elseif xueqi=\

response.Write\请选择学期！')\ elseif fenshu=\

response.Write\请填写成绩！')\

elseif not isnumeric(fenshu) then ‘判断所填写的成绩内容是否为数字

response.Write\所填写的成绩必须为数字！')\