forum_super.asp

打开目录ads文件夹 找到top_ads.js文件 用记事本打开后就可以看到: -------------------------------------- var head_ads_tx

<!-- #include file="include/con_help.asp" -->
<%
tit="版主评定"
index_url="help"
'tit_fir=""

call web_head(0,0,0,0,0)
'----------------------------左边 开始----------------------------
call left_help()
call left_action()
response.write vbcrlf&ukong
'----------------------------左边 结束----------------------------
call web_center(0)
'----------------------------中间 开始----------------------------
dim Ndate,wumi,flash,alone,counter,stat,forumid,forumname,article
%>

<table cellpadding=1 cellspacing=1 class=table>
<tr><td class=td height=30 align=center colspan=6>斑 竹 工 作 成 绩 评 定</td></tr>
<tr align=center class=bg_tds height=30>
<td width='12%'>斑竹姓名</td>
<td width='22%'>最后登陆时间</td>
<td width='10%'>帖子数</td>
<td width='10%'>失踪天数</td>
<td width='25%'>担任版块</td>
<td width='21%'>评定结果</td>
</tr>
<%
counter=0
dim fp,k
alone="select forum_id,forum_name,forum_power from bbs_forum "
set rs=conn.execute(alone)
do while not rs.eof
  fp=rs("forum_power")
  forumid=rs("forum_id")
  forumname=rs("forum_name")
  fp=split(fp, "|")
  for k=0 to ubound(fp)
    wumi="select * from User_data where username='"&fp(k)&"'"
    set flash=conn.execute(wumi)
    if isdate(flash("last_tim")) then
    Ndate=DateDiff("d",flash("last_tim"),Now)
    article=flash("bbs_counter")
    if DateDiff("d",flash("last_tim"),Now) =< 2  then
      stat="<font color=#0080d5><b>比较勤快，加油！</b></font>"
    elseif DateDiff("d",flash("last_tim"),Now) =< 7  then
      stat="<font color=#99cc00><b><font color=#ff0000>７</font>天之内有登录</b></font>"
    elseif DateDiff("d",flash("last_tim"),Now) =< 15 then
      stat="<font color=#ff6600><b><font color=#ff0000>１５</font>天内有登录</b></font>"
      counter=counter+1
    elseif DateDiff("d",flash("last_tim"),Now) =< 30 then
      stat="<font color=#ff6600><b><font color=#ff0000>１５</font>天以上未登录</b></font>"
      counter=counter+1
    else
      stat="<b><font color=#ff0000>严重失职</font>，将取消资格！<b>"
    end if
%>
<tr class=bg_td align=center>
<td height=25><a href='user_view.asp?username=<%=flash("UserName")%>' target=_blank alt='查看<%=flash("UserName")%>的信息'><%=flash("UserName")%></a></td>
<td class=tims><%=joekoe_cms.time_type(flash("last_tim"),1)%></td>
<td align=right><font class=red2><%=article%></font> 篇</td>
<td class=red><%=Ndate%></td>
<td><a href='forum_list.asp?forum_id=<%=forumid%>' target=_blank><%=forumname%></a></td>
<td><%=stat%></td>
</tr> 
<%
    end if
  next
  rs.movenext  
loop
rs.close:set rs=nothing
%>
 </tr>
<tr><td colspan=6 class=bg_frame height=30 align=center><font class=ftd><b>请以上斑竹注意，超过一个月未登陆将被取消斑竹资格。望大家支持！</b></font></td></tr>
</table>
<%
'----------------------------中间 结束----------------------------
response.write vbcrlf& ukong
call web_end(0,0)
%>