in_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()

'----------------------------左边 结束----------------------------
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='15%'>斑竹姓名</td>
<td width='25%'>最后登陆时间</td>
<td width='13%'>发表文章数</td>
<td width='10%'>失踪天数</td>
<td width='17%'>担任版块</td>
<td width='20%'>评定结果</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 align=left>&nbsp;<%=flash("last_tim")%></td>
<td>
  <table border=0 width='90%'>
  <tr align=center>
  <td width=10></td>
  <td class=red2><%=article%></td>
  <td width=10>篇</td>
  </tr>
  </table>
</td>
<td align=center class=red><%=Ndate%></td>
<td align=left>&nbsp;<a href='forum_list.asp?forum_id=<%=forumid%>' target=_blank><%=forumname%></a></td>
<td align="center"><%=stat%></td>
</tr> 
<%
    end if
  next
  rs.movenext  
loop
rs.close:set rs=nothing
%>
 </tr>
<tr><td colspan=6 class=td height=30 align=center><font class=td>请以上斑竹注意，超过一个月未登陆将被取消斑竹资格。望大家支持！</font></td></tr>
</table>
<%
'----------------------------中间 结束----------------------------
call web_end(0,0)
%>