bjcjb2.asp

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

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

bj=request.querystring("bj")
xnxq=request.querystring("xnxq")
kch=request.querystring("kch")
kcm=request.querystring("kcm")


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

if rs.eof then
%>
  <script language=vbscript>
    alert "没有该课程的成绩记录"
    history.back()
  </script>
<%
  response.end
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><%=bj%>&nbsp;<%=xnxq%>&nbsp;<%=kcm%>课程考试成绩表</b></caption>
  <tr>   
    <th width="16%" align="center">学号</th>
	<th width="16%" align="center">姓名</th>
    <th width="16%" align="center">考试时间</th>
	<th width="16%" align="center">成绩</th>
	<th width="16%" align="center">考试考查</th>
	<th width="20%" align="center">备注</th>
  </tr>
<% 
  do while not rs.eof
%>
  <tr>   
    <td align="center"><%=rs("学号")%>&nbsp;</td>
	<td align="center"><%=rs("姓名")%>&nbsp;</td>
	<td align="center"><%=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>  
<br>
<!--#include virtual="../footer.asp" -->