5ucms经常被恶意刷评论怎么办？

5ucms实现方法，ilank原创2010-10-13
打开save.asp
1、找到Dim Comment_Aid,Comment_User,Comment_Content

改成

Dim validatevalue,Comment_Aid,Comment_User,Comment_Content
validatevalue = Request("validatevalue")

2、If Len(Comment_Content) < Plus.Config("contentmin") Then Call Alert(replace(Plus.Lang("contentmin"),"$1",Plus.Config("contentmin")),Gourl)

下添加以下代码

If validatevalue<>"browser" Then Call Alert(Lang_ErrorPost,Gourl)

3、XML/HTML代码
<form name="frm" action="Plugins.......   

下添加以下代码：

XML/HTML代码
<input name="validatevalue" type="hidden" id="validatevalue" value="0" />
<script type="text/javascript">document.forms[0].validatevalue.value='browser';</script>

---基础知识//--------------------
document文档
document.forms[0]文档中的第一个表单
document.forms[0].title文档中的第一个表单的title表单
document.forms[0].title.value文档中的第一个表单的title表单的内容

document.forms[1] 这表示 第2个表单

如果你整个页面，只有一个表单，就是这个评论表单，此值写0

为什么要用document.forms[0]方法，原因如下
1、FF中不能接受document.forms("formname")的使用，ie中可以

        最好改成document.forms["formname"]的下标用法
 
2、FF中不能接受document.all的用法，document.all是在ie中定义的用法

        最好改成document.getElementById

3、FF中不能直接使用div的id获取div的属性，如divId.style.display等

        应一致改成document.getElementById("divId").style.display
 

留言本生成静态方法

1.在模板里用comment标签循环调用
<!--comment:{ $row=9 $table=comment $where=[state]=1}-->
<li><a href="{tag:goto}[comment:aid]" title="[comment:user]" cutlen="30">[comment:content]</a>
<span>[comment:time $format=mm-dd]</span>
</li>
<!--comment-->

显示评论与回复 
<!--comment:{ $row=6 $table=comment $where=[state]=1 }-->
<!--List:{ $Row=1 $Table=Content $Where=[id]=[Comment:aid] $Order=[ID] Desc }-->
<li><b>评论者</b>[comment:user]：<a href="[List:aurl]">[comment:content $len=70]</a>
{if:len("[comment:Recomment]")>0}<br/><b>管理员的回复：</b>[comment:Recomment]{else}{end if}
</li><!--List--><!--comment-->

2.在save 增加这一句
<!--#include file="../../Inc/class_content.asp"-->

If Plus.Config("audit") = 1 Then
CreateContent Comment_Aid,0 '生成这个文章
 Call Alert(Plus.Lang("okaudit"), Gourl)