評論怎么加驗證碼呢?

2024-09-10 21:55:00

字體：大中小

供稿：網(wǎng)友

問題：評論怎么加驗證碼呢?

回答：其他我就不要多說了，直接轉(zhuǎn)到正題，根據(jù)我下面的方法去做就可以了，一步一步來。

哦，首選我要說明的是，只能一個頻道一個頻道做，簡單說就是N個頻道要做N次哦。呵呵~~是不是很嚇人呢，其他很簡單的。

第一步：修改模板，把驗證碼放到評論模板（如：文章中心治理--文章模板頁治理---評論XX模板頁）里面，放到合適的地方即可，位置不限制，自己靈活處理，代碼如下（從下面代碼，我們可以看出我是從留言版的代碼復(fù)制過來的吧，呵呵..）

[因為添加時有過濾，復(fù)制時要把下面的“＜”改為“<”]

＜script language=javascript>
＜!--
function refreshimg(){document.all.checkcode.src='../inc/checkcode.asp';}
//-->
＜/script>
驗證碼：＜Input maxLength=6 size=6 name=CheckCode> ＜A title=看不清楚，換個圖片 href="nojavascript...refreshimg()">＜IMG id=checkcode style="BORDER-RIGHT: #ffffff 1px solid; BORDER-TOP: #ffffff 1px solid; BORDER-LEFT: #ffffff 1px solid; BORDER-BOTTOM: #ffffff 1px solid" src="{$InstallDir}inc/checkcode.asp">＜/A>＜FONT color=red> *＜/FONT>

復(fù)制保存后，到評論頁看看，是不是出來了，呵呵，驗證碼出來了算了成功了第一步了，下面我們做第二步了，看下面。紅色的代碼表示當(dāng)提交評論后，會把頁面刷新下，這樣驗證碼就會更新。

第二步：修改Comment.asp文件，如：Article/Comment.asp

紅色為要加上的代碼：

<%@language=vbscript codepage=936 %>
<%
Option Explicit
Response.Buffer = True
%>

<%
IF Action="Save" Then
Dim CheckCode
CheckCode = LCase(Trim(Request("CheckCode")))
If Trim(Session("CheckCode")) = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>你在治理登錄停留的時間過長，導(dǎo)致驗證碼失效。請重新返回登錄頁面進(jìn)行登錄。<br> 請返回上一頁手動點擊驗證碼刷新。</li>"
End If
If CheckCode <> Session("CheckCode") Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>您輸入的驗證碼和系統(tǒng)產(chǎn)生的不一致，請重新輸入。請返回上一頁手動點擊驗證碼刷新。</li>"
End If
If FoundErr = True Then
Call WriteErrMsg(ErrMsg,"ol")
response.end
End If
End if