程序员之家 服务器常用软件
快捷导航
您的位置：主页 > CMS教程 > 动易cms >

如何给SW中的评论加验证码 给SW中的评论加验证码的方法

  发布时间：2012-06-14 12:04:54   作者：佚名   我要评论
想给评论加个验证的方法如下
（福利推荐：【腾讯云】服务器最新限时优惠活动，云服务器1核2G仅99元/年、2核4G仅768元/3年，立即抢购>>>：9i0i.cn/qcloud）

（福利推荐：你还在原价购买阿里云服务器？现在阿里云0.8折限时抢购活动来啦！4核8G企业云服务器仅2998元/3年，立即抢购>>>：9i0i.cn/aliyun）

问题：在SiteWeaver版中，如何给评论加验证码呢？
解决方法：
一、修改模板。
1、在<head>中加入

复制代码
代码如下:

<script language=javascript>
function refreshimg(){
document.all.checkcode.src='../Inc/CheckCode.asp?' Math.random();
}

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;' /></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 & "
<li>你在管理登录停留的时间过长，导致验证码失效。请重新返回登录页面进行登录。
请返回上一页手动点击验证码刷新。</li>"
End If
If CheckCode <> Session("CheckCode") Then
FoundErr = True
ErrMsg = ErrMsg & "
<li>您输入的验证码和系统产生的不一致，请重新输入。请返回上一页手动点击验证码刷新。</li>"
End If
If FoundErr = True Then
Call WriteErrMsg(ErrMsg,"ol")
response.end
End If

说明：
1、如给多个频道加评论，需修改多个模板。
2、本修改只对SW6有效，2006的修改请参考/help/SiteWeaver/1255.html

相关文章

最新评论

关注微信公众号

扫一扫
?


http://www.vxiaotou.com