<!--#include file="../data/const.asp"-->　　　　　　　　　　
' 将连接文件const.asp包含到文件中
<%                                              
' 创建ADODB记录集并加入检索到记录并进行判断是否有记录被检索到
str="Select * From 学院信息表"
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="20%"><div align="center">学院名称</div></th>       
      <th width="20%"><div align="center">简称</div></th>       
      <th width="14%"><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" -->  

