解答SW中如何給評論加驗證碼？

2024-09-10 21:56:10

字體：大中小

來源：轉載

供稿：網友

問題：在SiteWeaver版中，如何給評論加驗證碼呢？

解決方法：

一、修改模板。

1、在<head>中加入
<script language=javascript>
function refreshimg(){
document.all.checkcode.src='../Inc/CheckCode.asp?'+Math.random();
}

</script>
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 & "<br><li>你在管理登錄停留的時間過長，導致驗證碼失效。請重新返回登錄頁面進行登錄。<br> 請返回上一頁手動點擊驗證碼刷新。</li>"
End If
If CheckCode <> Session("CheckCode") Then
  FoundErr = True
  ErrMsg = ErrMsg & "<br><li>您輸入的驗證碼和系統產生的不一致，請重新輸入。請返回上一頁手動點擊驗證碼刷新。</li>"
End If
If FoundErr = True Then
  Call WriteErrMsg(ErrMsg,"ol")
  response.end
End If