forum_view.asp

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

<!-- #include file="include/con_forum.asp" -->
<!-- #include file="include/con_forum_fir.asp" -->
<!-- #include file="include/con_forum_vote.asp" -->
<!-- #include file="include/jk_pagecute.asp" -->
<!-- #include file="include/jk_page_cute.asp" -->
<!-- #include file="include/jk_ip_sys.asp" -->
<!-- #include file="include/jk_ubb.asp" -->
<!-- #include file="include/jk_val_code.asp" -->
<%
if not isnumeric(viewid) then
  call format_redirect("forum.asp")
end if

iframe=true

dim vdim,fir_topic,counter,re_counter,fir_istop,fir_isgood,fir_islock,fir_isvote,temp1,rnum,word,remark,ip,u_qq,u_email,u_url,u_popedom,u_lentim,u_lentimt
dim nummer,nums,rssum,page,viewpage,thepages,pageurl,nnum,replyid,fm_15,is_recycle
is_recycle=false
pageurl="?forum_id=&view_id=&"
nummer=dim_num(1)
replyid=0
fm_15=format_mid_num(15)

sql="select top 1 forum_id,topic,counter,re_counter,islock,istop,isgood,isvote,vote_num,form_id from bbs_topic where id="&viewid
set rs=joekoe_cms.exec(sql,1)
if rs.eof then
  rs.close
  call format_redirect("forum_list.asp?forum_id="&forumid)
end if
forumid=rs(0)
fir_topic=joekoe_cms.code_html(rs(1),1,0)
counter=rs(2)
re_counter=rs(3)
fir_islock=rs(4)
fir_istop=rs(5)
fir_isgood=rs(6)
fir_isvote=rs(7)
fir_vote_num=rs(8)
if trim(request.querystring("recycle"))="yes" then
  forumid=rs(9)
  is_recycle=true
end if
rs.close

ftit="浏览主题 - "&fir_topic

call forum_first()

if forum_config(4)>0 then
nummer=forum_config(4)
nums=nummer
end if
call web_head(0,0,h_var3,0,0)
'call web_branch(0)
call forum_load()
if is_recycle=true then
  if login_mode<>"admin" then call format_redirect("forum_list.asp?forum_id="&forumid)
end if
if is_recycle=true then pageurl=pageurl&"recycle=yes&"
response.write joekoe_cms.js_put("style/data_ads_txt_forum.js",0)
response.write joekoe_cms.js_put("style/ads_txt_function.js",0)

'----------------------------中间 开始----------------------------
call forum_grade()
call forum_top(""&utit&"（浏览主题）")
'call forum_top(tit)
if fir_isvote then call forum_vote_type()

sql="select bbs_data.id,bbs_data.topic,bbs_data.icon,bbs_data.word,bbs_data.tim,bbs_data.ip,bbs_data.sys,user_data.username,user_data.nname,user_data.sex,user_data.whe,user_data.qq,user_data.email,user_data.url,user_data.face,user_data.face_w,user_data.face_h,user_data.tim as u_tim,user_data.remark,user_data.emoney,user_data.integral,user_data.power,user_data.last_tim,user_data.bbs_counter,user_data.popedom,user_data.lentim,user_data.lentimt " & _
    "from user_data,bbs_data where user_data.id=bbs_data.userid and bbs_data.reply_id="&viewid&" order by bbs_data.id"
call joekoe_cms.exec("",-1)
rs.open sql,conn,1,1
if rs.eof then
  rs.close
  call format_redirect("forum_list.asp?forum_id="&forumid)
end if
rssum=re_counter+1	'rs.recordcount
call format_pagecute()
'rs.movefirst
nnum=(viewpage-1)*nummer
if int(viewpage)>1 then rs.move nnum
vdim=rs.getrows(nummer)
rs.close

response.write vbcrlf&forum_view_top

for i=0 to ubound(vdim,2)
  if replyid=0 then replyid=vdim(0,i)
  rnum=cint(joekoe_cms.rand_num(2))
  word=ubbtst(code_jk(vdim(3,i)))
  word=replace(word,"\n","<br>")
  remark=code_jk2(vdim(18,i))
  remark=replace(remark,"\n","<br>")
  u_popedom=vdim(24,i)
  if joekoe_cms.popedom_p(u_popedom,42)=1 then
    word="<table border=0><tr><td align=center class=htd><font class=gray>=========================<br><font class=red2><b>该用户的论坛发言已暂时被屏蔽！</b></font><br>=========================</font></td></tr></table>"
    remark=""
  end if
  ip=ip_types(vdim(5,i),"",0)
  if int(fm_15) then
    u_qq=vdim(11,i)
    u_email=joekoe_cms.code_html(vdim(12,i),1,0)
    u_url=joekoe_cms.code_html(vdim(13,i),1,0)
  else
    u_qq=""
    u_email=""
    u_url=""
  end if
  if u_qq<>"" and u_qq<>"0" then
  vdim(14,i)="http://qqshow-user.tencent.com/"&u_qq&"/10/00/"
  vdim(15,i)=140
  vdim(16,i)=226
  end if
  response.write vbcrlf&forum_view_body(nnum+i+1,rnum,vdim(0,i),joekoe_cms.code_html(vdim(1,i),1,0),vdim(2,i),word,joekoe_cms.time_type(vdim(4,i),1),ip,vdim(6,i),vdim(7,i),joekoe_cms.code_html(vdim(8,i),1,0),vdim(9,i),joekoe_cms.code_html(vdim(10,i),1,0),u_qq,u_email,u_url,joekoe_cms.code_html(vdim(14,i),1,0),vdim(15,i),vdim(16,i),joekoe_cms.time_type(vdim(17,i),1),remark,vdim(19,i),vdim(20,i),vdim(21,i),joekoe_cms.time_type(vdim(22,i),1),vdim(23,i),vdim(25,i),vdim(26,i))
next
erase vdim
call joekoe_cms.exec("update bbs_topic set counter=counter+1 where id="&viewid,0)

response.write vbcrlf&forum_view_end & _
	       vbcrlf&forum_view_reply(val_code_num("f_reply_"&forumid,1))
'----------------------------中间 结束----------------------------

call preview_form("write_frm","jk_word")
'call web_branch(0)
call forum_end()
call web_end(0,0)

function forum_view_top()
  dim tmp
  tmp=CMS_Skin.GetDB("forum_view_bar")
  tmp=Replace(tmp,"{$fir_topic}",fir_topic)
  tmp=Replace(tmp,"{$forumid}",forumid)
  tmp=Replace(tmp,"{$viewid}",viewid)
  tmp=Replace(tmp,"{$web_skin}",joekoe_cms.web_dir_skin)
  tmp=Replace(tmp,"{$web_url}",joekoe_cms.web_url)
  tmp=Replace(tmp,"{$web_name}",joekoe_cms.web_name)
  tmp=Replace(tmp,"{$fir_topics}",joekoe_cms.code_js(fir_topic,1))
  tmp=Replace(tmp,"{$server}",server.urlencode("forum_view.asp?forum_id="&forumid&"&view_id="&viewid))
  tmp=Replace(tmp,"{$tit}",tit)
  forum_view_top=tmp
end function

function forum_view_body(v_i,v_rnum,v_id,v_topic,v_icon,v_word,v_tim,v_ip,v_sys,u_username,u_nname,u_sex,u_whe,u_qq,u_email,u_url,u_face,u_face_w,u_face_h,u_tim,u_remark,u_emoney,u_integral,u_power,u_last_time,u_bbs_counter,u_lentim,u_lentimt)
  dim bg_var,n_user,tmp,nname,whe,email,url,qq,del,lentim
'----------------------调用用户组光晕色-----------------------
dim dim_power,dim_grade,si,sdim,snum,u_color
dim_power=dim_user
dim_grade=split(web_user_grade,"|")
snum=ubound(dim_power)
for si=0 to snum
sdim=split(dim_power(si),":")
if u_power=sdim(0) then
u_color=sdim(3)
end if
next
if u_color="" then
sdim=split(dim_power(0),":")
u_color=sdim(3)
end if
'-----------------------定义模板参数----------------------
web_ucolor=web_ucolor
u_color=u_color
'----------------------------结束---------------------------
  bg_var="bg_td"
  if (v_i mod 2)=0 then bg_var="bg_tds"
  n_user=joekoe_cms.code_html(u_username,1,0)
  if u_nname<>"" and var_null(u_nname)<>"" then nname="头衔："&joekoe_cms.code_html(u_nname,1,0)
  if u_whe<>"" and var_null(u_whe)<>"" then whe="来自："&joekoe_cms.code_html(u_whe,1,0)
  if u_email<>"" and var_null(u_email)<>"" then email="&nbsp;&nbsp;&nbsp;<a target=_blank href='mailto:"&u_email&"'><img src='"&joekoe_cms.web_dir_skin&"forum/forum_email.gif' alt='给 "&n_user&" 发邮件' border=0></a>"
  if u_url<>"" and var_null(u_url)<>"" then url="<a href='"&u_url&"' target=_blank><img src='"&joekoe_cms.web_dir_skin&"forum/forum_url.gif' alt='访问 "&n_user&" 的主页' border=0></a>"
  if u_qq<>"0" and var_null(u_qq)<>"" then qq="<a href='http://wpa.qq.com/msgrd?V=1&Uin="&u_qq&"&Site=www.xiaozhudd.com&Menu=yes' target='_blank'><img border=0 src='http://wpa.qq.com/pa?p=1:"&u_qq&":4' alt='"&n_user&"的QQ号是"&u_qq&"，点击发送消息给对方'></a>"
  if v_i>1 and forum_power_true(forumpower)=true then del="&nbsp;<a href='forum_isaction.asp?forum_id="&forumid&"&sel_id="&viewid&"&re_id="&v_id&"&action=del'><img src='"&joekoe_cms.web_dir_skin&"small/del2.gif' alt='删除此回贴' align=absMiddle border=0></a>&nbsp;"
  tmp=CMS_Skin.GetDB("forum_view")
  tmp=Replace(tmp,"{$web_skin}",joekoe_cms.web_dir_skin)
  tmp=Replace(tmp,"{$web_dir}",joekoe_cms.web_dir)
  tmp=Replace(tmp,"{$web_unit}",joekoe_cms.web_unit)
  tmp=Replace(tmp,"{$bg_var}",bg_var)
  tmp=Replace(tmp,"{$user}",n_user)
  tmp=Replace(tmp,"{$web_ucolor}",web_ucolor)
  tmp=Replace(tmp,"{$u_color}",u_color)
  tmp=Replace(tmp,"{$ip}",v_ip)
  tmp=Replace(tmp,"{$user_sys}",user_sys_type(v_sys))
  tmp=Replace(tmp,"{$user_sex}",user_view_sex(u_sex,u_last_time))
  tmp=Replace(tmp,"{$format_user}",format_user_face(u_face,u_face_w,u_face_h))
  tmp=Replace(tmp,"{$forum_user_power}",forum_user_power_grade(u_bbs_counter,u_power))
  tmp=Replace(tmp,"{$nname}",nname)
  tmp=Replace(tmp,"{$lentim}",rank_img(u_lentimt,u_lentim,0))
  tmp=Replace(tmp,"{$bbs_counter}",u_bbs_counter)
  tmp=Replace(tmp,"{$integral}",u_integral)
  tmp=Replace(tmp,"{$emoney}",u_emoney)
  tmp=Replace(tmp,"{$whe}",whe)
  tmp=Replace(tmp,"{$tim}",joekoe_cms.time_type(u_tim,4))
  tmp=Replace(tmp,"{$server}",server.urlencode(u_username))
  tmp=Replace(tmp,"{$email}",email)
  tmp=Replace(tmp,"{$url}",url)
  tmp=Replace(tmp,"{$qq}",qq)
  tmp=Replace(tmp,"{$forumid}",forumid)
  tmp=Replace(tmp,"{$viewid}",viewid)
  tmp=Replace(tmp,"{$id}",v_id)
  tmp=Replace(tmp,"{$i}",v_i)
  tmp=Replace(tmp,"{$mid}",mid(v_tim,1,16))
  tmp=Replace(tmp,"{$icon}",v_icon)
  tmp=Replace(tmp,"{$word}",v_word)
  tmp=Replace(tmp,"{$topic}",joekoe_cms.code_html(v_topic,1,0))
  tmp=Replace(tmp,"{$remark}",u_remark)
  tmp=Replace(tmp,"{$rnum}",joekoe_cms.js_put("document.write (ads_txt_type("&v_rnum&",1));",1))
  tmp=Replace(tmp,"{$del}",del)
  forum_view_body=tmp
  call web_branch(0)
end function

function forum_view_end()
  dim temp1
  temp1=temp1&vbcrlf&"<table cellspacing=1 cellpadding=1 width='98%'>"
  if forum_power_true(forumpower) then
    temp1=temp1&vbcrlf&"<tr><td height=30 align=center>" & _
                vbcrlf&"  <table border=0 cellspacing=0 cellpadding=2>" & _
                vbcrlf&"  <form name=del_frm action='forum_isaction.asp' method=get onsubmit=""javascript:frm_submitonce(this);"">" & _
                vbcrlf&"  <input type=hidden name=forum_id value='"&forumid&"'>" & _
                vbcrlf&"  <input type=hidden name=sel_id value='"&viewid&"'>" & _
                vbcrlf&"  <tr>" & _
                vbcrlf&"  <td>状态：</td>" & _
                vbcrlf&"  <td>"&base_forum_isview(fir_isvote,fir_islock,re_counter,fir_istop,fir_isgood)&"</td>" & _
                vbcrlf&"  <td>管理：</td>" & _
                vbcrlf&"  <td><input type=radio name=action value='revert' checked>还原</td>" & _
                vbcrlf&"  <td><input type=radio name=action value='restore'>修复</td>" & _
                vbcrlf&"  <td><input type=radio name=action value='rap'>奖惩</td>" & _
                vbcrlf&"  <td><input type=radio name=action value='move'>转移</td>" & _
                vbcrlf&"  <td><input type=radio name=action value='istop'>固顶</td>" & _
                vbcrlf&"  <td><input type=radio name=action value='istops'>总固顶</td>" & _
                vbcrlf&"  <td><input type=radio name=action value='isgood'>精华</td>" & _
                vbcrlf&"  <td><input type=radio name=action value='islock'>锁定</td>" & _
                vbcrlf&"  <td><input type=radio name=action value='delete'>删除</td>" & _
                vbcrlf&"  <td width=5></td>" & _
                vbcrlf&"  <td><input type=submit value='执行操作'></td>" & _
                vbcrlf&"  </tr>" & _
                vbcrlf&"  </form>" & _
                vbcrlf&"  </table>" & _
                vbcrlf&"</td></tr>"
  end if
  temp1=temp1&vbcrlf&"<tr><td height=30>" & _
              vbcrlf&"  <table border=0 cellspacing=0 cellpadding=2 width='100%'>" & _
              vbcrlf&"  <tr>" & _
              vbcrlf&"  <td>本主题回复<font class=red>"&re_counter&"</font>贴，浏览<font class=red>"&counter&"</font>人次，分页："&jk_pagecute(nummer,thepages,viewpage,"?forum_id="&forumid&"&view_id="&viewid&"&",5,"#ff0000")&"</td>" & _
              vbcrlf&"  <form method=post action='?forum_id="&forumid&"&view_id="&viewid&"&'><td align=right>转到：<input type=text name=Page size=2 maxlength=10  value='"&viewpage&"'> 页 <input type=submit value=Go name=submit></td></form><td align=right>"&forum_go&"</td>" & _
              vbcrlf&"  </tr>" & _
              vbcrlf&"  </table>" & _
              vbcrlf&"</td></tr>" & _
              vbcrlf&"</table>"
  forum_view_end=temp1
  call web_branch(0)
end function

function forum_view_reply(vtext)
  dim temp1
  temp1=temp1&vbcrlf&"<table cellspacing=1 cellpadding=4 class=table>" & _
              vbcrlf&"<tr><td class=td0 colspan=2>&nbsp;→ 快速回复："&fir_topic&"</td></tr>"
  if login_mode="" then
    temp1=temp1&vbcrlf&"<tr><td class=bg_td colspan=2 align=center>"&web_nologin&"</td></tr>"
  elseif fir_islock=1 then
    temp1=temp1&vbcrlf&"<tr><td class=bg_td colspan=2>&nbsp;&nbsp;主题已被锁定，不能再对其进行回复。</td></tr>"
  else
    temp1=temp1&vbcrlf&"<form name=write_frm action='forum_reply.asp?forum_id="&forumid&"&view_id="&viewid&"&reply_id="&replyid&"' method=post onsubmit=""javascript:frm_submitonce(this);"">" & _
                vbcrlf&"<input type=hidden name=chk value='yes'>" & _
                vbcrlf&"<input type=hidden name=upid value=''>" & _
                vbcrlf&vtext & _
                vbcrlf&"<tr class=bg_td>" & _
                vbcrlf&"<td width='20%'>当前心情：</td>" & _
                vbcrlf&"<td width='80%'>"&jk_icon(0)&"</td>" & _
                vbcrlf&"</td>" & _
                vbcrlf&"</tr>" & _
                vbcrlf&"<tr class=bg_tds>" & _
                vbcrlf&"<td class=htd>贴子内容：<br>"&web_frm_word&"<br>长度<="&max_word_size&"KB</td>" & _
                vbcrlf&"<td><textarea name=jk_word rows=7 cols=93 alt='按 Ctrl+Enter 可直接发送' onkeydown=""javascript:frm_quicksubmit();""></textarea></td></tr>" & _
                vbcrlf&"<tr class=bg_td>" & _
                vbcrlf&"<td>E M 贴图：</td>" & _
                vbcrlf&"<td>&nbsp;"&jk_em("write_frm","jk_word")&"</td>" & _
                vbcrlf&"</tr>" & _
                vbcrlf&"<tr class=bg_tds>" & _
                vbcrlf&"<td>快速回复：</td>" & _
                vbcrlf&"<td><input type=submit value='快速发表我的回贴'>　&nbsp;"&preview_b("write_frm","jk_word","预览回复")&"　&nbsp;<input type=reset value='清除重写'>　&nbsp;（按 Ctrl + Enter 可快速回复）</td>" & _
                vbcrlf&"</tr>" & _
                vbcrlf&"</form>"
  end if
  temp1=temp1&vbcrlf&"</table>"
  forum_view_reply=temp1&ukong
end function

%>