学生管理系统毕业论文

olor="#EBE9FE" align="center">班级</td>
<td width="110" bgcolor="#EBE9FE" align="center">出生年月</td>
<td width="110" bgcolor="#EBE9FE" align="center">联系电话</td>
<td width="71" bgcolor="#EBE9FE" align="center">修改</td>
<td width="71" bgcolor="#EBE9FE" align="center">删除</td>
</tr>
<%if Not(rst.bof and rst.eof) then
rst.move (Cint(NoncePage)-1)*10,1
for i=1 to rst.pagesize
%>

<tr>
<td width="71" align="center"><%=rst("user_number")%></td>
<td width="78" align="center"><a href=xsxx.asp?id=<%=rst("id")%>><%=rst("user_name")%></a></td>
<td width="65" align="center"><%=rst("user_sex")%></td>
<td width="78" align="center"><%=rst("user_class")%></td>
<td width="110" align="center"><%=rst("user_time")%></td>
<td width="110" align="center"><%=rst("user_tel")%></td>
<td width="71" align="center"><a href=updataxx.asp?id=<%=rst("id")%>>修改</a></td>
<td width="71" align="center"><a href=deleta.asp?id=<%=rst("id")%>>删除</a></td>
</tr>
<% rst.movenext
if rst.eof then exit for
next
else
response.write "<tr><td colspan=13><marquee scrolldelay=120 behavior=alternate>没有找到任何记录!!!</marquee></td></tr>"
end if

rst.close
set rst=nothing

%>
</table>
</table>
</div>
<table width="748" border="0" align="center">
<tr>
<td height="17">
<div align="right">
<input type="hidden" name="page" value="<%=NoncePage%>">
<%
if NoncePage>1 then
response.write "|<a href=info-manager.asp?page=1>首页</a>| |<a href=info-manager?page="&NoncePage-1&">上一页</a>|&nbsp"
else
response.write "|首页| |上一页|&nbsp"
end if
if Cint(Trim(NoncePage))<Cint(Trim(NumPage)) then
response.write "|<a href=info-manager?page="&NoncePage+1&">下一页</a>| |<a href=info-manager?page="&NumPage&">尾页</a>|"
else
response.write "|下一页| |尾页|"
end if
%>
 页次：<font color="#0033CC"><%=NoncePage%></font>/<font color="#0033CC"><%=NumPage%></font>
共<font color="#0033CC"><%=NumRecord%></font>条记录  </div> </td>
</table>
</center>
</body>
</html>
代码中最后一部分是实现分页显示记录集。删除功能是由文件deleta.asp来实现的。其实现代码比较简单，通过查找相应的记录，然后删除数据库中的该数据记录即可。实现代码如下：

<%
dim id
dim strSQL

id = Request.QueryString("id")

strSQL = "DELETE FROM st_info WHERE ID =" & id & ""
'Response.Write strSQL
'Response.End
conn.execute (strSQL)
%>
<script language = java script>

</script>
修改学生信息的功能是通过文件updataxx.asp和updataxx1.asp来实现的.它的原理是通过连接数据库，找到该记录，然后通过更新记录中的数据就可以完成信息个修改功能。代码如下：
把修改后的数据保存到数据库updataxx1.asp

<%
dim strSQL, cmdObj, rsObj

Set cmdObj = Server.CreateObject("ADODB.Command")
       Set rsObj = Server.CreateObject("ADODB.RecordSet")
       cmdObj.CommandText = "SELECT top 1 * FROM st_info ORDER by ID desc"
       cmdObj.CommandType = 1
       Set cmdObj.ActiveConnection = conn
       rsObj.Open cmdObj, , 2,3
       rsObj("user_number") = Request.Form("user_number")
    rsObj("user_name") = Request.Form("user_name")
       rsObj("user_zkzh") = Request.Form("user_zkzh")
       rsObj("user_sfzh") = Request.Form("user_sfzh")
       rsObj("user_sex") = Request.Form("user_sex")
    rsObj("user_time") = Request.Form("user_time")
       rsObj("user_address") = Request.Form("user_address")
       rsObj("user_tel") = Request.Form("user_tel")
       rsObj("user_major") = Request.Form("user_major")
       rsObj("user_class") = Request.Form("user_class")
    rsObj("user_gkcj") = Request.Form("user_gkcj")
       rsObj.Update
       rsObj.Close
       set rsObj = nothing
    set cmdObj = nothing
'       CloseConn()
%>
<script language = java script>

</script>
到这里，学生的信息管理模块的基本功能已经实现了。
成绩管理
成绩管理是本系统中最复杂的一个，也是最具有代表性的，他主要实现以下几个功能
成绩列表：由文件cjgl.asp.updatacj.asp和delcj.asp完成
添加成绩：它指向学生信息列表，因为每个学生对应一份成绩单
单科成绩排名：由dkcjcx.asp和dkcjcx.asp
总成绩排名：由zcjcx.asp和zcjpm.asp
⑴成绩列表
成绩列表中，管理员可以对成绩列表进行修改和删除操作，页尾的代码部分主要是为了实现记录的分页功能。其实现代码如下：
成绩列表实现代码 cjgl.asp

<%
set rsobj=server.createobject("adodb.recordset")
sql="select * from cj order by id desc"
rsobj.open sql,conn,1,1
%>
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>学生成绩管理</title>
<link rel="stylesheet" href="style.css">
</head>

<body topmargin="0">

<div align="center">
<center>
<table width="738" height="35">
<td background="images/top_1.jpg">  <a href="cjgl.asp">统考成绩列表</a>
| <a href="search2.asp">添加统考成绩
| <a href="dkcjcx.asp">单科成绩排行榜</a> | <a href="zcjcx.asp">总分成绩排行榜</a>
|
</center>
</div>

<div align="center">
<center>
<table border="0" width="700" cellspacing="0" cellpadding="0">
<tr>
<td width="100%"><%
if Not(rsobj.bof and rsobj.eof) then'判别数据表中是否为空记录
NumRecord=rsobj.recordcount
rsobj.pagesize=10
NumPage=rsobj.Pagecount
if request("page")=empty then
NoncePage=1
else
if Cint(request("page"))<1 then
NoncePage=1
else
NoncePage=request("page")
end if
if Cint(Trim(request("page")))>Cint(NumPage) then NoncePage=NumPage
end if
else
NumRecord=0
NumPage=0
NoncePage=0
end if
%>
<table border="1" width="700" bordercolorlight="#000000" cellspacing="0" cellpadding="5" bordercolordark="#FFFFFF">
<tr>
<td width="93" bgcolor="#EBE9FE" align="center">准考证号</td>
<td width="94" bgcolor="#EBE9FE" align="center">姓名</td>
<td width="94" bgcolor="#EBE9FE" align="center">班级</td>
<td width="94" bgcolor="#EBE9FE" align="center">考试场次</td>
<td width="94" bgcolor="#EBE9FE" align="center">考试科目</td>
<td width="69" bgcolor="#EBE9FE" align="center">成绩</td>
<td width="71" bgcolor="#EBE9FE" align="center">修改</td>
<td width="71" bgcolor="#EBE9FE" align="center">删除</td>
</tr>
<%if Not(rsobj.bof and rsobj.eof) then
rsobj.move (Cint(NoncePage)-1)*10,1
for i=1 to rsobj.pagesize
%>

<tr>
<td width="93" align="center"><%=rsobj("user_zkzh")%></td>
<td width="94" align="center"><%=rsobj("user_name")%></td>
<td width="94" align="center"><%=rsobj("user_class")%></td>
<td width="94" align="center"><%=rsobj("testno")%></td>
<td width="94" align="center"><%=rsobj("subject")%></td>
<%if rsobj("cj")>=60 then%>
<td width="69" align="center"><%=rsobj("cj")%></td>
<%else%>
<td width="69" align="center"><font color=red><%=rsobj("cj")%></font></td>
<%end if%>
<td width="71" align="center"><a href=updatacj.asp?id=<%=rsobj("id")%>>修改</a></td>
<td width="71" align="center"><a href=delcj.asp?id=<%=rsobj("id")%>>删除</a></td>
</tr>
<% rsobj.movenext
if rsobj.eof then exit for
next
else
response.write "<tr><td colspan=13><marquee scrolldelay=120 behavior=alternate>没有找到任何记录!!!</marquee></td></tr>"
end if
rsobj.close
set rsobj=nothing
%>
</table>
</table>
</div>
<table width="748" border="0" align="center">
<tr>
<td height="17">

<div align="right">
<input type="hidden" name="page" value="<%=NoncePage%>">
<%
if NoncePage>1 then
response.write "|<a href=ach_manager.asp?page=1>首页</a>| |<a href=ach_manager?page="&NoncePage-1&">上一页</a>|&nbsp"
else
response.write "|首页| |上一页|&nbsp"
end if
if Cint(Trim(NoncePage))<Cint(Trim(NumPage)) then
response.write "|<a href=ach_manager?page="&NoncePage+1&">下一页</a>| |<a href=ach_manager?page="&NumPage&">尾页</a>|"
else
response.write "|下一页| |尾页|"
end if
%>
 页次：<font color="#0033CC"><%=NoncePage%></font>/<font color="#0033CC"><%=NumPage%></font>
共<font color="#0033CC"><%=NumRecord%></font>条记录  </div>
</td>
</tr>
</table>
</center>
</body>
</html>
成绩信息的修改和删除功能同学生信息管理模块中的修改和删除功能基本相似，所需要修改的部分就是关于数据库部分的表名和字段。
⑵单课成绩排名
单课成绩排名是由dkcjcx.asp和dkcjpm.asp实现的.其实现过程代码如下
选择排名条件dkcjcx.asp

<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>查询单科成绩排行榜</title>
<link rel="stylesheet" href="style.css">
</head>

<body topmargin="0">

<div align="center">
<center>
<table width="738" height="35">
<td background="images/top_1.jpg">  <a href="cjgl.asp">统考成绩列表</a>
| <a href="search2.asp">添加统考成绩
| <a href="dkcjcx.asp">单科成绩排行榜</a> | <a href="zcjcx.asp">总分成绩排行榜</a>

</center>
</div>
<div align="center">
<center>
<table border="1" width="400" cellspacing="0" cellpadding="5" bordercolorlight="#000000" bordercolordark="#FFFFFF">
<tr>
<td width="100%">请选择相关类目查询</td>
</tr>
<tr>
<td width="100%">
<form method="POST" action="dkpmb.asp">
<table border="0" width="100%" cellpadding="5" cellspacing="0">
<tr>
<td width="33%" align="center" bgcolor="#FFFFEC">班级</td>
<td width="33%" align="center" bgcolor="#FFFFEC">统考场次</td>
<td width="34%" align="center" bgcolor="#FFFFEC">科目</td>
</tr>
<tr>
<%set rs=createobject("adodb.recordset")
sql="select * from class"
rs.open sql,conn,1,1
%>
<td width="33%" align="center"><select size="1" name="user_class">
<option value="all">统计全部</option>
<%do while not rs.eof%>
<option value="<%=rs("class")%>"><%=rs("class")%></option>
<%rs.movenext%>
<%loop%>
</select>
<%rs.close%></td>
<td width="33%" align="center">
<%
set rs1=server.createobject("adodb.recordset")
sql1="select * from dk"
rs1.open sql1,conn,1,1
%>
<select size="1" name="testno">
<%do while not rs1.eof%>
<option value="<%=rs1("testno")%>"><%=rs1("testno")%></option>
<%rs1.movenext%>
<%loop%>
</select>
<%rs1.close%></td>
<%set rs2=server.createobject("adodb.recordset")
sql2="select * from kc"
rs2.open sql2,conn,1,1
%>

<td width="34%" align="center"><select size="1" name="subject"><%do while not rs2.eof%>
<option value="<%=rs2("kc")%>"><%=rs2("kc")%></option><%rs2.movenext%>
<%loop%>
<%rs2.close%>
</select>
</td>
</tr>
</table>
</center>
<p align="right"><input type="submit" value="提交" name="B1"></p>
</form>
<center>
</td>
</tr>
</table>
</div>
</body>
</html>
排名功能实现代码dkpm b.asp

<%
dim user_class,subject,testno
user_class=trim(request("user_class"))
subject=trim(request("subject"))
testno=trim(request("testno"))
%>
<%
set rs=server.createobject("adodb.recordset")
if user_class="all" then
sql="select * from cj where subject='"&subject&"' and testno='"&testno&"' order by cj desc"
else
sql="select * from cj where user_class='"&user_class&"' and subject='"&subject&"' and testno='"&testno&"' order by cj desc"
end if
rs.open sql,conn,1,1
%>
<html>

<body topmargin="0">

<div align="center">
<center>
<table width="738" height="35">
<td background="images/top_1.jpg">  <a href="cjgl.asp">统考成绩列表</a>
| <a href="search_st.asp">添加统考成绩
| <a href="dkcjcx.asp">单科成绩排行榜</a> | <a href="zcjcx.asp">总分成绩排行榜</a>

</center>
</div>
<div align="center">
<table border="1" width="600" cellspacing="0" cellpadding="4" bordercolorlight="#000000" bordercolordark="#FFFFFF">
<tr>
<td width="388" colspan="6" align="center">
<p align="left">查询结果</p>
</td>
</tr>
<center>
<%
if Not(rs.bof and rs.eof) then'判别数据表中是否为空记录
NumRecord=rs.recordcount
rs.pagesize=10
NumPage=rs.Pagecount
if request("page")=empty then
NoncePage=1
else
if Cint(request("page"))<1 then
NoncePage=1
else
NoncePage=request("page")
end if
if Cint(Trim(request("page")))>Cint(NumPage) then NoncePage=NumPage
end if
else
NumRecord=0
NumPage=0
NoncePage=0
end if
%>