Siteweaver中如何给评论加验证码asp
一、修改模板。
1、在<head>中加入
<script language=javascript>
function refreshimg(){
document.all.checkcode.src='../inc/checkcode.asp?'+math.random();
}
</script>
2、在...
一、修改模板。
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
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
下一篇:asp替换包含双引号的字符
我要评论