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

当前位置 : 首页 > CMS教程 > 动易cms > 如何给SW中的评论加验证码 给SW中的评论加验证码

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

来源:互联网 作者:脚本宝典 时间:2015-06-12 13:20
想给评论加个验证的方法如下

问题:在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 
Tag:

相关文章

网友评论

<