cjquery.asp

来自「实训的小作品 关于后台SQL知识的 简单制作！」· ASP 代码 · 共 52 行

<%On Error Resume Next %>
<!--#include file="../data/const.asp"-->
<%
XH=session("user")
if XH="" then
  Server.Transfer "../login.asp"
end if 

str="select * from 教学成绩表视图 where 学号='" & xh & "' order by 学年学期 desc"

set rs=dbconn.execute(str) 

%>
<!--#include virtual="../header.asp" -->
<br>
<table border="0" align="center" width="98%">
  <tr>
    <td>您当前的位置：成绩->历年成绩</td>
  </tr>
</table>
<br>
<table cellspacing="0" bordercolor="#cccccc" bordercolordark="#FFFFFF" align="center" border="1" id="mytable">
  <caption><strong><font size=2px>历年成绩列表</font></strong></caption>
  <tr>     
    <th width="14%"><div align="center">学年学期</div></th>
    <th width="8%"><div align="center">课程号</div></th>
    <th width="30%"><div align="center">课程名</div></th>
    <th width="15%"><div align="center">成绩</div></th>
    <th width="15%"><div align="center">考试考查</div></th>
    <th width="15%"><div align="center">代课教师</div></th>
  </tr>
<% 
  do while not rs.eof 
%>
  <tr>     
    <td align="center"><%=rs("学年学期")%>&nbsp;</td>
    <td align="center"><%=rs("课程编号")%>&nbsp;</td>
    <td><%=rs("课程名称")%>&nbsp;</td>
    <td align="center"><%=rs("成绩")%>&nbsp;</td>
    <td align="center"><%=rs("考试考查")%>&nbsp;</td>
    <td align="center"><%=rs("教师姓名")%>&nbsp;</td>
  </tr>
<% 
  rs.MoveNext 
loop
%>
</table>


<!--#include virtual="../footer.asp" -->