安全、高速、放心的软件下载

限制动易的垃圾评论,给评论加上验证码

时间:2019-05-21 09:22:47来源:本站原创人气:0

最近几天天天有往站上发一些垃圾评论,挺烦人的,怎么杜绝这垃圾评论横行呢?那就是给动易加上验证码,一共两步很简单。
一、修改模板。
1、在<head>中加入
<script. language=javascript>
function refreshimg(){
 document.all.checkcode.src='../Inc/CheckCode.asp?'+Math.random();
}
</script>
2、在评论内容框下加入
         <tr>
           <td align=right>验证码:</td>
 <td colSpan=3><input name='CheckCode' size='6' maxlength='6' style='width:50px; BORDER-RIGHT: #F7F7F7 0px solid; BORDER-TOP: #F7F7F7 0px solid; FONT-SIZE: 9pt; BORDER-LEFT: #F7F7F7 0px solid; BORDER-BOTTOM: #c0c0c0 1px solid; HEIGHT: 16px; BACKGROUND-COLOR: #F7F7F7; ime-mode:disabled;' nmouseover=''this.style.background='#ffffff';'' nmouseout=''this.style.background='#F7F7F7''' nFocus='this.select();'>
                     &nbsp;<a href='javascript.:refreshimg()' title="看不清楚,换个图片"><img id='checkcode' src='../Inc/CheckCode.asp' style='border: 1px solid #ffffff' /></a></td>
         </tr>

二、修改Include目录下PowerEasy.Comment.asp文件,在Sub SaveComment()中加入
   Dim CheckCode
   CheckCode = LCase(Trim(Request("CheckCode")))
If Trim(Session("CheckCode")) = "" Then
 FoundErr = True
 ErrMsg = ErrMsg & "<br><li>你在管理登录停留的时间过长,导致验证码失效。请重新返回登录页面进行登录。<br>  请返回上一页手动点击验证码刷新。</li>"
End If
If CheckCode <> Session("CheckCode") Then
 FoundErr = True
 ErrMsg = ErrMsg & "<br><li>您输入的验证码和系统产生的不一致,请重新输入。请返回上一页手动点击验证码刷新。</li>"
End If
If FoundErr = True Then
 Call WriteErrMsg(ErrMsg,"ol")
 response.end
End If

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

动易.net版关闭评论仍有垃圾评论的解决方法

问题:后台关闭评论也不能防止垃圾评论的问题

解决:很多人把后台的评论关闭发表了,也把发表文件也删除了,但是还是有垃圾评论,这样的原因由于WAP也可以发表评论,只要把WAP评论关闭即可。

设置方法:系统设置---网站信息配置---Rss/WAP设置

是否启用评论功能   启用      禁用 


如果还不行,可以把WAP功能关闭:

网站是否启用WAP(手机访问)功能:  是       否 


 

标签动易
网友评论