   <!-- #include file="setup.asp" -->
<%
top
dim admintime,counter
dim mycont
admintime=30 '定义日期
set RS=conn.execute("select id,bbsname,moderated from bbsconfig order by id desc")
maxbbs=int(RS("id"))
dim Aname()
dim Amoder()
redim Preserve Aname(maxbbs)
redim Preserve Amoder(maxbbs)
do while not RS.eof
Aname(RS("id"))=RS("bbsname")
Amoder(RS("id"))=RS("moderated")
RS.movenext
loop
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
%>
<table border=0 width=<%=dkuan%> align=center cellspacing=1 cellpadding=4 class=a2>
<tr class=a3>
<td height=25> <img src=images/Forum_nav.gif> <%ClubTree%> → VIP列表</td>
</tr>
</table><br>

<SCRIPT>valigntop()</SCRIPT> 
<table cellpadding="0" cellspacing="1" border="0" align="center" width=<%=dkuan%> class=a2>
<tr class=a1><td align=center height=25><b><%=clubname%> <font  color=red>VIP列表</font></B></td></tr></table>
<table cellpadding="0" cellspacing="1" border="0" align="center" width=<%=dkuan%> class=a2>
<tr bgcolor=f8f8f8>
<%
sql="select * from [user] where membercode = 2 order by membercode Desc,landtime Desc"
set rs=conn.execute(sql)
plusAL=1
adminlist
%>
</tr></table>

<%
Function adminlist
i=1
Do While Not RS.EOF
upsent=datediff("d",rs("landtime"),Now)


%>
<td width=50% class=a3>
<table border="0" cellpadding="0" cellspacing="3" cellspacing="0" width=100% class=a3>
<tr><td nowrap width=10>
<%
if Conn.Execute("Select username From [online] where username='"&rs("username")&"'").eof then
response.Write("<img src=images/membercode/vip.gif title=现在离线>")
else
response.Write("<img src=images/membercode/vip.gif title=现在在线>")
end if
%>
</td>
<td nowrap align=center width=30%>
<b><a href=Profile.asp?username=<%=rs("username")%>><%=rs("username")%></a></b>
<br>
<img src=<%=rs("userface")%> border="0" width=90 height=90 onerror=this.src='images/face/noface.gif'>
<br>
<br>
<a href=# onclick=javascript:open('friend.asp?menu=post&incept=<%=rs("username")%>','','width=320,height=170')><img src="images/pm.gif" border="0" alt="点击这里给<%=rs("username")%>发送一条短消息"></a></td>
<td class=a4 nowrap width=70%>
发贴：<b><%=rs("posttopic")%></b> 篇<br>
回帖：<b><%=rs("postrevert")%></b> 篇<br>
魅力：<b><font color=red>+</font><%=rs("magicpower")%></b><br>
威望：<b><font color=red>+</font><%=rs("power")%></b><br>
头衔：<b><%=rs("honor")%></b><br>
上次登录：<%=rs("landtime")%> <br>
<br>
<br>
<font face=Wingdings color=blue>v</font>
<b><font color=#0080d5><%=myvar%></font></b> 
<font face=Wingdings color=blue>v</font>
</td></tr></table>
</td>
<%
if i=2 then 
response.write"</tr>"
i=1
else
i=i+1
end if

RS.MoveNext
loop
RS.Close

if i=2 then 
response.write"<td width=50% class=a3 align=center valign=middle>『空缺中』</td></tr>" 
end if
end Function
set rs=nothing
htmlend
%>