📄 listteacher.asp
字号:
<!-- #include file="utility/check.asp" -->
<%
'****************************************
'目的： 教师列表
'开始时间： 2005-6-2 11:10
'最后修改时间： 2005-6-2 20:05
'编写人： 某某某
'****************************************
dim search '是否执行搜索操作
dim keyName '搜索的关键字
dim message '提示信息
dim sql
dim rs
dim pageSize '每页显示信息数目
dim pgnm '总共的页面数目
dim page '用户请求的页面索引
dim count '消息计数器，用来判断是否到达分页条目
count = 0
pageSize = 9
sql = "select * from teacher where tFlag = '教师'"
page = Request.QueryString("page")
search = Request.QueryString("search")
message = "<font color=red>所有教师</font>"
keyName = Trim(Request.Form("teaName"))
if(keyName = "") then keyName = Trim(Request.QueryString("teaName"))
'如果关键字不为空就处理sql字符串
if(keyName <> "") then
sql = sql & " and tName like '%" & keyName & "%'"
message = "<font color = red>按照关键字<b>" & keyName & "</b>查询</font>"
end if
sql = sql & "order by ID"
'这里必须给page赋值
if(IsEmpty(page) or cint(page) < 1) then
page = 1
end if
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>已发信息列表</title>
<link rel="stylesheet" type="text/css" href="images/link.css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
//-->
</script>
</head>
<body>
<div align="center">
<table border="1" width="700" id="table2" cellspacing="0" cellpadding="0" style="border-collapse: collapse" height="22">
<tr>
<td> 当前操作： 教师列表[<%=message%>]</td>
</tr>
</table>
<br>
<table border="1" width="700" id="table2" cellspacing="0" cellpadding="0" style="border-collapse: collapse" height="27">
<form action="listTeacher.asp?search=do&page=<%=page%>" method="post">
<tr>
<td width="71" bgcolor="#F2F2F2" align="center">
查询：
</td>
<td align="center" width="417">
<input type=text name="teaName" size="20" class="inputTextLong" value="请输入姓名的部分或者部分姓名" onmouseover="javascript:this.select();this.focus();" onClick="if (this.value=='请输入姓名的部分或者部分姓名') this.value=''">
</td>
<td align="center">
<input type=submit value="按姓名查询" name="OK" class="anniu"></td>
</tr>
</form>
</table>
<br>
<table border="1" width="700" id="table1" cellspacing="0" cellpadding="0" style="border-collapse: collapse" height="70" bordercolor="#CCCCCC">
<tr>
<td width="70" height="22" align="center" bgcolor="#F2F2F2">教师编号</td>
<td height="22" align="center" width="209" bgcolor="#F2F2F2">教师名称</td>
<td height="22" align="center" width="209" bgcolor="#F2F2F2">添加时间</td>
<td height="22" align="center" width="209" bgcolor="#F2F2F2">操作</td>
</tr>
<%
set rs = ExecuteQuery(sql)
if(not rs.eof) then
rs.PageSize = pageSize
pgnm = rs.PageCount
if(cint(page) > pgnm) then
page = 1
end if
rs.absolutePage = page '指定当前页码
else
Alert("无符合条件的记录，请返回并访问其他页面！")
GoBack()
Response.end
end if
do while(not rs.EOF and count <> pageSize)
%>
<tr>
<td width="70" align="center" height="26"><%=rs("ID")%></td>
<td height="26" align="center" width="209"><%=rs("tName")%></td>
<td height="26" align="center" width="209"><%=rs("tAddTime")%></td>
<td height="26" align="center" width="209">
<a href="changeTeacherPsw.asp?teaID=<%=rs("id")%>">修改密码</a>/<a href="#" onclick="if(window.confirm('您确定要删除该教师吗？这将删除这位教师所教授的全部课程！')) location.href=' manageTeacher.asp?actionType=delete&teaID=<%=rs("ID")%>'">删除教师</a></td>
</tr>
<%
rs.MoveNext()
count = count + 1
loop
%>
<tr align=right>
<td width="556" align="right" height="23" colspan="8" align="right"><%if page=1 then%>
<font color="#CCCCCC">上一页</font><%else%>
<a href="listTeacher.asp?teaName=<%=keyName%>&page=<%=page-1%>">上一页</a><%end if%>
<%if page\pgnm=0 then%><a href="listTeacher.asp?teaName=<%=keyName%>&page=<%=page+1%>">下一页</a><%else%>
<font color="#CCCCCC">下一页</font><%end if%>
共<font color="#FF0000"><%=rs.recordcount%></font>条信息，每页<font color="#FF0000"><%=pageSize%></font>条，共<font color="#FF0000"><%=pgnm%></font>页，<span lang="zh-cn">当前为第<font color="#FF0000"><%=page%></font>页，</span>跳转到<select name="page" onChange="MM_jumpMenu('this',this,0)" style="border:1px solid #8293E6; font-size: 9pt;width=62px;height=16px; color:#111111; background-color:#DDDDFF">
<option selected value="#">请选择</option>
<%for i=1 to pgnm%>
<option value="listTeacher.asp?teaName=<%=keyName%>&page=<%=i%>">第<%=i%>页
</option>
<%next%>
</select></td>
</tr>
</table>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -