jyssz.asp

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

<%On Error Resume Next %>
<!--#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">
    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" width="98%" id="mytable">
  <caption><b>教研室信息一览表</b></caption>
  <tr> 
    <th width="10%"><div align="center">编号</div></th>
    <th width="16%"><div align="center">名称</div></th>
    <th width="20%"><div align="center">学院</div></th>
    <th width="12%"><div align="center">系部</div></th>
    <th width="12%"><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" -->