📄 adminmanage.asp

📁 一个不错的个人商务网站的源码
💻 ASP
字号:
<%dim nowplace
nowplace="faq"
dim dbpath
dbpath="../"
%>
<!--#include file="chk.asp"-->
<!--#include file="../db_conn.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>管理员管理</title>
<link href=AdminStyle.css rel=stylesheet type=text/css>
<script language="javascript1.2" src="../comm/warning.js"></script>
</head>

<body>
<div align="center">
<table width="100%"  border="1" cellspacing="1" cellpadding="4" style="border:1px solid #183789; padding-left: 4px; padding-right: 4px; padding-top: 1px; padding-bottom: 1px; border-collapse:collapse" bordercolor="#D4D0C8">
  <tr bgcolor="#666666">
    <td height="25" bgcolor="#DDDDDD" background="Image/admin_bg_1.gif"><div align="center">
		<font color="#FFFFFF" style="font-size: 14px; font-weight: 700">序列号</font></div></td>
    <td height="25" bgcolor="#DDDDDD" background="Image/admin_bg_1.gif"><div align="center">
		<font color="#FFFFFF" style="font-size: 14px; font-weight: 700">用户名</font></div></td>
    <td height="25" bgcolor="#DDDDDD" background="Image/admin_bg_1.gif"><div align="center">
		<font color="#FFFFFF" style="font-size: 14px; font-weight: 700">加入时间</font></div></td>
    <td height="25" bgcolor="#DDDDDD" background="Image/admin_bg_1.gif"><div align="center">
		<font color="#FFFFFF" style="font-size: 14px; font-weight: 700">删除</font></div></td>
  </tr>
  <% 
set rs=server.createobject("adodb.recordset")
sql="select id,login_txt_name,login_txt_pass,addtime from yqj_manager order by addtime desc"
rs.open sql,conn,1,1
        if  not (rs.eof or rs.bof) then '判断记录是否为空
        rs.pagesize=20 '每页显示20条信息
        page=clng(request("page"))
        if page<1 then page=1
        if page>rs.pagecount then page=rs.pagecount
        rs.absolutepage=page
        for i=1 to rs.pagesize
        if rs.eof=false then
        id=rs("id")
        username_m=rs("login_txt_name")
        realname=rs("login_txt_pass")
        addtime=rs("addtime")
        %>
  <tr>
    <td height="20" width="103" align=center><%=(page-1)*19+i%></td>
    <td height="20" width="312"><a href="mailto:<%=email%>" title="发送邮件"><%=username_m%></a></td>
    <td height="20" width="206"><%=addtime%></td>
    <td height="20" width="126" align="center"><a title="删除" href="javascript:ask('您真的要这么做?','del_manager.asp?id=<%=id%>')">删除</a></td>
  </tr>
  <%
rs.movenext
else
exit for
end if
next
%>
<form action="adminmanage.asp" method="post">
  <tr>
    <td colspan="4" height="20"><div align="right">
          <%
  if page<>1 then
     response.write "&nbsp;[<a href=adminmanage.asp?page=1><font color=#000000>首页</font></a>]"
     response.write "&nbsp;[<a href=adminmanage.asp?page="&(page-1)&"><font color=#000000>前页</font></a>]"
  end if

  if page<>rs.pagecount then
     response.write "&nbsp;[<a href=adminmanage.asp?page="&(page+1)&"><font color=#000000>后页</font></a>]"
     response.write "&nbsp;[<a href=adminmanage.asp?page="&rs.pagecount&"><font color=#000000>末页</font></a>]"
  end if
  %> 
          </font>
						  </div>
      <p align="right">	  <font color="#000000">共</font><font color="#FF0000"><%=rs.recordcount%></font><font color="#000000">个记录 当前第[</font><font color="#FF0000"><%=page%></font><font color="#000000">]页</font>/共<font color="#00000">[</font><font color="#FF0000"><%=rs.pagecount%></font><font color="#000000">]页</font>
		  <font size="2"><span style="font-size: 14px">
		  <input type="text" name="page" size="2" maxlength="10" value="<%=page%>" align="center"></span></font> <font size="2"><span style="font-size: 14px">
		  <input type="submit" value="查看" size="2" name="submit"></span></font> </p></td>
  </tr>
    </form>
				<%else%>
  <tr>
    <td colspan="4" height="20"><p align="center">暂无任何记录!</p></td>
  </tr>
    				<%
rs.close
set rs=nothing
conn.close
set conn=nothing
end if 
%>
</table>
</div>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -