www.gusucode.com > ASP+ACCESS学生管理系统(源代码+论文) > ASP+ACCESS学生管理系统(源代码+论文)\zjw\dkpmb.asp
<!--#include file="data.asp"--> <!--#include file="user.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> <head> <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.asp"--> <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 %> <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>