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"> 教师帐号</td>
<td valign="middle" width="101">教师真实姓名</td>
<td valign="middle" width="58"> 性别</td>
<td width="90" valign="middle">上传作业</td>
</tr>
<% do while not rs.eof %>
<tr>
<td valign="middle" height="31" width="86"> <%=rs("id")%></td>
<td valign="middle" width="115"> <%=rs("tname")%> </td>
<td valign="middle" width="101"> <%=rs("trealname")%></td>
<td valign="middle" width="58"> <%=rs("tsex")%></td>
<td valign="middle" width="90"> <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 + -
显示快捷键?