📄 list.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="conn.asp" -->
<% user=request("user")
if user="" or request.querystring="" then
response.redirect "login.asp"
end if%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>会员列表</title>
<style type="text/css">
<!--
.STYLE15 {color: #0066FF; font-size: 12px; }
.STYLE16 {font-size: 12px}
-->
</style>
</head>
<body>
<table width="626" border="0" align="center">
<tr>
<td width="100"><div align="center"><a href="list.asp?object=办公室">办公室</a></div></td>
<td width="100"><div align="center"><a href="list.asp?object=网站建设部">网站建设部</a></div></td>
<td width="100"><div align="center"><a href="list.asp?object=网络安全部">网络安全部</a></div></td>
<td width="100"><div align="center"><a href="list.asp?object=软件研发部">软件研发部</a></div></td>
<td width="100"><div align="center"><a href="list.asp?object=电脑维修部">电脑维修部</a></div></td>
<td width="100"><div align="center"><a href="list.asp?object=事务部">事务部</a></div></td>
</tr>
</table>
<table width="576" border="1" align="center" bordercolor="#999999">
<tr>
<td width="117"><div align="center">姓名</div></td>
<td width="136"><div align="center">所属部门</div></td>
<td width="136"><div align="center">擅长</div></td>
<td width="159"><div align="center">注册时间</div></td>
</tr>
<%object=request.QueryString("object")%>
<%
if object="" then object=("办公室") else object=object end if%>
<%
set macopad=server.CreateObject("adodb.recordset")
ss="select * from macopadlist where bumen='"&object&"'"
macopad.open ss,conn,1,1
IF not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Then
page=1
Else
Page=Int(Abs(Request("page")))
End if
macopad.pagesize =18
total = macopad.RecordCount
mypagesize=macopad.pagesize
macopad.absolutepage = page
%>
<%do while not macopad.eof and mypagesize>0%>
<tr>
<td> <a href="show.asp?id=<%=macopad("id")%>"><%=macopad("name")%></a></td>
<td> <%=macopad("bumen")%></td>
<td> <%=macopad("email")%></td>
<td> <%=macopad("time")%></td>
</tr>
<%
macopad.movenext
mypagesize=mypagesize-1
loop
%>
</table>
<p align="center"><span class="STYLE15">总共
<%shu=0
sql="select count(*) from macopadlist"
rs2=conn.execute(sql)
shu=rs2(0)%>
<%=shu%> 位会员 共<b><%=macopad.pagecount%></b> 页 当前第 <b><%=page%></b> 页 <a href="list.asp?page=<%=1&"&object="&object%>">首页</a>
<%if page>1 then%>
</span><span class="STYLE16"><a href="list.asp?page=<%=page-1&"&object="&object%>">上一页</a></span><span class="STYLE15">
<%else%>
上一页
<%end if%>
<%if page<macopad.pagecount then%>
</span><span class="STYLE16"><a href="list.asp?page=<%=page+1&"&object="&object%>">下一页</a></span><span class="STYLE15">
<%else%>
下一页
<%end if%>
<a href="?page=<%=macopad.pagecount&"&object="&object%>">尾页</a></span>
</ul>
</p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -