我想通过以下方式给评论添加一个验证。
难题:在SiteWeaver版中,如何给评论加验证码呢?
解决方法:
一、改动模板。
1、在<head>中添加
复制代码编码以下:
<scriptlanguage=javascript>
functionrefreshimg(){
document.all.checkcode.src='../Inc/CheckCode.asp?'Math.random();
}
2、在评论內容框下添加
复制代码编码以下:
<tr>
<tdalign=right>验证码:</td>
<tdcolSpan=3><inputname='CheckCode'size='6'maxlength='6'style='width:50px;BORDER-RIGHT:#F7F7F71080xsolid;BORDER-TOP:#F7F7F71080xsolid;FONT-SIZE:9pt;BORDER-LEFT:#F7F7F71080xsolid;BORDER-BOTTOM:#c0c0c01pxsolid;HEIGHT:16px;BACKGROUND-COLOR:#F7F7F7;ime-mode:disabled;'/></a></td>
</tr>
二、改动Include文件目录下PowerEasy.Comment.asp文件,在SubSaveComment()中添加
复制代码编码以下:
DimCheckCode
CheckCode=LCase(Trim(Request("CheckCode")))
IfTrim(Session("CheckCode"))=""Then
FoundErr=True
ErrMsg=ErrMsg&"
<li>你一直在管理方法登陆滞留的時间太长,造成验证码无效。请再次回到登陆页面开展登陆。
请返回上一页手动式点一下验证码更新。</li>"
EndIf
IfCheckCode<>Session("CheckCode")Then
FoundErr=True
ErrMsg=ErrMsg&"
<li>您键入的验证码和系统软件造成的不一致,请再次键入。请返回上一页手动式点一下验证码更新。</li>"
EndIf
IfFoundErr=TrueThen
CallWriteErrMsg(ErrMsg,"ol")
response.end
EndIf
表明:
1、如给好几个频道栏目加评论,需改动好几个模板。
2、本改动只对SW6合理,2006的改动请参照/help/SiteWeaver/1255.html
问题:在SiteWeaver版本中,如何给评论添加验证码?
解决方法:
首先,改变模板。
1。在
复制代码添加到:
document.all.checkcode.src='..'/Inc/CheckCode.asp'math.random();
}
2。在注释内容框下添加
以下复制代码:
<;/tr>;
二、更改包含文件目录中的PowerEasy.Comment.asp文件,添加
copy代码到SubSaveComment()如下:
dimcheckcode
checkcode=lcase(trim(request("checkcode"))
iftrim(session("checkcode"))=""Then
FoundErr=True
ErrMsg=ErrMsg&;"
<;李>您在管理方法中停留时间过长,导致验证码无效。请返回登录页面再次登录。
请返回上一页,手动点击验证码更新。</李>
EndIf
IfCheckCode<;>session("checkcode")Then
founderr=True
ErrMsg=ErrMsg&;"
<;李>您输入的验证码与系统软件不一致。请再次键入它。请返回上一页,手动点击验证码更新。</李>
endif
iffounderr=truethen
callwriteerrmsg(errmsg,"ol")
response.end
endif
表示:
2.这个改动只对SW6合理。请参考/help/siteweaver/1255.html了解2006年的变化
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)