teacherlist.asp

来自「(1)管理员能够实现会员管理 (2)教师管理 (3)资料管理及资料显示等操作」· ASP 代码 · 共 82 行

ASP
82
字号
<!--#include file="inc/dbconn.inc"-->
<% sname=request.cookies("sname")
if sname="" then
response.write"<SCRIPT language=JavaScript>alert('非法登录!');"    
response.write"this.location.href='default.htm';</SCRIPT>"
  end if
%>
<%Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from teacher"
rs.open sql,conn,3,3%>

<html>
<head>
	<title>后台管理</title>
	<meta http-equiv = "Content-Type" content = "text/html; charset = gb2312">
	<link rel = "stylesheet" href = "include/main.css" type = "text/css">

</head>

<body  text = "#000000" leftmargin = "0" topmargin = "2">
<div align = center>教师列表</div>
<table width="462" border=1 borderColor=#ffffff borderColorDark=#ffffff 
            borderColorLight=#3399cc cellPadding=0 cellSpacing=0 align=center>
  <tr> 
          <td width="86" height="27" valign="middle">教师编号</td>
          <td valign="middle" width="115">&nbsp;教师帐号</td>
          <td valign="middle" width="101">教师真实姓名</td>
          <td valign="middle" width="58">&nbsp;性别</td>
          <td width="90" valign="middle">上传作业</td>
          
        </tr>
        <% do while not rs.eof %>
        <tr> 
          <td valign="middle" height="31" width="86">&nbsp;<%=rs("id")%></td>
          <td valign="middle" width="115"> &nbsp;<%=rs("tname")%> </td>
          <td valign="middle" width="101">&nbsp;<%=rs("trealname")%></td>
          <td valign="middle" width="58">&nbsp;<%=rs("tsex")%></td>
          
          <td valign="middle" width="90">&nbsp;<a href="Addzuoye.asp?type=<%=rs("tname")%>&id=<%=request.cookies("sname")%>">点击上传</a></td>
        </tr>
        <% rs.movenext                                                                                                                                            
                                             
		  loop  %>
      </table>
      <TABLE align=center border=0 cellPadding=3 cellSpacing=0 width=500>
        <TBODY> 
        <TR> 
          <TD style="LETTER-SPACING: 1px" width=239>共有记录 <FONT  
      color=#ff0000><%=rs.recordcount%></FONT> 个,共 <%=pagecount%>/<FONT color=#ff0000><%=rs.pagecount%></FONT>  
            页 </TD> 
          <TD align=middle style="LETTER-SPACING: 1px" width=239> 
            <% if pagecount=1 then %>
            <IMG 
      align=absMiddle alt=留言首页 border=0 src="images/pt.gif"> <IMG  
      align=absMiddle alt=前一页 border=0 src="images/pb.gif"> 
            <% else %> 
            <a href=teacherlist.asp?page=1> <IMG  
      align=absMiddle alt=书店首页 border=0 src="images/pt.gif"></a> <a href=teacherlist.asp?page=<%=pagecount-1%>>  
            <IMG 
      align=absMiddle alt=前一页 border=0 src="images/pb.gif"></a> 
            <% end if %> 
            <%if rs.PageCount-pagecount<1 then %> 
            <IMG  
      align=absMiddle alt=下一页 border=0 src="images/pn.gif"> 
            <% else %> 
            <a href=teacherlist.asp?page=<%=pagecount+1%>> <IMG  
      align=absMiddle alt=下一页 border=0 src="images/pn.gif"></a> 
            <% end if %> 
          </TD>
          <%if rs.PageCount-pagecount<1 then %>
          <TD style="LETTER-SPACING: 1px" width=220>[<%=rs.pagecount%>]</TD>
          <% else %>
          <TD style="LETTER-SPACING: 1px" width=220>[<a href=teacherlist.asp?page=<%=rs.pagecount%>><%=rs.pagecount%></a>]</TD>
          
          <% end if %>
        </TR>
        </TBODY> 
      </TABLE>
    
</body>
</html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?