论坛单贴屏蔽（已改正引用和打印的BUG）-

一、在数据库的bbs_data表中加字段pb,类型为 逻辑型(是/否)
   或者执行SQL语句 alter table bbs_data add pb bit null
二、修改forum_view.asp文件
1.先定义变量 pb
找到
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
替换为
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,pb
2.找到sql="select bbs_data.id,bbs...这句,在user_data.popedom后面加,bbs_data.pb
3.找到
　  if v_i>1 and forum_power_true(forumpower)=true then temp1=temp1&" <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> "
替换为：
  if v_i>1 and forum_power_true(forumpower)=true then temp1=temp1&" <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>  
<a href='forum_isaction.asp?forum_id="&forumid&"&sel_id="&viewid&"&re_id="&v_id&"&action=pb' alt='屏蔽(解除屏蔽)此回贴'>屏蔽</a> "

4.找到
  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

在前面加
   pb=vdim(25,i)

注意：其中红色参数25要视情况而定，方法是查找本文件中原有的vdim参数，看哪个是最大的，就在那个基础上加1，比如查到最大的是26，那么25就要改为27


在此后面加
  if pb 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


三、修改forum_isacton.asp文件
1.找到
　　　case "delete"
　　  　aname="删除:"
在前面加：
　　case "pb"
  　　aname="屏蔽<解除屏蔽>一条回贴:"  
2.找到
  case "del"
    call joekoe_cms.exec("delete from bbs_data where id="&re_id,0)
在前面加
  case "pb"
    call joekoe_cms.exec("update bbs_data set pb=not pb where forum_id="&forumid&" and reply_id="&ftid&" and id="&re_id,0)

四、修改forum_loadtree.asp文件
1.找到   if html_temp="" then
把下面的sql语句替换为
    sql="select top 10 bbs_data.username,bbs_data.word,user_data.popedom,bbs_data.pb from bbs_data,user_data where bbs_data.userid=user_data.id and bbs_data.forum_id="&forumid&" and bbs_data.reply_id="&viewid&" order by bbs_data.id"
2.找到
     do while not rs.eof
后面加
         if rs("pb") then
           html_temp=html_temp&"<font class=red2>该贴已暂时被屏蔽！</font>"
           else  
3.在html_temp=html_temp&" <font class=gray>-</font> "&format_user_name(rs("username"),0,"")&"</td></tr>"
下面加
end if

五、修改forum_print.asp文件
1.找到
sub forum_print()
  dim dim_data,dim_data_num
替换为
sub forum_print()
  dim dim_data,dim_data_num,pb
2.找到
  sql="select id,username,topic,word,tim from bbs_data where reply_id="&viewid&" order by id"
替换为
  sql="select id,username,topic,word,tim,pb from bbs_data where reply_id="&viewid&" order by id"
3.找到
    response.write vbcrlf&"<tr><td class=bg_td align=center><table border=0 cellspacing=0 cellpadding=2 width='99%'><tr><td class=htd>" & _
                   vbcrlf&"--  作者：<b>"&rs(1)&"</b><br>" & _
                   vbcrlf&"--  时间：<font class=gray>"&rs(4)&"</font><br>" & _
                   vbcrlf&"--  <b>"&joekoe_cms.code_html(rs(2),1,0)&"</b><br>" & _
                   vbcrlf&  reubbtst(code_jk(rs(3)),0) & _
                   vbcrlf&"</td></tr></table></td></tr>"
替换为

if rs("pb") then
    response.write vbcrlf&"<tr><td class=bg_td align=center><table border=0 cellspacing=0 cellpadding=2 width='99%'><tr><td class=htd>" & _
                   vbcrlf&"--  作者：<b>"&rs(1)&"</b><br>" & _
                   vbcrlf&"--  时间：<font class=gray>"&rs(4)&"</font><br>" & _
                   vbcrlf&"--  <b>"&joekoe_cms.code_html(rs(2),1,0)&"</b><br>" & _
                   vbcrlf&"  <table border=0><tr><td align=center class=htd><font class=gray>=========================<br><font class=red2><b>此贴已暂时被屏蔽！</b></font><br>=========================</font></td></tr></table>  "& _
                   vbcrlf&"</td></tr></table></td></tr>"
else

response.write vbcrlf&"<tr><td class=bg_td align=center><table border=0 cellspacing=0 cellpadding=2 width='99%'><tr><td class=htd>" & _
                   vbcrlf&"--  作者：<b>"&rs(1)&"</b><br>" & _
                   vbcrlf&"--  时间：<font class=gray>"&rs(4)&"</font><br>" & _
                   vbcrlf&"--  <b>"&joekoe_cms.code_html(rs(2),1,0)&"</b><br>" & _
                   vbcrlf& code_jk(rs(3)) & _
                   vbcrlf&"</td></tr></table></td></tr>"
end if


六、修改forum_reply.asp文件
（这步由于UBB过滤原因，请下载下面附件并按照说明修改即可）

[file=attachments/month_200509/12_090555_wtlz09_181550_wtlz200507222033125i.rar]Click to Download[/file]
http://www.joekoe.com/forum/view.asp?id=70420

文章来自: Original
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志: