bjcjb1.asp

实训的小作品 关于后台SQL知识的 简单制作！

<!--#include file="../data/const.asp"-->
<%
jsh=session("user")
if jsh="" then
  response.Redirect "../login.asp"
end if

bj=request("bj")
xnxq=request("xnxq")
str="select distinct 课程编号,课程名称,学年学期 from 教学成绩表视图 where 学年学期='"&xnxq&"' and 班级='"&bj&"' order by 学年学期,课程编号"
set rs=dbconn.execute(str)

if rs.eof then
%>
  <script language=vbscript>
    alert "您选择的班级没有该学年学期的成绩记录"
    history.back()
  </script>
<%
end if
%>  
<!--#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" width="98%" id="mytable">
  <caption><b><%=bm%>&nbsp;<%=xnxq%>的课程列表</b></caption>
  <tr>   
    <th width="15%" align="center">课程号</th>
	<th width="45%" align="center">课程名</th>
    <th width="40%" align="center" colspan="2">操作</th>
  </tr>
<% 
  do while not rs.eof
%>
  <tr>   
   	<td align="center"><%=rs("课程编号")%>&nbsp;</td>
	<td align="center"><%=rs("课程名称")%>&nbsp;</td>
	<td align="center" width="20%"><a href="bjcjb2.asp?kch=<%=rs("课程编号")%>&xnxq=<%=xnxq%>&bj=<%=bj%>&kcm=<%=rs("课程名称")%>">查看本课程成绩</a></td>
  </tr>
<%
    rs.MoveNext
  loop
%>
</table>  
<br>
<!--#include virtual="../footer.asp" -->