bjkcquery1.asp

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

<!--#include file="../data/const.asp"-->
<%
bjh=request.querystring("bjh")
bjm=request.querystring("bjm")

str="select 学年学期,课程名称,学时,教师姓名 from 班级课程设置表视图 where 班级编号='"&bjh&"' order by 学年学期,课程编号,教师编号"
set rs1=dbconn.Execute(str)
if rs1.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" id="mytable">
  <caption><b><%=bjm%>  课程开设情况: </b></caption>
  <tr> 
    <th width="12%" align="center">学年学期</th>
    <th width="19%" align="center">课程名称</th>
	  <th width="4%" align="center">学时</th>
	 	<th width="6%" align="center">任课教师</th>
  </tr>
<%
do while not rs1.eof    
%>
  <tr> 
    <td align="center"><%=rs1("学年学期")%>&nbsp;</td>
    <td align="center"><%=rs1("课程名称")%>&nbsp;</td>
    <td align="center"><%=rs1("学时")%>&nbsp;</td>
    <td align="center"><%=rs1("教师姓名")%>&nbsp;</td>
   </tr>
<%
  rs1.MoveNext
loop
%>
</table>
<br>
<!--#include virtual="../footer.asp" -->