📄 audituser.asp
字号:
<!-- #include file="conn.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>站长帐户 - <%=sitetitle%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equiv="Content-Language" content="zh-cn" />
<link href="/favicon.ico" type="image/x-icon" rel="shortcut icon" />
<link href="/favicon.ico" type="image/x-icon" rel="bookmark" />
<meta http-equiv="pragma" content="no-cache" />
<meta http-equiv="imagetoolbar" content="no" />
<meta content="Copyright 2007 netsoz.com" name="copyright" />
<link href="../css/accounts.css" type="text/css" rel="stylesheet" />
<SCRIPT language="javascript">
<!--//
function MM_goToURL() { //v3.0
var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}
function delall()
{
if(confirm("确实要删除这条信息吗？")){return true}
else {return false}
}
//-->
</script>
</head>
<body bgcolor="#FFFFFF">
<DIV id=Head>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="220" align="center" style="padding:1px 0px 0px 0px;"><a href="../index.asp" onFocus="this.blur();"><img src="../images/logo_coodirs.gif" width=206 height=50 vspace=7 border=0 alt="netsoz中文网站目录"></a></td>
<td valign="top" style="padding:1px 0px 0px 0px;"><table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td align="right" valign="top" style="padding:6px 16px 0px 0px;">
<strong><%=Session("user")%></strong> - <a href="../accounts/" class="linkNo">我的帐户</a> - <a href="../index.asp" class="linkNo">网站目录首页</a> - <a href="../accounts/logout/" class="linkNo">退出</a>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" cellpadding="2" cellspacing="1" style="border-top:1px solid #99B2CC; border-bottom:1px solid #99B2CC;">
<tr>
<td height="20" bgcolor="#DBE9F4"> 您的位置：<strong><%=Session("user")%></strong> 的管理中心</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="160" valign="top" style="padding:6px 0px 0px 0px;">
<table width="100%" border="0" cellspacing="1" cellpadding="2">
<tr>
<td nowrap="nowrap" class="f60b14" style="padding:3px 0px 3px 6px;">管理中心</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="2">
<tr>
<td height="1" background="../images/dot_line.gif"></td>
</tr>
</table>
<!-- #include file="LeftMenu.asp"-->
<table width="100%" border="0" cellspacing="1" cellpadding="2" style="margin-bottom:30px;">
<tr>
<td height="1" background="../images/dot_line.gif"></td>
</tr>
</table>
</td>
<td width="1" background="../images/dot_line.gif"></td>
<td valign="top" style="padding:0px 0px 10px 16px;">
<table width="100%" border="0" cellspacing="0" cellpadding="0" style="margin-bottom:10px;">
<tr>
<td height="1" background="../images/dot_line.gif"></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0" align="center">
<tr>
<td><strong>会员管理</strong></td>
</tr>
</table>
<table width="96%" border="0" cellspacing="1" cellpadding="2" bgcolor="#cccccc" style="margin-bottom:3px;">
<tr bgcolor="#F3F8FC" align="center">
<td>序号</td>
<td>会员帐号</td>
<td>会员性别</td>
<td>电子邮箱</td>
<td>维护</td>
</tr>
<%
if Len(Trim(Request("p")))=0 Then '返回目标页码的判断
page=1
Else
page=CInt(Trim(Request("p")))
End if
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from user order by id desc"
rs.open sql,conn,1,1
rs.AbsolutePage=page
for k=1 to rs.PageSize
i=i+1
%>
<tr bgcolor="#FFFFFF">
<td align="center"><%=i%></td>
<td><%=rs("username")%></td>
<td><%=rs("sex")%></td>
<td align="center"><%=rs("email")%></td>
<td align="center"><a href="AuditUser.asp?action=del&id=<%=rs("id")%>" title="修改待审核网站信息">删除</a></td>
</tr>
<%
rs.movenext
if rs.EOF Then Exit For
next
%>
</table>
<table width="96%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" style="margin-bottom:3px;">
<tr>
<td height="24" align="right" bgcolor="#F4F4F4"><%
if page <>1 then
Response.Write "<a href=?p=1>首页</a> "
end if
tmppage = page - 1
if tmppage <= 0 then
tmppage = 1
else
Response.Write"<a href=?p="&tmppage&">上一页</a>"
end if
tmppage = page + 1
if tmppage >rs.PageCount then
tmppage = page
else
Response.Write " <a href=?p="&tmppage&">下一页</a> "
end if
if Cstr(page) <> Cstr(rs.PageCount) and Cstr(rs.PageCount) <> 0 then
Response.Write "<a href=?p="&rs.PageCount&">尾页</a>"
end if
Response.Write " "&rs.RecordCount&" 条记录 "
if Cstr(rs.PageCount) <> 0 then
Response.Write "" & page & " / "&rs.PageCount&"页"
end if
rs.close
set rs=nothing
%>
</td>
<td width=40 nowrap bgcolor="#F4F4F4">
</FONT>
</td>
</tr>
<TR align='center'>
<td height="1" colspan="8" bgcolor='#DADADA'><img src="IMAGE/SPACE.GIF" width="1" height="1"></Td>
</TR>
</table>
<font color=red>注：没有通过网站所有权验证的网站不能发布站长推荐信息，不能更新网站基本信息。</font>
</td>
</tr>
</table>
<%=sitefoot%>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -