評(píng)論怎么加驗(yàn)證碼呢?

2024-09-10 21:55:00

字體：大中小

供稿：網(wǎng)友

問(wèn)題：評(píng)論怎么加驗(yàn)證碼呢?

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

哦，首選我要說(shuō)明的是，只能一個(gè)頻道一個(gè)頻道做，簡(jiǎn)單說(shuō)就是N個(gè)頻道要做N次哦。呵呵~~是不是很嚇人呢，其他很簡(jiǎn)單的。

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

[因?yàn)樘砑訒r(shí)有過(guò)濾，復(fù)制時(shí)要把下面的“＜”改為“<”]

＜script language=javascript>
＜!--
function refreshimg(){document.all.checkcode.src='../inc/checkcode.asp';}
//-->
＜/script>
驗(yàn)證碼：＜Input maxLength=6 size=6 name=CheckCode> ＜A title=看不清楚，換個(gè)圖片 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ù)制保存后，到評(píng)論頁(yè)看看，是不是出來(lái)了，呵呵，驗(yàn)證碼出來(lái)了算了成功了第一步了，下面我們做第二步了，看下面。紅色的代碼表示當(dāng)提交評(píng)論后，會(huì)把頁(yè)面刷新下，這樣驗(yàn)證碼就會(huì)更新。

第二步：修改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>你在治理登錄停留的時(shí)間過(guò)長(zhǎng)，導(dǎo)致驗(yàn)證碼失效。請(qǐng)重新返回登錄頁(yè)面進(jìn)行登錄。<br> 請(qǐng)返回上一頁(yè)手動(dòng)點(diǎn)擊驗(yàn)證碼刷新。</li>"
End If
If CheckCode <> Session("CheckCode") Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>您輸入的驗(yàn)證碼和系統(tǒng)產(chǎn)生的不一致，請(qǐng)重新輸入。請(qǐng)返回上一頁(yè)手動(dòng)點(diǎn)擊驗(yàn)證碼刷新。</li>"
End If
If FoundErr = True Then
Call WriteErrMsg(ErrMsg,"ol")
response.end
End If
End if