www.gusucode.com > ASP+ACCESS学生成绩查询系统毕业设计(源代码+论文+开题报告) > ASP+ACCESS学生成绩查询系统毕业设计(源代码+论文+开题报告)\score\score\look.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">学生成绩管理系统</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="student_res1.asp">按学号查询</a></td> <td width="100" align="center"><a href="student_res2.asp">按班级查询</a></td> <td width="100" align="center" bgcolor="#EEEEEE"><a href="student_res3.asp">按姓名查询</a></td> <td width="100" align="center"><a href="student_res4.asp">按课程查询</a></td> <td width="100" align="center"><a href="student_res5.asp">按成绩查询</a></td> <td width="100" align="center"><a href="student_res6.asp">按学期查询</a></td> <td width="100" align="center"><a href="student_res7.asp">按类型查询</a></td> </tr> </table> <p> </p> <p> </p> <p> </p> <table width="768" border="0" align="center" cellpadding="0" cellspacing="0"> <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> <tr> <TD height="25" colspan="6">班级:<%=rs("bj")%></TD> </tr> <tr> <TD width="87" height="25">学号</TD> <td width="83" height="25">姓名</td> <td width="83" height="25">课程</td> <td width="79" height="25">成绩</td> <td width="90" height="25">学期</td> <td width="72" height="25">类型</td> </tr> <% do while not rs.eof %> <tr> <td width="87" height="25"><%=rs("xh")%></td> <td width="83" height="25"><%=rs("user")%></td> <td width="83" height="25"><%=rs("kc")%></td> <td width="79" height="25"><%=rs("cj")%></td> <td width="90" height="25"><%=rs("xq")%></td> <td width="72" height="25"><%=rs("lx")%></td> </tr> <% rs.movenext loop end if rs.Close set rs=nothing set conn=nothing %> </table> <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>