adminlist.asp

ASP整套的建站源代码

<!-- #include file="setup.asp" -->
<%
if Request.Cookies("username")="" then
error("<li>您还还未<a href=login.asp>登陆</a>社区")
end if

top
%>
<style>TABLE{BORDER-TOP:0px;BORDER-LEFT:0px;BORDER-BOTTOM:1px}TD{BORDER-RIGHT:0px;BORDER-TOP:0px}</style>
<table width="750" align="center" border="0">
<tr>
<td vAlign="top" width="30%"><img src="images/logo.gif" border="0"></td>
<td vAlign="center" align="top">　<img src="images/closedfold.gif" border="0">　<a href="index.asp"><%=clubname%></a><br>
　<img src="images/bar.gif" border="0"><img src="images/openfold.gif" border="0">　管理员列表</td>
</tr>
</table><br>
<center>
<table cellpadding=3 cellspacing=0 border=0 width=600 style="border-collapse: collapse; border-left-width: 1px; border-right-width: 1px; border-top-width: 1px" height="25"><tr>
<td width=156 align=center style="font-size: 9pt" background=images/title_sub.gif height="17">
<font color=FFFFFF><b>管 理 人 员</b></font></td>
<td align=center style="font-size: 9pt" width="429" background=images/title_sub.gif height="17">
<font color=FFFFFF><b>详 细 信 息</b></font></td></tr></table>
<%
pagesetup=10 '设定每页的显示数量
count=conn.execute("Select count(id)from user where membercode > 3")(0)
sql="select * from user where membercode > 3 order by membercode Desc,landtime Desc"
rs.Open sql,Conn
If Count/pagesetup > (Count\pagesetup) then
TotalPage=(Count\pagesetup)+1
else TotalPage=(Count\pagesetup)
End If
PageCount= 0
RS.MoveFirst
if Request.QueryString("ToPage")<>"" then PageCount = cint(Request.QueryString("ToPage"))
if PageCount <=0 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
RS.Move (PageCount-1) * pagesetup
i=0
Do While Not RS.EOF and i<pagesetup
i=i+1
%>
<table width=600 bordercolor=#A4B6D7  cellSpacing=0 cellPadding=1 border=1>
<tr bgcolor=F8F8F8><td valign=top width=150><p><br>
<a target="_blank" href="images/upphoto/<%=rs("userphoto")%>.jpg"><img src=images/upphoto/<%=rs("userphoto")%>.jpg border=0 width=150 height=112></a></p>
</td><td valign=top>
<table cellSpacing=0 cellPadding=5 border=0 style="border-collapse: collapse" style="TABLE-LAYOUT: fixed" width="421">
<tr><td align=middle width="33">
<img src=images/face/<%=rs("userface")%>.gif width="32" height="32"></td>
<td width="61"><b>昵 称</b></td>
<td align=left width="84"><a href=profile.asp?username=<%=rs("username")%>><%=rs("username")%></a>　</td>
<td align=left width="18">
<img src=images/add.gif align=abscenter border=0 width="16" height="16"></td>
<td align=left width="62"><a href=friend.asp?menu=add&username=<%=rs("username")%>> 加为好友</a></td>
<td align=left width="103">
<img src=images/msg.gif width="16" height="16"> <a href=# onclick="javascript:open('friend.asp?menu=post&incept=<%=rs("username")%>','','width=320,height=170')"> 发送讯息</a></td>
</tr><tr><td align=middle width="33">
<img src=images/level.gif border=0 width="16" height="16"></td>
<td width="61"><b>用户等级</b></td>
<td align=left width="84"><%=rs("levelname")%>　</td>
<td align=left width="18">
<img src=images/mail.gif border=0 width="16" height="16"></td>
<td align=left width="62"><b>EMAIL</b></td><td align=left width="103"><a href=mailto:<%=rs("usermail")%>><%=rs("usermail")%></a>　</td>
</tr><tr><td align=middle width="33">
<img src=images/registered.gif border=0 width="16" height="16"></td>
<td width="61"><b>注册日期</b></td><td align=left width="84"><%=rs("regtime")%>　</td>
<td align=left width="18">
<img src=images/home.gif border=0 width="16" height="16"></td>
<td align=left width="62"><b>主页地址</b></td>
<td align=left width="103"><a target="_blank" href="<%=rs("userhome")%>"><%=rs("userhome")%></a>　</td></tr><tr>
<td align=middle width="33">
<img src=images/posts.gif border=0 width="16" height="16"></td>
<td width="61"><b>发表文章</b></td>
<td align=left width="84"><%=rs("posttopic")+rs("postrevert")%>　</td>
<td align=left width="18">
<img src=images/qq.gif border=0></td>
<td align=left width="62"><b><span lang=en-us>QQ</span></b></td>
<td align=left width="103"><%=rs("userqq")%>　</td>
</tr><tr>
<td align=middle width="33">
<img src=images/sig.gif border=0 width="16" height="16"></td>
<td colspan=5 width="368"><b>签名</b>
<br><%=rs("sign")%>
</td></tr>
</table></td></tr></table>
<%
RS.MoveNext
loop
Response.Write "["
ii=PageCount-5
iii=PageCount+5
if ii < 1 then
ii=1
end if
if iii > TotalPage then
iii=TotalPage
end if
if PageCount > 6 then
Response.Write "<a href=?topage=1>1</a> ... "
end if
for i=ii to iii
If i<>PageCount then
Response.Write " <a href=?topage="& i &">" & i & "</a> "
else
Response.Write " <font color=#000000><b>"&i&"</b></font> "
end if
next
if TotalPage > PageCount+5 then
Response.Write " ... <a href=?topage="&TotalPage&">"&TotalPage&"</a>"
end if
response.write "]<br>"
htmlend
%>