gusucode.com > ASP+ACCESS学生成绩查询系统毕业设计(源代码+论文+开题报告) > ASP+ACCESS学生成绩查询系统毕业设计(源代码+论文+开题报告)\score\score\adminlook.asp
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>学生成绩管理系统</title> <style type="text/css"> <!-- @import url("20041026_25175_stry_css.css"); body { background-color: #FFFFFF; background-image: url(image/bg.jpg); } --> </style> </head> <body> <table width="768" border="0" align="center" cellpadding="5" cellspacing="0"> <tr> <td width="754" valign="top" bgcolor="#A0A4AC" style="line-height:140%;"><img src="image/1.gif" width="800" height="92"></td> </tr> </table> <table width="768" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td height="30" bgcolor="#A0A4AC"><div align="center" class="unnamed3write">学生成绩管理系统---<a href="res.asp">按学号查询</a></div></td> </tr> </table> <table width="768" height="25" align="center" cellpadding="0" cellspacing="0" class="unnamed_rld2"> <tr bgcolor="#EEEEEE"> <td width="100" height="25" align="center"><a href="index.asp">首页</a></td> <td width="100" align="center"><a href="add.asp">添加单个成绩</a></td> <td width="100" align="center"><a href="adds.asp">批量添加成绩</a></td> <td width="100" align="center" bgcolor="#EEEEEE"><a href="res.asp">按学号查询</a></td> <td width="100" align="center"><a href="res1.asp">按班级查询</a></td> <td width="100" align="center"><font color="#0000CC" size="2"><a href="admin.asp">管理页面</a></font></td> <td width="100" align="center"><a href="logout.ASP">退出</a></td> </tr> </table> <p> </p> <table width="768" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td height="25"> <% xh=request("xh") set rs=server.createobject("adodb.recordset") conn = "DBQ=" + server.mappath("class_cj.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" if request("xh")<>"" then sql="select * from bbs1 where xh like'" & xh & "'" else sql="select top 1 * from bbs1" end if rs.Open sql,conn,1,1 totalput=rs.RecordCount if rs.EOF and rs.BOF then Response.Write "当前没有这个学号的成绩~~~~~~~~~~" else %></td> </tr> </table> <table width="768" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td height="25"> <table width="768" height="25" border="0" cellpadding="0" cellspacing="0"> <tr> <td bgcolor="#EEEEEE"> <span class="unnamed2_14">班级:</span><%=rs("bj")%></td> </tr> </table> <table width="768" border="0" cellpadding="0" cellspacing="0" height="25"> <tr> <td width="14%" align="center" height="25"> 学号</td> <td width="14%" align="center" height="25">姓名</td> <td width="14%" align="center" height="25">课程</td> <td width="14%" align="center" height="25">成绩</td> <td width="14%" align="center" height="25">学期</td> <td width="14%" align="center" height="25">类型</td> <td width="14%" align="center" height="25">操作</td> </tr> </table> <table width="768" height="22" border="0" cellpadding="0" cellspacing="0"> <% do while not rs.eof %> <tr> <td width="14%" height="25" align="center"><%=rs("xh")%></td> <td width="14%" align="center"><%=rs("user")%></td> <td width="14%" align="center"><%=rs("kc")%></td> <td width="14%" align="center"><%=rs("cj")%></td> <td width="14%" align="center"><%=rs("xq")%></td> <td width="14%" align="center"><%=rs("lx")%></td> <td width="14%" align="center"><a href="update.asp?id=<%=rs("id")%>" class="blue" >修改</a> <a href="delete.asp?id=<%=rs("id")%>" class="blue" onClick="return Delete();">删除</a></td> </tr> <% rs.movenext loop end if rs.Close set rs=nothing set conn=nothing %> </table></td> </tr> </table> <p> </p> <p> </p> <p> </p> <p> </p> <table width="768" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td> </td> </tr> </table> <table width="768" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td height="30" bgcolor="#A0A4AC"><div align="center" class="unnamed3write"><a href="http://www.163.com" class="unnamed3write">powered by deng131 </a></div></td> </tr> </table> <p> </p> </body> </html>