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

bucuo123

如何给SW中的评论加验证码 给SW中的评论加验证码的方法
问题：在SiteWeaver版中，如何给评论加验证码呢？
解决方法：
一、修改模板。
1、在中加入
复制代码
代码如下:

function refreshimg(){
document.all.checkcode.src='../Inc/CheckCode.asp?' Math.random();
}
2、在评论内容框下加入
复制代码
代码如下:
[tr]
[td]验证码：[/td]
[td][i,[/td]
[/tr]
二、修改Include目录下PowerEasy.Comment.asp文件，在Sub SaveComment()中加入
复制代码
代码如下:
Dim CheckCode
CheckCode = LCase(Trim(Request("CheckCode")))
If Trim(Session("CheckCode")) = "" Then
FoundErr = True
ErrMsg = ErrMsg & "
[*,你在管理登录停留的时间过长，导致验证码失效。请重新返回登录页面进行登录。
请返回上一页手动点击验证码刷新。"
End If
If CheckCode  Session("CheckCode") Then
FoundErr = True
ErrMsg = ErrMsg & "
[*,您输入的验证码和系统产生的不一致，请重新输入。请返回上一页手动点击验证码刷新。"
End If
If FoundErr = True Then
Call WriteErrMsg(ErrMsg,"ol")
response.end
End If
说明：
1、如给多个频道加评论，需修改多个模板。
2、本修改只对SW6有效，2006的修改请参考/help/SiteWeaver/1255.html