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
%>
<tr>
<td width="107" align="center">准考证号</td>
<td width="108" align="center">姓名</td>
<td width="108" align="center">班级</td>
<td width="108" align="center">考次</td>
<td width="108" align="center">科目</td>
<td width="46" align="center">成绩</td>
</tr>
<%if Not(rs.bof and rs.eof) then
rs.move (Cint(NoncePage)-1)*10,1
for i=1 to rs.pagesize
%>
<tr>
<td width="107" align="center"><%=rs("user_testnumber")%></td>
<td width="108" align="center"><%=rs("user_name")%></td>
<td width="108" align="center"><%=rs("user_class")%></td>
<td width="108" align="center"><%=rs("testno")%></td>
<td width="108" align="center"><%=rs("subject")%></td>
<%if rs("cj")>=60 then%>
<td width="46" align="center"><%=rs("cj")%></td>
<%else%>
<td width="46" align="center"><font color=red><%=rs("ach")%></font></td>
<%end if%>
</tr>
<% rs.movenext
if rs.eof then exit for
next
else
response.write "<tr><td colspan=13><marquee scrolldelay=120 behavior=alternate>没有找到任何记录!!!</marquee></td></tr>"
end if
rs.close
set rs=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_top_1.asp?page=1>首 页</a>| |<a href=ach_top_1?page="&NoncePage-1&">上一页</a>| "
else
response.write "|首 页| |上一页| "
end if
if Cint(Trim(NoncePage))<Cint(Trim(NumPage)) then
response.write "|<a href=ach_top_1?page="&NoncePage+1&">下一页</a>| |<a href=ach_top_1?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>
</div>
</body>
</html>
⑶总成绩总体排名
总体排名和单课排名的代码相似。限于篇幅问题，不做详细论述。
3班级管理
班级管理的添加和修改.删除模块功能基本与前面所讲的相似.所以不用再讨论了。
4科目管理
在这里也不用在细说了。
5连接数据库
数据库连接文件data.asp
<%
set conn=server.createobject("adodb.connection")
dbpath=server.mappath("db1.mdb")
conn.open "driver={microsoft access driver (*.mdb)};dbq="& dbpath
%>
6设置权限文件
权限文件 user.asp
<%
if session("user")="" the
首页 上一页 8 9 10 11 12 下一页 尾页 11/12/12
ASP学生管理系统资料文档(十一)由毕业论文网（www.huoyuandh.com）会员上传。
