📄 m_userlist.asp
字号:
<!-- #include file="top.asp" -->
<!-- #include file="share.asp" -->
<% checkauthority %>
<%
dim page
dim pagesize
dim pagenum
pagesize=14
page=request("page")
if page="" then
page=1
else
page=cint(page)
end if
%>
<html>
<head>
<title>3鸟设社[色彩连视版]T恤论坛成员管理</title>
<meta http-equiv="content-type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../blue.css" type="text/css">
<style type="text/css">
<!--
.hand { cursor: hand }
-->
</style>
</head>
<body bgcolor=#ffffff leftmargin="0" topmargin="0">
<table width="760" height="602" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="20" height="15" bgcolor="#FFFFFF"></td>
<td width="719" height="15"></td>
<td width="21" height="15" bgcolor="#FFFFFF"></td>
</tr>
<tr>
<td width="25" height="455" background="images/bg.gif"><p> </p>
<p> </p></td>
<td width="719" height="455" valign="top"><table width="720" border="0" cellspacing="0">
<tr>
<td height="49"> <div align="center"><a href="index.asp"><br>
<br>
<br>
[ 返回管理首页</a>]<br>
</div></td>
</tr>
<tr>
<td><table width="62%" height="313" border="0" align="center" cellpadding="0" cellspacing="3">
<tr align="left" valign="top">
<td width="100%" height="307" align="right">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="10%" height="20" align="left" valign="middle"><div align="right"><img src="../images/frame_forum2.gif" align="absmiddle"></div></td>
<td width="90%" align="left" valign="middle" background="../images/frame_bg.gif"><font class="subtitle">论坛成员管理</font></td>
</tr>
</table>
<%
dim rs
dim sql
sql="select * from userinfo where not uid='admin' order by regtime desc"
'opendb
set rs=server.createobject("adodb.recordset")
rs.open sql,conn, 1,3
if not rs.eof then
%>
<%
'-------------------------------------page navigator--------------start
rs.pagesize=pagesize
if page<=rs.pagecount then
rs.absolutepage=page
else page=rs.pagecount
end if
pagenum=rs.pagecount
if page>1 then
%>
<a href="M_userlist.asp?page=<%=page-1%>"><img src="../images/page_prev.gif" border="0"></a>
<% else %>
<img src="../images/page_prev.gif" border="0">
<%
end if
for i=1 to pagenum
if i<>page then
%>
<a href="M_userlist.asp?page=<%=i%>"><%=i%></a>
<% else %>
<%=i%>
<%
end if
if i>=pagenum then exit for
next
if page<pagenum then
%>
<a href="M_userlist.asp?page=<%=page+1%>"><img src="../images/page_next.gif" border="0"></a>
<% else %>
<img src="../images/page_next.gif" border="0">
<%
end if
'-------------------------------------page navigator--------------end
%>
<%
for i=1 to pagesize
pos=rs("pos")
uid=rs("uid")
regtime=rs("regtime")
email=rs("email")
homepage=rs("homepage")
sn=rs("sn")
authority=rs("authority")
if homepage="" then
' no action is required.
elseif not instr(lcase(homepage),"http://")=1 then
homepage="http://"&homepage
end if
'regtime="/"&year(regtime)&"-"&month(regtime)&"-"&day(regtime)
regtime=chr(13)&"注册时间："®time
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" name="uses" class="repeatx_top" background="../images/frame_bg_h.gif">
<tr align="left" valign="middle">
<td width="30" align="center">
<%
if pos>=0 and pos<10 then
%>
<img src="../images/bbs_head1.gif" width="20" height="20" align="absmiddle" alt="石头 [<%=sn%>/<%=pos%>/<%=10-pos%>]<%=regtime%>">
<%
elseif pos>=10 and pos<50 then
%>
<img src="../images/bbs_head2.gif" width="20" height="20" align="absmiddle" alt="玻璃 [<%=sn%>/<%=pos%>/<%=50-pos%>]<%=regtime%>">
<%
elseif pos>=50 and pos<200 then
%>
<img src="../images/bbs_head3.gif" width="20" height="20" align="absmiddle" alt="水晶 [<%=sn%>/<%=pos%>/<%=200-pos%>]<%=regtime%>">
<%
else
%>
<img src="../images/bbs_head4.gif" width="20" height="20" align="absmiddle" alt="金刚石 [<%=sn%>/<%=pos%>/∞]">
<% end if %>
</td>
<td width="200"><a href="#" onclick="window.open('../showuser2.asp?uid=<%=uid%>','','width=450,height=400');"><b>
<%
if authority=1 then
response.write "<font color=GREEN>"&uid&"</font>"
elseif authority=-1 then
response.write "<font color=RED>"&uid&"</font>"
else
response.write uid
end if
%>
</b></a></td>
<td align="left"> <a href="#" onclick="window.open('M_deluser.asp?uid=<%=uid%>','','width=340,height=200');"><img src="../images/user_delete.gif" border="0"></a>
<a href="#" onclick="window.open('M_upuser.asp?uid=<%=uid%>','','width=340,height=200');"><img src="../images/user_up.gif" border="0"></a>
<a href="#" onclick="window.open('M_recoveruser.asp?uid=<%=uid%>','','width=340,height=200');"><img src="../images/user_recover.gif" border="0"></a>
<a href="#" onclick="window.open('M_downuser.asp?uid=<%=uid%>','','width=340,height=200');"><img src="../images/user_down.gif" border="0"></a>
<a href="mailto:<%=email%>"><img src="../images/email.gif" border="0" align="absmiddle" alt="<%=email%>"></a>
<%
if not homepage="" then
%>
<a href="<%=homepage%>" target="_blank"><img src="../images/home.gif" border="0" align="absmiddle" alt="<%=homepage%>" width="19" height="19"></a>
<%
else
%>
<%
end if
%>
</td>
</tr>
</table>
<%
rs.movenext
if rs.eof then exit for
next
else 'if eof then
response.write "当前没有注册用户。"
end if
rs.close
set rs=nothing
'closedb
%>
<table border="0" cellpadding="0" cellspacing="0" width="100%" align="center">
<tr>
<td height="1" bgcolor="#888888"></td>
</tr>
<tr>
<td height="79"></td>
</tr>
<tr>
<td height="82" align="center"> <font color="#330000">www.3niao[色彩连视版]T恤论坛</font></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td height="65"> </td>
</tr>
</table></td>
<td width="25" height="451" background="images/bg.gif"></td>
</tr>
<tr>
<td height="12" colspan="3"><div align="center">
<table width="760" border="0" align="center" cellspacing="0">
<tr>
<td height="35" colspan="2" background="images/footbg.gif"> <div align="center">3鸟设社[v1.2色彩连视]T恤论论坛
www.3niao.com</div></td>
</tr>
<tr>
<td width="392" background="http://www.3niao.com/v2/down1/images/footgb1.gif"> </td>
<td width="362"><div align="right"><img src="http://www.3niao.com/v2/down1/images/foot.jpg"></div></td>
</tr>
</table>
</div></td>
</tr>
</table>
</center>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -