📄 userlist.asp
字号:
<!-- #include file="top.asp" -->
<!-- #include file="share.asp" -->
<!-- #include file="online.asp" -->
<%
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鸟设社[色彩连视版]媒体社区成员列表</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="757" height="608" border="0" align="center" cellpadding="0" cellspacing="0">
<tr bgcolor="#FFFFFF">
<td width="20" height="10"></td>
<td width="719" height="10"></td>
<td width="21" height="10"></td>
</tr>
<tr>
<td width="25" height="427" background="images/bg.gif"></td>
<td width="719" height="427" valign="top">
<table width="716" height="481" border="0" cellspacing="0">
<tr>
<td width="714"> <table width="100%" cellpadding="0" cellspacing="0" border="0">
<tr>
<td align="left"><div align="center"><img src="images/rightstyle.gif"><a href="index.asp">返回首页</a>
<img src="images/rightstyle.gif"><a href="userlist.asp">查看成员列表</a>
<%
if session("blueuid")=request("uid") then
%>
<img src="images/rightstyle.gif"><a href="editinfo.asp?uid=<%=request("uid")%>">修改个人资料
</a>
<%
end if
%>
<img src="images/rightstyle.gif"><a href="javascript:history.back();">返回
</a> </div></td>
</tr>
</table></td>
</tr>
<tr>
<td height="340">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="338" align="left" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="73">
<tr align="left" valign="top">
<td width="100%" align="right"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="45"><img src="images/frame_forum2.gif" align="absmiddle"></td>
<td align="left" height="20" valign="middle" background="images/frame_bg.gif"><font class="subtitle">论坛成员列表</font></td>
</tr>
</table>
<%
dim rs
dim sql
sql="select * from userinfo where authority>=0 and 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
%>
<%
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="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="userlist.asp?page=<%=i%>"><%=i%></a>
<% else %>
<%=i%>
<%
end if
if i>=pagenum then exit for
next
if page<pagenum then
%>
<a href="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
%>
<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="35" 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%>]">
<%
elseif pos>=10 and pos<50 then
%>
<img src="images/bbs_head2.gif" width="20" height="20" align="absmiddle" alt="玻璃 [<%=sn%>/<%=pos%>/<%=50-pos%>]">
<%
elseif pos>=50 and pos<200 then
%>
<img src="images/bbs_head3.gif" width="20" height="20" align="absmiddle" alt="水晶 [<%=sn%>/<%=pos%>/<%=200-pos%>]">
<%
else
%>
<img src="images/bbs_head4.gif" width="20" height="20" align="absmiddle" alt="金刚石 [<%=sn%>/<%=pos%>/∞]">
<% end if %>
</td>
<td width="292"><a href="showuser.asp?uid=<%=uid%>">
<%
if authority>=1 then
response.write "<b>"&uid&"</b>"
else
response.write uid
end if
%>
</a></td>
<td width="292"><%=regtime%></td>
<td align="left" width="90"> <a href="mailto:<%=email%>"><img src="images/email.gif" border="0" align="absmiddle" alt="<%=email%>" width="19" height="19"></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 rs.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> </td>
</tr>
</table></td>
</tr>
</table>
<iframe border="0" frameborder="0" width="1" height="1" name="onlineframe" id="onlineframe" src="keep.asp?act=查看论坛用户列表" scrolling="false"></iframe>
</td>
</tr>
</table></td>
</tr>
<tr>
<td height="50"><div align="center"></div></td>
</tr>
</table>
<div align="center"><font color="#330000"><br>
<br>
<br>
<a href="#top">[UP]</a></font> </div></td>
<td width="25" height="427" 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 + -