📄 admin_manage.asp
字号:
<!--#include file="../cc/conn.asp"-->
<!--#include file="confirmadmin.asp"-->
<%response.expires= -1
response.addheader "pragma","no-cache"
response.AddHeader "cache-control","no-store"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title><%=mc%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../cc/css/style.css" rel="stylesheet" type="text/css">
</head>
<body>
<div align="center">
<table width="700" border="0" cellpadding="0" cellspacing="1" bordercolor="#00CCFF" bgcolor="#00CCFF">
<tr bgcolor="#FFFFFF">
<td width="50%"><div align="center"><a href="admin_modify.asp"><strong>修改超级管理员资料</strong></a></div></td>
<td><div align="center"><a href="admin_logout.asp"><strong>退出超级管理页面</strong></a></div></td>
</tr>
</table>
</div>
<table width="700" border="0" align="center" cellpadding="0" cellspacing="1" bordercolor="#00CCFF" bgcolor="#00CCFF">
<tr bgcolor="#FFFFFF">
<td width="60"><div align="center">用户ID</div></td>
<td width="100"><div align="center">用户名</div></td>
<td width="100"><div align="center">主页名称</div></td>
<td width="180"><div align="center">主页地址</div></td>
<td width="60"><div align="center">浏览量</div></td>
<td width="80"><div align="center">计数日期</div></td>
<td width="130"><div align="center"></div></td>
</tr>
</table>
<table cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#4F4F4F" width="100%" height="8">
<tr>
<td width="100%"></td>
</tr>
</table>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from user order by id desc"
rs.open sql,conn,1,1
dim page
IF not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Then
page=1
Else
Page=Int(Abs(Request("page")))
End if
rs.pagesize = 10
totaluser = rs.RecordCount
totalpage = rs.pageCount
mypagesize = rs.pagesize
rs.absolutepage = page
while not rs.eof and mypagesize>0
%>
<table width="700" border="0" align="center" cellpadding="0" cellspacing="1" bordercolor="#00CCFF" bgcolor="#00CCFF">
<tr bgcolor="#FFFFFF">
<td width="60"><div align="center"><%=rs("id")%></div></td>
<td width="100"><div align="center"><%=rs("name")%></div></td>
<td width="100"><div align="center"><%=rs("pagename")%></div></td>
<td width="180"><div align="center"><a href="<%=rs("../cfcount/pageurl")%>" target="_blank"><%=rs("pageurl")%></a></div></td>
<td width="60"><div align="center"><%=rs("total")%></div></td>
<td width="80"><div align="center"><%=rs("date")%></div></td>
<td width="130"><div align="center"><a href="admin_goto.asp?name=<%=rs("name")%>" target="_blank">查看</a> <a href="admin_del.asp?name=<%=rs("name")%>">删除</a></div></td>
</tr>
</table>
<table cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#4F4F4F" width="100%" height="8">
<tr>
<td width="100%"></td>
</tr>
</table>
<div align="center">
<%rs.movenext
mypagesize=mypagesize-1
wend%>
共有<font color="#FF0000"><%=totaluser%></font>个注册用户
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td><form name="form2" method="post" action="">
<table border="0" align="center" cellpadding="0" cellspacing="1" bordercolor="#00CCFF" bgcolor="#00CCFF">
<tr>
<td valign="top" bgcolor="#FFFFFF">
<div align="right"><a href="admin_manage.asp?page=1">第一页</a>
<%
if page>1 then%>
<a href='admin_manage.asp?page=<%=page-1%>'>上一页</a>
<%
end if
%>
<%
if page<rs.pagecount then%>
<a href='admin_manage.asp?page=<%=page+1%>'>下一页</a>
<%
end if
%>
<a href="admin_manage.asp?page=<%=totalpage%>">最后一页</a> 页次：<font color="#ff0000"><%=page%></font>/<%=totalpage%>页</div></td>
<td width="100" bgcolor="#FFFFFF">
<Select name="page" size="1" class=smallselsect id="select3" style='BACKGROUND-COLOR:#ffffff;font-family: 宋体; font-size: 9pt;' onChange="window.location=form.page.options[form.page.selectedIndex].value">
<%for i=1 to totalpage
response.write "<option value="&filename&"?page="& i
if currentpage=i then
response.write " selected"
end if
response.write ">转到第"& i &"页</option>"
next
response.write "</select>"
%>
</select></td>
</tr>
</table>
</form></td>
</tr>
</table>
<a href="../cc/index.asp"><br>
返回首页</a><br>
<!--#include file="bottom.asp"-->
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -