打印本文 关闭窗口 | |
如何给动易SW中的评论加验证码及方法来源于瑞达科技网 | |
作者:佚名 文章来源:网络 点击数 更新时间:2020/11/16 文章录入:瑞达 责任编辑:瑞达科技 | |
|
|
想给评论加个验证的方法如下
问题:在SiteWeaver版中,如何给评论加验证码呢? <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;' onmouseover=''this.style.background='#ffffff';'' onmouseout=''this.style.background='#F7F7F7''' onFocus='this.select();'> <a href='javascript:refreshimg()' title='看不清楚,换个图片'><img id='checkcode' src='/Inc/CheckCode.asp' style='border: 1px solid #ffffff' /></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有效。 |
|
打印本文 关闭窗口 |