con_forum_main.asp

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

</td></tr>
</table>
<%
  response.write ukong
end sub

function forum_main_body(f_id,f_n,f_w,f_name,f_type,f_pro,f_new_info,f_new_num,f_topic_num,f_data_num,f_power,f_remark,f_pic,f_new_view,f_config,f_online)
  dim temp1,ddim,temp_pic,fj,pic_type,forum_type,list_data,tmp,tmp_dim,tmp_f_config_1
  pic_type=f_type
  if f_new_num>0 then pic_type=pic_type&"n"
  if int(f_type)=0 then
    forum_type="认证论坛"
  else
    ddim=split(web_forum_type,"|")
    for fj=0 to ubound(ddim)
      if int(f_type)=int(fj+1) then
        forum_type=ddim(fj)
        exit for
      end if
    next
	if int(f_pro)=1 then  forum_type="只读论坛"
  end if
  if isarray(ddim) then erase ddim
  if var_null(f_pic)<>"" and  f_pic<>"" then
    temp_pic=f_pic
    if left(temp_pic,1)="$" then
      temp_pic=right(temp_pic,len(temp_pic)-1)
      temp_pic="images/forum_pic/"&temp_pic
      temp_pic=vbcrlf&"<td align=right><img src='"&temp_pic&"' border=0></td>"
    end if
  end if
  if f_w=1 then
    if f_new_view then
      f_new_info=split(f_new_info,"|")
      if int(ubound(f_new_info))=3 then
        list_data=CMS_Skin.GetDB("forum_board_base")
        list_data=Replace(list_data,"{$forum_id}",f_id)
        list_data=Replace(list_data,"{$view_id}",f_new_info(2))
        list_data=Replace(list_data,"{$topics}",joekoe_cms.code_html(f_new_info(3),1,0))
        list_data=Replace(list_data,"{$topic}",joekoe_cms.code_html(f_new_info(3),1,12))
        list_data=Replace(list_data,"{$username}",format_user_name(f_new_info(0),0,""))
        list_data=Replace(list_data,"{$tim}",f_new_info(1))
      else
        list_data="<font class=gray>暂无</font>"
      end if
    else
      list_data="<p align=center class=gray>您没有浏览最后更新的权限</p>"
    end if
  else
    list_data="<p align=center><a href='forum_list.asp?forum_id="&f_id&"' class=gray>点击浏览分论坛（<font class=red>"&f_n&"</font>个）信息</a></p>"
  end if
  tmp_dim=split(f_config,"|")
  tmp_f_config_1=tmp_dim(1)
  erase tmp_dim

  tmp=CMS_Skin.GetDB("forum_board")
  tmp=Replace(tmp,"{$web_skin}",joekoe_cms.web_dir_skin)
  tmp=Replace(tmp,"{$pic_type}",pic_type)
  tmp=Replace(tmp,"{$name}",f_name)
  tmp=Replace(tmp,"{$forum_type}",forum_type)
  tmp=Replace(tmp,"{$new_num}",f_new_num)
  tmp=Replace(tmp,"{$topic_num}",f_topic_num)
  tmp=Replace(tmp,"{$data_num}",f_data_num)
  tmp=Replace(tmp,"{$id}",f_id)
  tmp=Replace(tmp,"{$forum_super_view}",forum_super_view(f_power,tmp_f_config_1,99))
  tmp=Replace(tmp,"{$remark}",replace(f_remark,vbcrlf,"<br>"))
  tmp=Replace(tmp,"{$temp_pic}",temp_pic)
  tmp=Replace(tmp,"{$list_data}",list_data)
  tmp=Replace(tmp,"{$forum_online_num}",f_online)
  forum_main_body=tmp
end function

function forum_main_end(vars)
  dim tmp
  tmp="</tr></table>"&ukong
  forum_main_end=tmp
end function

function forum_main_head(vars,cid)
  dim hurl,temp1
  hurl="forum_list.asp?forum_id="
  temp1=temp1&vbcrlf&"<table cellspacing=1 cellpadding=1 class=table>" & _
      vbcrlf&"<tr><td class=td colspan=4>&nbsp;"&img_skin(web_img_m)&"&nbsp;<a href='"&hurl&cid&"' class=h_td>"&vars&"</a></td></tr><tr><td>"
  forum_main_head=temp1
end function

function forum_today_star()
dim temp1,zsjrs,zsjrsyyy
zsjrsyyy=1
'======今日论坛之星=====
if joekoe_cms.web_vt=1 then
sql="select top 4 username,count(username) from bbs_topic where datediff(dd,tim,Getdate())<1 group by username order by count(username) desc"
else
sql="select top 4 username,count(username) from bbs_topic where datediff('d',tim,#"&now&"#)<1 group by username order by count(username) desc"
end if
set zsjrs=joekoe_cms.exec(sql,1)
if not zsjrs.eof then
  temp1="<tr><td align=center width=25% bgcolor=#f7f7f7>"
  temp1=temp1 & "<font color=red><div style='filter:glow(color=red,strength=10);'> 冠 军</div></font>"
  temp1=temp1 & "<a href='user_view.asp?username="&server.urlencode(zsjrs("username"))&"' target=_blank>"
  sql="select * from user_data where username='" & zsjrs("username") & "'"
  set rs=joekoe_cms.exec(sql,1)
  temp1=temp1 & "<img src='" & rs("face") & "' border=0 width='" & rs("face_w") & "' height='" & rs("face_h") & "'><br>"
  temp1=temp1 & rs("username") & "</a>"
  temp1=temp1 & "<br>今天发表的主题帖：" & zsjrs(1)
zsjrsyyy=zsjrs(1)
  temp1=temp1 & "</td>"
  zsjrs.movenext '已经确定有一个了，移动到下一人
  temp1=temp1 & "<td align=center width=25% bgcolor=#f7f7f7>"
  if not zsjrs.eof then '确定今天发了主题帖的至少有两个
  sql="select * from user_data where username='" & zsjrs("username") & "'"
  set rs=joekoe_cms.exec(sql,1)
if zsjrsyyy=zsjrs(1) then
 temp1=temp1 & "<font color=red><div style='filter:glow(color=red,strength=10);'> 冠 军</div></font>"
else
 temp1=temp1 & "<font color=red><div style='filter:glow(color=red,strength=10);'> 亚 军</div></font>"
end if
  temp1=temp1 & "<a href='user_view.asp?username="&server.urlencode(zsjrs("username"))&"' target=_blank>"
  temp1=temp1 & "<img src='" & rs("face") & "' border=0 width='" & rs("face_w") & "' height='" & rs("face_h") & "'><br>"
  temp1=temp1 & rs("username") & "</a>"
  temp1=temp1 & "<br>今天发表的主题帖：" & zsjrs(1)
zsjrsyyy=zsjrs(1)
  zsjrs.movenext '已经确定有一个了，移动到下一人
  temp1=temp1 & "<td align=center width=25% bgcolor=#f7f7f7>"
  if not zsjrs.eof then '确定今天发了主题帖的至少有两个
  sql="select * from user_data where username='" & zsjrs("username") & "'"
  set rs=joekoe_cms.exec(sql,1)
if zsjrsyyy=zsjrs(1) then
 temp1=temp1 & "<font color=red><div style='filter:glow(color=red,strength=10);'> 亚 军</div></font>"
else
 temp1=temp1 & "<font color=red><div style='filter:glow(color=red,strength=10);'> 季 军</div></font>"
end if
  temp1=temp1 & "<a href='user_view.asp?username="&server.urlencode(zsjrs("username"))&"' target=_blank>"
  temp1=temp1 & "<img src='" & rs("face") & "' border=0 width='" & rs("face_w") & "' height='" & rs("face_h") & "'><br>"
  temp1=temp1 & rs("username") & "</a>"
  temp1=temp1 & "<br>今天发表的主题帖：" & zsjrs(1)
zsjrsyyy=zsjrs(1)
  zsjrs.movenext '已经确定有一个了，移动到下一人
  temp1=temp1 & "<td align=center width=25% bgcolor=#f7f7f7>"
  if not zsjrs.eof then '确定今天发了主题帖的至少有两个
  sql="select * from user_data where username='" & zsjrs("username") & "'"
  set rs=joekoe_cms.exec(sql,1)
if zsjrsyyy=zsjrs(1) then
 temp1=temp1 & "<font color=red><div style='filter:glow(color=red,strength=10);'> 季 军</div></font>"
else
 temp1=temp1 & "<font color=red><div style='filter:glow(color=red,strength=10);'> 第4名</div></font>"
end if
  temp1=temp1 & "<a href='user_view.asp?username="&server.urlencode(zsjrs("username"))&"' target=_blank>"
  temp1=temp1 & "<img src='" & rs("face") & "' border=0 width='" & rs("face_w") & "' height='" & rs("face_h") & "'><br>"
  temp1=temp1 & rs("username") & "</a>"
  temp1=temp1 & "<br>今天发表的主题帖：" & zsjrs(1)
  else '今天有发主题帖的只有一个
    temp1=temp1 & "发新帖抢占位置咯！"
  end if
  temp1=temp1 & "</td>"
  else '今天有发主题帖的只有一个
    temp1=temp1 & "发新帖抢占位置咯！<td align=center bgcolor=#f7f7f7>发新帖抢占位置咯！</td>"
  end if
  temp1=temp1 & "</td>"
  else '今天有发主题帖的只有一个
    temp1=temp1 & "发新帖抢占位置咯！<td align=center bgcolor=#f7f7f7>发新帖抢占位置咯！</td><td align=center bgcolor=#f7f7f7>发新帖抢占位置咯！</td>"
  end if
  temp1=temp1 & "</td></tr>"
else
  temp1="<tr><td align=center bgcolor=#f7f7f7>发新帖抢占位置咯！</td><td align=center bgcolor=#f7f7f7>发新帖抢占位置！</td><td align=center bgcolor=#f7f7f7>发新帖抢占位置咯！</td><td align=center bgcolor=#f7f7f7>发新帖抢占位置！</td></tr>"
end if 
  response.write vbcrlf & "<table cellspacing=1 cellpadding=1 class=table><tr><td class=td colspan=4>&nbsp;"&img_skin(web_img_m)&" 今日论坛之星</td></tr>"&temp1&"</table>"
zsjrs.close
end function
%>