📄 look.asp

📁 .添加单个成绩 2.批量添加成绩 3.通过搜索并修改与删除 4.直接修改 5.可以批量删除 6.可以直接GO到达你想到达的页 7.分页显示 8.代码精简 9.整合部分重复代码 1

💻 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");
-->
</style>
</head>
<body>

<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>
  </tr>
</table>
<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 "对不起，没有查询到这个号码的成绩记录，请检查你是否输入了正确的学号！请注意，学号最前面的“0”是要去掉的！学号以准考证上的号码为准！"
else
%> 
         </TD>
        </tr>
        <tr>
          <TD height="25" colspan="6"><span class="unnamed2_14">班级：</span><%=rs("bj")%>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp<span class="unnamed2_14">姓名: </span><font color=red><%=rs("user")%></font>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp<span class="unnamed2_14">学号: </span><font color=red>0<%=rs("xh")%></font></TD>
        </tr>
        <tr> 
          <TD width="87" height="25">学号</TD>
          <td width="83" height="25">姓名</td>
          <td width="150" 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">0<%=rs("xh")%></td>
          <td width="83" height="25"><%=rs("user")%></td>
          <td width="150" height="25"><%=rs("kc")%></td>
          <td width="79" height="25"><font color=red><%=rs("cj")%></font></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>
            <table width="768" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td>&nbsp;</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.25175.com/">25175.com</a>提供程序内核)    陕西广播电视大学04播音专业       <font color=red><a href="http://by2005.w3.zcxp.net/">返回班级主页</a></font></div></td>
              </tr>
            </table>
            <p>&nbsp;</p>
            
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -