<!--#include file="conn.asp"-->
<!-- #include file="inc/char.asp" -->
<!-- #include file="inc/const.asp" -->
<!-- #include file="chkuser.asp" -->
<!--#include file="inc/theme.asp"-->
<!--#include file="inc/birthday.asp"-->
<!-- #include file="inc/ubbcode.asp" -->
<%dim msg_per_page,totalrec,n,currentpage,rowcount,namestyle,usercolor,announceid,username,rs1,sql1,j,EndPage
	stats="管理团队"
	call nav()
	call headline(1)
%><%Response.Expires=0%>
<link rel="stylesheet" type="text/css" href="forum.css">
<BODY bgcolor="#ffffff" alink="#333333" vlink="#333333" link="#333333" topmargin="0" leftmargin="0" background="images/mainbg.gif">
<table cellpadding=0 cellspacing=0 border=0 width=95% bgcolor="<%=tablebackcolor%>" align=center>
<tr>
<td>
<table cellpadding=3 cellspacing=1 border=0 width=100%>
<tr bgcolor="<%=tabletitlecolor%>">
<td width="25%" align=center><b><font color=<%=TableFontColor%>>管 理 人 员</font></b>
</td>
<td width="75%" align=center><b><font color=<%=TableFontColor%>>详 细 信 息</font></b>
</td>
</tr>
<%msg_per_page = 5 '定义每页显示记录条数
set rs=server.createobject("adodb.recordset")
sql="select * from [User] where userclass>18 order by userid"
rs.cursorlocation = 3 '使用客户端游标，可以使效率提高

rs.pagesize = msg_per_page '定义分页记录集每页显示记录数
rs.open sql,conn,0,1 

if err.number<>0 then '错误处理
response.write "数据库操作失败：" & err.description
err.clear
else
if not (rs.eof and rs.bof) then '检测记录集是否为空
totalrec = RS.RecordCount 'totalrec：总记录条数
if rs.recordcount mod msg_per_page = 0 then '计算总页数,recordcount:数据的总记录数
n = rs.recordcount\msg_per_page 'n:总页数
else 
n = rs.recordcount\msg_per_page+1 
end if 

currentpage = request("page") 'currentpage:当前页
If currentpage <> "" then
currentpage = cint(currentpage)
if currentpage < 1 then 
currentpage = 1
end if 
if err.number <> 0 then 
err.clear
currentpage = 1
end if
else
currentpage = 1
End if 
if currentpage*msg_per_page > totalrec and not((currentpage-1)*msg_per_page < totalrec) then 
currentPage=1
end if
rs.absolutepage = currentpage 'absolutepage：设置指针指向某页开头
rowcount = rs.pagesize 'pagesize：设置每一页的数据记录数
Do While Not RS.EOF and rowcount
%>
<tr bgcolor="<%=Tablebodycolor%>">
<td width="25%">
<%
	if isnumeric(rs("userclass")) then
	if rs("userclass")=18 then
	namestyle="filter:glow(color="&vip_mc&",strength=2)"
	usercolor=vip_fc
	elseif rs("userclass")=19 then
	namestyle="filter:glow(color="&bmaster_mc&",strength=2)"
	usercolor=bmaster_fc
	elseif rs("userclass")=20 then
	namestyle="filter:glow(color="&master_mc&",strength=2)"
	usercolor=master_fc
	else
	namestyle="filter:glow(color="&user_mc&",strength=2)"
	usercolor=user_fc
	end if
	end if
	response.write "<table><tr><td width=40% align=left style="&namestyle&">&nbsp;&nbsp;"
        if rs("sex")=1 then
        response.write"先 生："
        else
        response.write"女 士："
        end if
        response.write"</td><td style="&namestyle&"><a name="&announceid&"><font color="&usercolor&"><B>"&htmlencode(rs("username"))&"</B></font></a></td></tr></table>"
	if rs("title")<>"" then response.write "　头衔："&htmlencode(rs("title"))&"<br>"
	response.write "&nbsp;&nbsp;<img src="&rs("face")&" width="&rs("width")&" height="&rs("height")&"><br>"
	select case rs("userclass")
	case 18 response.write "&nbsp;&nbsp;<img src="&picurl&gradepic(18)&">"
	case 19 response.write "&nbsp;&nbsp;<img src="&picurl&gradepic(19)&">"
	case 20 response.write "&nbsp;&nbsp;<img src="&picurl&gradepic(20)&">"
	end select
        response.write "<br>&nbsp;&nbsp;等级："& grade(rs("userclass")) &"<BR>"
	response.write "　财产："&rs("userWealth")&"<br>"&_
							"　经验：<img src="&picurl&"bar4.gif width="&(rs("userEP")*0.005)+3&" height=8 alt="&rs("userEP")&"><br>"&_
							"　魅力：<img src="&picurl&"bar5.gif width="&(rs("userCP")*0.005)+3&" height=8 alt="&rs("userCP")&"><br>"
	if rs("UserGroup")<>"" then
	response.write "&nbsp;&nbsp;门派：" & rs("UserGroup") & "<br>"
	end if

%>
</td>
<td width="75%" valign=top>
<p>注册日期：&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <%=year(rs("addDate"))%>年<%=month(rs("addDate"))%>月<%=day(rs("addDate"))%>日
<BR>发表文章：&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <%=rs("article")%>
</p>
<p>电子邮件： &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<%if rs("useremail")<>"" then%>
<A href="mailto:<%=htmlencode(rs("useremail"))%>"><%=htmlencode(rs("useremail"))%></A>
<%else%>
没有
<%end if%>
<br>
主&nbsp;&nbsp;&nbsp;&nbsp;页： &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<%if rs("homepage")<>"" then%>
<A href="<%=htmlencode(rs("homepage"))%>" target=_blank><%=htmlencode(rs("homepage"))%></A>&nbsp;&nbsp;&nbsp;
<%else%>
没有
<%end if%>
<br>OICQ号码：&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <%if rs("oicq")<>"" then%>
<%=(rs("oicq"))%>
<%else%>
没有
<%end if
username=rs("username")%>
</p>
<p>主持版块：&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<%set rs1=server.createobject("adodb.recordset")
sql1="select * from [board] where BoardMaster like '%"&username&"%' order by boardid"
rs1.open sql1,conn,1,1
if rs1.eof and rs1.bof then%>
 &nbsp;<%=username%>&nbsp;没有主持任何版块
<%else
do while not rs1.eof%>
<a href="list.asp?boardid=<%=rs1("boardid")%>"><%=htmlencode(rs1("boardtype"))%></a>
<%rs1.movenext
loop
end if
rs1.close
set rs1=nothing
%>
</p>
</td>
</tr>
<%
rowcount=rowcount-1
rs.MoveNext
loop
end if
end if
rs.close
set rs=nothing
%>
</table>
</td>
</tr>
</table>
<table cellpadding=0 cellspacing=0 border=0 width=95% bgcolor="<%=tablebackcolor%>" align=center>
<tr>
<td>
<table cellpadding=3 cellspacing=1 border=0 width=100%>
<tr bgcolor="<%=tabletitlecolor%>">
<%call listPages()%>
</tr>
</table>
</td>
</tr>
</table>
<%
Call CloseDatabase
%>
<%
sub listPages() 
%>
<td align=center>&nbsp;PAGE:
<%
if n <= 1 then exit sub 
for i=0 to n\msg_per_page-1 
for j=1 to msg_per_page 
%> 
<a href="<%=request.ServerVariables("script_name")%>?page=<%=i*msg_per_page+j %>"><font color=<%=TableFontColor%>>[<% =i*msg_per_page+j %>]</font></a>
<% 
next 
next
EndPage = n mod msg_per_page 
for j=1 to EndPage 
%> 
<a href="<%=request.ServerVariables("script_name")%>?page=<% =i*msg_per_page+j %>"><font color=<%=TableFontColor%>>[<% =i*msg_per_page+j %>]</font></a>
<%next%>&nbsp;</td>
<%end sub%>