📄 renshiguan.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file=data/conn.asp-->
<!--#include file=connfig.asp-->
<!--#include file=inc/yan.asp-->
<%
call case11
if request("del")<>"" and (ps("renshi")=1 or ps("chaoji")=1) then
call del
end if
function del
sql2="delete from renshi where id="&request("del")
conn.Execute(sql2)
end function
set rs=server.CreateObject("adodb.recordset")
sql="select * from renshi order by time desc"
rs.open sql,conn,1,1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style type="text/css">
<!--
body,td,th {
font-size: 12px;
}
a:link {
color: #0000FF;
text-decoration: none;
}
a:visited {
text-decoration: none;
color: #0000FF;
}
a:hover {
text-decoration: none;
color: #0000FF;
}
a:active {
text-decoration: none;
}
.style2 {color: #000000}
.style3 {font-size: 16px}
.style4 {
font-family: "黑体";
color: #FFFFFF;
}
-->
</style></head>
<body>
<table width="300" border="0" align="center" cellspacing="0">
<tr>
<td height="31" bgcolor="BC82D6"><img src="images/memberflag_03.gif" width="16" height="16"><span class="style3"><span class="style4">公司员工</span></span></td>
</tr>
<tr>
<td><table width="571" height="92" border="0" align="center" cellspacing="1" bgcolor="#336699">
<tr>
<td width="147" height="28" background="images/tile_sub.gif"><div align="center" class="style2">员工姓名</div></td>
<td width="134" background="images/tile_sub.gif"><div align="center" class="style2">职务</div></td>
<td width="153" background="images/tile_sub.gif"><div align="center" class="style2">入档日期</div></td>
<td colspan="2" background="images/tile_sub.gif"><div align="center" class="style2">管理</div></td>
</tr>
<%
if not rs.eof then
tel=rs.recordcount
shum=3
rs.pagesize=shum
maxpage=rs.pagecount
requestpage=clng(request("p"))
if requestpage="" or requestpage=0 then
requestpage=1
end if
if requestpage>maxpage then
requestpage=maxpage
end if
if not requestpage=1 then
rs.move (requestpage-1)*rs.pagesize
end if
for i=1 to rs.pagesize and not rs.eof
%>
<tr>
<td height="25" bgcolor="#FFFFFF"><div align="center"><a href=renshixian.asp?id=<%=rs("id")%>><%=rs("name") %></a></div></td>
<td bgcolor="#FFFFFF"><div align="center"><%= rs("zhiwu") %></div></td>
<td bgcolor="#FFFFFF"><div align="center"><%= rs("time") %></div></td>
<td width="60" bgcolor="#FFFFFF"><div align="center"><a href="renshiup.asp?id=<%=rs("id")%>">修改</a></div></td>
<td width="61" bgcolor="#FFFFFF"><div align="center"><a href="renshiguan.asp?del=<%=rs("id")%>&p=<%=requestpage%>">删除</a></div></td>
</tr>
<%
rs.movenext
if rs.eof then exit for
next
else
response.Write("暂无信息")
end if
rs.close
%>
<tr bgcolor="#f3f3f3">
<td colspan="5" height="25"><div align="right">
共 <%= maxpage %> 页 当前页：<%= requestpage %>
<a href=shou.asp?p=<%=i-1%>></a> <a href=renshiguan.asp?p=<%=requestpage-1%>>上一页</a> <a href=renshiguan.asp?p=<%=requestpage+1%>>下一页</a>
</div></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -