⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 list.asp

📁 这是一个我自己写的有关java的编程之道
💻 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>&nbsp;<a href="show.asp?id=<%=macopad("id")%>"><%=macopad("name")%></a></td>
    <td>&nbsp;<%=macopad("bumen")%></td>
    <td>&nbsp;<%=macopad("email")%></td>
    <td>&nbsp;<%=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 + -