欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

如何給SW中的評(píng)論加驗(yàn)證碼 給SW中的評(píng)論加驗(yàn)證碼的方法

  發(fā)布時(shí)間：2012-06-14 12:04:54   作者：佚名   我要評(píng)論
想給評(píng)論加個(gè)驗(yàn)證的方法如下

問(wèn)題：在SiteWeaver版中，如何給評(píng)論加驗(yàn)證碼呢？
解決方法：
一、修改模板。
1、在<head>中加入

復(fù)制代碼
代碼如下:

<script language=javascript>
function refreshimg(){
document.all.checkcode.src='../Inc/CheckCode.asp?' Math.random();
}

2、在評(píng)論內(nèi)容框下加入

復(fù)制代碼
代碼如下:

<tr>
<td align=right>驗(yàn)證碼：</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;' /></a></td>
</tr>

二、修改Include目錄下PowerEasy.Comment.asp文件，在Sub SaveComment()中加入

復(fù)制代碼
代碼如下:

Dim CheckCode
CheckCode = LCase(Trim(Request("CheckCode")))
If Trim(Session("CheckCode")) = "" Then
FoundErr = True
ErrMsg = ErrMsg & "
<li>你在管理登錄停留的時(shí)間過(guò)長(zhǎng)，導(dǎo)致驗(yàn)證碼失效。請(qǐng)重新返回登錄頁(yè)面進(jìn)行登錄。
請(qǐng)返回上一頁(yè)手動(dòng)點(diǎn)擊驗(yàn)證碼刷新。</li>"
End If
If CheckCode <> Session("CheckCode") Then
FoundErr = True
ErrMsg = ErrMsg & "
<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

說(shuō)明：
1、如給多個(gè)頻道加評(píng)論，需修改多個(gè)模板。
2、本修改只對(duì)SW6有效，2006的修改請(qǐng)參考/help/SiteWeaver/1255.html

相關(guān)文章

最新評(píng)論