zysz.asp

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

<!--#include file="../data/const.asp"-->
<%
str="Select * From 专业信息表视图 order by 院系编号, 编号"
set rs=server.createobject("adodb.recordset")
rs.open str,dbconn,1,1
j=rs.recordcount
if rs.eof or rs.bof then
%>
  <script language=vbscript>
    msgbox "没有专业设置信息"
	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>专业设置一览表（共<%=rs.recordcount%>个专业）</b></caption>
    <tr> 
      <th width="10%"><div align="center">专业代号</div></th>
      <th width="30%"><div align="center">专业名称</div></th>
      <th width="20%"><div align="center">所在学院</div></th>       
      <th width="20%"><div align="center">所在系部</div></th>       
    </tr>
<%
do while not rs.eof
%>
    <tr> 
      <td><div align="center"><%=rs("编号")%> &nbsp;</div></td>
      <td><div align="center"><%=rs("名称")%>&nbsp;</div></td>
      <td><div align="center"><%=rs("学院简称")%>&nbsp;</div></td>
      <td><div align="center"><%=rs("系部")%>&nbsp;</div></td>
     </tr>
<%    
  rs.movenext
loop
%>
</table>
<br>
<!--#include virtual="../footer.asp" -->