www.gusucode.com > ASP+ACCESS学生管理系统(源代码+论文) > ASP+ACCESS学生管理系统(源代码+论文)\zjw\cjgl.asp
<!--#include file="data.asp"--> <!--#include file="user.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"> <!--#include file="top-1.asp"--> <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>| " else response.write "|首 页| |上一页| " 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>