yxsz.asp

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

<!--#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="10%"><div align="center">所属学院</div></th>       
      <th width="20%"><div align="center">名称</div></th>       
      <th width="14%"><div align="center">主任姓名</div></th>       
      <th width="10%"><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>
      <td><div align="center"><%=rs("书记")%> &nbsp;</div></td>
    </tr>
<%    
  rs.movenext
loop
%>
</table>
<br>
<!--#include virtual="../footer.asp" -->