动易SiteWeaver系统中如何给评论加验证码
问题:在SiteWeaver版中,如何给评论加验证码呢?
解决方法:
一、修改模板。
1、在<head>中加入
<scriptlanguage=javascript>
functionrefreshimg(){
document.all.checkcode.src='../Inc/CheckCode.asp?'+Math.random();
}
</script>
2、在评论内容框下加入
<tr>
<tdalign=right>验证码:</td>
<tdcolSpan=3><inputname='CheckCode'size='6'maxlength='6'style='width:50px;BORDER-RIGHT:#F7F7F70pxsolid;BORDER-TOP:#F7F7F70pxsolid;FONT-SIZE:9pt;BORDER-LEFT:#F7F7F70pxsolid;BORDER-BOTTOM:#c0c0c01pxsolid;HEIGHT:16px;BACKGROUND-COLOR:#F7F7F7;ime-mode:disabled;'onmouseover=''this.style.background='#ffffff';''onmouseout=''this.style.background='#F7F7F7'''onFocus='this.select();'>
<ahref='javascript:refreshimg()'title='看不清楚,换个图片'><imgid='checkcode'src='../Inc/CheckCode.asp'style='border:1pxsolid#ffffff'/></a></td>
</tr>
二、修改Include目录下PowerEasy.Comment.asp文件,在SubSaveComment()中加入
DimCheckCode
CheckCode=LCase(Trim(Request("CheckCode")))
IfTrim(Session("CheckCode"))=""Then
FoundErr=True
ErrMsg=ErrMsg&"<br><li>你在管理登录停留的时间过长,导致验证码失效。请重新返回登录页面进行登录。<br>请返回上一页手动点击验证码刷新。</li>"
EndIf
IfCheckCode<>Session("CheckCode")Then
FoundErr=True
ErrMsg=ErrMsg&"<br><li>您输入的验证码和系统产生的不一致,请重新输入。请返回上一页手动点击验证码刷新。</li>"
EndIf
IfFoundErr=TrueThen
CallWriteErrMsg(ErrMsg,"ol")
response.end
EndIf
说明:
1、如给多个频道加评论,需修改多个模板。
2、本修改只对SW6有效