bjkcquery.asp

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

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../data/const.asp"-->
<%
session("bjh")="" 
session("bjm")="" 
xsh=trim(request.querystring("xsh"))
zyh=trim(request.querystring("zyh"))
if xsh="" or zyh="" then
  disp=false
else
  disp=true
  Set rs5=Server.CreateObject ("ADODB.RecordSet")
  str="Select * From 班级信息表视图 "
  str=str&"where 专业编号='"&zyh&"' order by 年级, 名称"
  set rs5=dbconn.execute(str)
  if rs5.eof then
%>  
    <script language="vbscript">
      msgbox "没有找到班级信息"
	    history.back
    </script>
<%  
    response.end
  end if
end if
%>      
<!--#include virtual="../header.asp" -->
<br>
<table border="0" align="center" width="98%">
  <tr>
    <td><font color="#FF0000">您当前的位置：公共信息->班级设置</font></td>
  </tr>
</table>
<table border="0" align="center" width="98%">
<tr>
  <td valign="top" width="255"><!--#include file="tree2.asp"--></td>  
<% if disp then %>
  <td valign="top"><br>
    <div align="center"><strong><%=rs5("学院")%><%=rs5("系部")%><%=rs5("专业")%>专业班级一览表</strong></div> 
  <table cellspacing="0" bordercolor="#cccccc" bordercolordark="#FFFFFF" align="center" border="1" id="mytable">
    <tr>     
      <th width="10%"><div align="center">年级</div></th>
      <th width="10%"><div align="center">编号</div></th>
      <th width="40%"><div align="center">班名</div></th>
    </tr>
<%
    do while not rs5.eof	  		
%>
    <tr> 
      <td><div align="left"><%=rs5("年级")%></div></td>
      <td><div align="left"><%=rs5("编号")%></div></td>
      <td><div align="left"><a href="bjkcquery1.asp?bjh=<%=rs5("编号")%>&bjm=<%=trim(rs5("系部"))&"  "&trim(rs5("专业"))&"  "&trim(rs5("名称"))%>" target="_self"><%=rs5("名称")%></div></td>
    </tr>
    <%    
  rs5.movenext
  loop
%>
  </table>
  </td>
<% else %>  
  <td valign="top">&nbsp;</td>
<% end if %>  
</tr>
</table>
<br>  
<!--#include virtual="../footer.asp" -->