📄 admin_manage.asp
字号:
<!-- #include file="Include/conn.asp" -->
<!-- #include file="Include/Chk.asp" -->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title></title>
<link href="Images/main.css" rel="stylesheet" type="text/css" />
</head>
<body>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="33" background="Images/l_mu_bg2.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="117" height="33" background="Images/l_mu_bg1.gif" class="tt" style="background-repeat:no-repeat">管理员管理</td>
<td width="646" height="33"> </td>
</tr>
</table></td>
</tr>
<tr>
<td height="2"></td>
</tr>
<tr>
<td>
<%
sql="select * from Zm_Admin"
set rs=server.CreateObject("ADODB.RECORDSET")
rs.open sql,conn,1,1
if not rs.eof then
pages = 5 '定义每页显示的记录数
rs.pageSize = pages '定义每页显示的记录数
allPages = rs.pageCount'计算一共能分多少页
page = Request.QueryString("page")'通过浏览器传递的页数
'if语句属于基本的排错处理
if isEmpty(page) or Cint(page) < 1 then
page = 1
elseif Cint(page) > allPages then
page = allPages
end if
rs.AbsolutePage = page
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="ta">
<tr>
<td width="87%" height="25" align="left" valign="middle" class="t2">管理员列表</td>
</tr>
<tr>
<td height="25" align="right" valign="middle" class="tb"><table width="100%" border="0" cellpadding="0" cellspacing="1" class="ta">
<tr>
<td width="50%" height="25" align="center" valign="middle" class="tb">用户名</td>
<td width="50%" height="25" align="center" valign="middle" class="tb">管理</td>
</tr>
<tr>
<td height="25" colspan="2" bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
do while not rs.eof and pages > 0
%>
<tr>
<td width="50%" height="25" align="center" valign="middle"><%=rs("name")%></td>
<td width="50%" height="25" align="center" valign="middle"><a href="Admin_Edit.asp?id=<%=rs("id")%>">修改密码</a> | <a href="Admin_Del.asp?id=<%=rs("id")%>" ONCLICK="javascript:return confirm('提示：您确定要继续执行该操作吗？')">删除</a></td>
</tr>
<%
pages = pages - 1
rs.movenext
loop
else
Response.Write("<font color='Red'>数据库暂无内容！</font>")
End if
%>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td height="40" align="right" valign="middle" class="tb"><a href="?page=1">首页</a> <a href="?page=<%=page-1%>">上一页</a> <a href="?page=<%=page+1%>">下一页</a> <a href="?page=<%=allpages%>">尾页</a>
页次：<%=page%>/<%=allpages%>页</td>
</tr>
</table>
<%
rs.close
set rs=nothing
%>
</td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="33" background="Images/l_mu_bg2.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="117" height="27" background="Images/l_mu_bg1.gif" class="tt" style="background-repeat:no-repeat">基本信息</td>
<td width="858" height="33" background="Images/l_mu_bg2.gif"> </td>
</tr>
</table></td>
</tr>
<tr>
<td height="10"></td>
</tr>
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="1" class="ta">
<tr>
<td width="20%" height="40" align="right" valign="middle" class="tb"><span class="t1">系统摘要：</span></td>
<td width="67%" height="40" bgcolor="#FFFFFF">湘域源在线产品防伪查询系统</td>
</tr>
<tr>
<td width="20%" height="40" align="right" valign="middle" class="tb"><span class="t1">开发人员：</span></td>
<td height="40" bgcolor="#FFFFFF">周镇新 官方网站：<a href="http://www.xyynet.com" target="_blank">http://www.xyynet.com</a></td>
</tr>
<tr>
<td height="40" align="right" valign="middle" class="tb"><span class="t1">版权信息：</span></td>
<td height="40" bgcolor="#FFFFFF">版权所有@湘域源在线</td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -