📄 matrix3_userlist.asp
字号:
<!-- #include file="const.asp" -->
<%
call opendb()
checkadmin()
dim sql,rs,uid
%>
<html>
<head>
<title><%=sitename%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/css.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
function alertdelete(title,url)
{
if(confirm("确定要删除吗？ "+title+" ?\n\n数据丢失，并不可恢复！"))
{
location.href=url;
}
}
function popWin(loadurl)
{
wintop=(screen.availHeight-480)/2;
winleft=(screen.availWidth-650)/2;
window.open(loadurl,"","scrollbars=yes,resizable=yes,width=550,height=420,top="+wintop+",left="+winleft+"");
}
</script>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="18" align="center" valign="top"> <!-- #include file="topbar.asp" --> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/blank.gif" width="1" height="1"></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td align="center" valign="top"> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="12" bgcolor="#ECE9D9"> </td>
<td width="1" bgcolor="#E8BC3C"></td>
<td width="10"> </td>
<td valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="30" class=v8b> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="v7"><img src="images/btn_face.gif" width="10" height="7">
<a href="index.asp"><%=sitename%></a><FONT face=Webdings color="#660000">8</FONT>
<a href="matrix3_admin.asp">BBS管理</a> <FONT face=Webdings color="#660000">8</FONT>
用户管理</td>
<td width="100" align="center" nowrap> + <a href="register.asp" target="_blank"><font color="#990000">注册用户</font></a> </td>
</tr>
</table></td>
</tr>
<tr>
<td height="2" bgcolor="#ECE9D9"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="right"><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#CCCCCC">
<tr bgcolor="#FFFFFF">
<td width="130" nowrap bgcolor="#bac296"><span class="v8b"> <img src="images/fang-1.gif" width="7" height="7" align="absmiddle"> <font color="#FFFFFF">用户列表</font></span></td>
<td valign="top" bgcolor="#cccccc"> </td>
</tr>
</table></td>
</tr>
<tr>
<td align="right"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="100%">
<table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC">
<tr bgcolor="#ECE9D9">
<td width="26" align="center" nowrap><span class="v7">
</span></td>
<td width="117"> 帐号</td>
<td width="123"> 上次登陆IP</td>
<td width="158"> 上次登陆时间</td>
<td width="76" align="center">登陆次数</td>
<td width="78"> 帐号级别 </td>
<td width="90" align="center">管理</td>
<td width="70" align="center">文章数</td>
<td width="75" align="center">发信息</td>
</tr>
</table></td>
</tr>
<tr>
<td height="2" bgcolor="#ECE9D9"></td>
</tr>
</table></td>
</tr>
<%
dim totalcount,totalpages,psize,i,rscount,page
psize=13
page=request("page")
if not IsNumeric(page) then
page=1
else page=cint(page)
if page<=0 then
page=1
end if
end if
sql="select * from m3_users order by power desc,regtime asc"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write("<tr><td>")
response.write("<table width=100% border=0 cellpadding=4 cellspacing=1 bgcolor=#CCCCCC>")
response.write("<tr><td bgcolor=#FFFFFF> 没有帐号 ...</td></tr>")
response.write("</table>")
response.write("<table width=100% border=0 cellpadding=0 cellspacing=0>")
response.write("<tr><td height=2 bgcolor=#ECE9D9></td></tr></table>")
response.write("</td></tr>")
else
rs.pagesize=psize
rs.cachesize=rs.pagesize
totalpages=rs.pagecount
if page>totalpages then page=totalpages
rs.absolutepage=page
totalcount=int(rs.recordcount)
i=0
rscount=totalcount-(page-1)*psize
if psize>rscount then psize=rscount
while i<psize
i=i+1
uid=rs("uid")
%>
<tr>
<td align="right"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="100%">
<table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC">
<tr bgcolor="#FFFFFF">
<td width="26" height="30" align="center" nowrap><span class="v7"><img src="images/<%=rs("power")%>.gif" width="12" height="12" align="absmiddle">
</span></td>
<td width="117" height="30"> <a href="profile.asp?name=<%=rs("name")%>" target="_blank"><%=rs("name")%></a></td>
<td width="123" height="30"> <%=rs("ip")%></td>
<td width="158" height="30"> <%=rs("lastlogin")%></td>
<td width="76" height="30" align="center"><%=rs("logintimes")%></td>
<td width="79" height="30">
<a href="matrix3_usermit.asp?uid=<%=uid%>" title="设置级别"><%
if rs("power")=0 then
response.write("<font color=blue>锁定</font>")
elseif rs("power")=1 then
response.write("普通用户")
elseif rs("power")=2 then
response.write("<font color=red>管理员</font>")
else
response.write("<font color=green>不明级别</font>")
end if
%></a>
</td>
<td width="89" height="30" align="center"><a href="matrix3_usermit.asp?uid=<%=uid%>" title="修改用户高级资料">修改</a>
| <a href="javascript:alertdelete('<%=rs("name")%>','matrix3_deluser.asp?uid=<%=uid%>')" title="删除用户，不可还原！">删除</a></td>
<td width="70" align="center"><a href="search.asp?type=2&keyword=<%=rs("name")%>" target="_blank" title="查看该用户的所有文章"><%=rs("post")%></a></td>
<td width="75" align="center"><a onclick="javascript:popWin('msgnew.asp?name=<%=rs("name")%>')" style="cursor:hand">发信息</a></td>
</tr>
</table></td>
</tr>
<tr>
<td height="2" bgcolor="#ECE9D9"></td>
</tr>
</table></td>
</tr>
<%
rs.movenext
wend
end if
rs.close
set rs=nothing
%>
</table>
</td>
</tr>
</table><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> <table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" class="body_tb_border">
<tr bgcolor="#FFFFFF">
<td valign="top" class="mainbg"><table width="100%" border="0" cellpadding="0" cellspacing="0" class="list_light">
<tr>
<td nowrap class="v7"><%=MultiPage(page,13,totalcount,"")%></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="2" bgcolor="#ECE9D9"></td>
</tr>
</table></td>
</tr>
</table></td>
<td width="10"> </td>
<td width="1" bgcolor="#E8BC3C"></td>
<td width="100" bgcolor="#ECE9D9" valign="top"> <!-- #include file="matrix3_right.asp" --></td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="10" align="center" valign="middle">
<!-- #include file="bottombar.asp" -->
</td>
</tr>
</table>
</body>
</html>
<%
call closedb()
%>
<!-- #include file="MultiPage_Func.asp" -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -