[技巧]实现审核的帖子浏览时不显示的办法

极速论坛可以实现对需要审核的帖子关闭显示的功能，这往往是需要的，特别是有些论坛设置了预审发贴功能，那么如果大量发出来的帖子没有被审核通过，就会影响版面的美观。本人经过简单地研究，对announce目录下的announce.asp文件进行了改造，实现了关闭显示功能。


以下是修改办法。

                 GetData(44,n) = ""
                 GetData(47,n) = 0
                 GetData(48,n) = 0
           End If
'本句是后加的，约在878行' If GetData(45,n) <60 or GBL_BoardMasterFlag >=5 Then
       %><table width="<%=DEF_BBS_ScreenWidth%>" border="0" cellspacing="1" cellpadding="5" align="center" bgcolor=<%=DEF_BBS_DarkColor%> class=TBone>
     <tr<%
     If Flag = 0 Then
           Response.Write " bgcolor=" & DEF_BBS_LightestColor & " class=TBBG9"


--------------------------------------------------------

                 %>
                 </td></tr></table>
           </td>
     </tr>
     </table>
     
<%
'本句也是后加的，约在1209行'End If
     Next

End Function
     

---------------------------------------------------

}
//-->
</script>
<%
For N = For1 to For2 Step StepValue
'本句是后加的，约在1609行' If GetData(45,n) <60 or GBL_BoardMasterFlag >=5 Then
     %><script language=javascript><%
     If SupervisorFlag = 0 Then GetData(19,n) = ""
     GetData(24,n) = Replace(Replace(Replace(GetData(24,n) & "","\","\\"),"""","\"""),"<","<")
     GetData(34,n) = Replace(Replace(Replace(GetData(34,n) & "","\","\\"),"""","\"""),"<","<")
     GetData(44,n) = Replace(Replace(Replace(GetData(44,n) & "","\","\\"),"""","\"""),"<","<")
     If GetData(42,n) = 1 or GetData(42,n) = True Then

------------------------------------------
     </tr>
     </table>
     <%
'本句是后加的，约在1681行'      End If
Next
%>
</script>

<%

End Function

---

共修改了四处。其实只加了一条判断语句。实现的功能是普通用户查看时只显示审核通过的帖子，而如果是本版版主登录以及总版主、管理员却可以查看到所有的帖子。便于审核，也美观。

---

支持一下

---

下面引用由ygperfect发表的内容： 支持一下 上一篇：leadbbs3.14某一版本cookie欺骗漏洞及修复 下一篇：IIS连接数限制