用户登陆
站点日历
站点统计
最新评论
日志搜索
L-BLOG的屏蔽垃圾、广告评论的修改方法 [ 日期：2006-08-17 ] [ 来自：1、在blogcomm.asp程序里的<!--#include file="header.asp" -->下面加上如下代码
| 程序代码： | [ 复制代码到剪贴板 ] |
<%
'防恶意留言
Dim QuesionArray(100)
Dim AnswerArray(100)
Dim QuesionNum
QuesionNum=7 '请在这里正确设置问题的总数
Function CheckEvil(Answer)
Dim TrueAnswer
If Session("EvilID")="" Then
CheckEvil=False
Exit Function
End If
TrueAnswer=CStr(AnswerArray(Session("EvilID")))
If Answer=TrueAnswer Then
CheckEvil=true
End If
End Function
QuesionArray(0)="1+1=?"
AnswerArray(0)="2"
QuesionArray(1)="2+2=?"
AnswerArray(1)="4"
QuesionArray(2)="3+4=?"
AnswerArray(2)="7"
QuesionArray(3)="2+4=?"
AnswerArray(3)="6"
QuesionArray(4)="1+2=?"
AnswerArray(4)="3"
QuesionArray(5)="2+3=?"
AnswerArray(5)="5"
QuesionArray(6)="4+4=?"
AnswerArray(6)="8"
%>
'防恶意留言
Dim QuesionArray(100)
Dim AnswerArray(100)
Dim QuesionNum
QuesionNum=7 '请在这里正确设置问题的总数
Function CheckEvil(Answer)
Dim TrueAnswer
If Session("EvilID")="" Then
CheckEvil=False
Exit Function
End If
TrueAnswer=CStr(AnswerArray(Session("EvilID")))
If Answer=TrueAnswer Then
CheckEvil=true
End If
End Function
QuesionArray(0)="1+1=?"
AnswerArray(0)="2"
QuesionArray(1)="2+2=?"
AnswerArray(1)="4"
QuesionArray(2)="3+4=?"
AnswerArray(2)="7"
QuesionArray(3)="2+4=?"
AnswerArray(3)="6"
QuesionArray(4)="1+2=?"
AnswerArray(4)="3"
QuesionArray(5)="2+3=?"
AnswerArray(5)="5"
QuesionArray(6)="4+4=?"
AnswerArray(6)="8"
%>
2、然后再找到代码
| 程序代码： | [ 复制代码到剪贴板 ] |
ElseIF comm_LogISOK=1 Then
msg_Title="出现错误"
msg_Content="<a href=""javascript:history.go(-1);"">对不起，你所评论的日志不存在，点击返回上一页</a>"
msg_Title="出现错误"
msg_Content="<a href=""javascript:history.go(-1);"">对不起，你所评论的日志不存在，点击返回上一页</a>"
在代码下面插入如下代码
| 程序代码： | [ 复制代码到剪贴板 ] |
ElseIf Request.Form("EvilAnswer")="" Then
msg_Title="请填写防恶意留言的答案!"
msg_Content="请填写防恶意留言答案!<br><a href='javascript:history.go(-1);'>请返回重新输入</a>"
ElseIf Not CheckEvil(Request.Form("EvilAnswer")) Then
msg_Title="防恶意留言问题回答错误，请返回重试。"
msg_Content="防恶意留言问题回答错误，请返回重试!<br><a href='javascript:history.go(-1);'>请返回重新输入</a>"
msg_Title="请填写防恶意留言的答案!"
msg_Content="请填写防恶意留言答案!<br><a href='javascript:history.go(-1);'>请返回重新输入</a>"
ElseIf Not CheckEvil(Request.Form("EvilAnswer")) Then
msg_Title="防恶意留言问题回答错误，请返回重试。"
msg_Content="防恶意留言问题回答错误，请返回重试!<br><a href='javascript:history.go(-1);'>请返回重新输入</a>"
3、打开blogview.asp程序里的<!--#include file="header.asp" -->下面加上如下代码
| 程序代码： | [ 复制代码到剪贴板 ] |
<%
'防恶意留言
Dim QuesionArray(100)
Dim AnswerArray(100)
Dim QuesionNum
QuesionNum=7 '请在这里正确设置问题的总数
Function CheckEvil(Answer)
Dim TrueAnswer
If Session("EvilID")="" Then
CheckEvil=False
Exit Function
End If
TrueAnswer=CStr(AnswerArray(Session("EvilID")))
If Answer=TrueAnswer Then
CheckEvil=true
End If
End Function
QuesionArray(0)="1+1=?"
AnswerArray(0)="2"
QuesionArray(1)="2+2=?"
AnswerArray(1)="4"
QuesionArray(2)="3+4=?"
AnswerArray(2)="7"
QuesionArray(3)="2+4=?"
AnswerArray(3)="6"
QuesionArray(4)="1+2=?"
AnswerArray(4)="3"
QuesionArray(5)="2+3=?"
AnswerArray(5)="5"
QuesionArray(6)="4+4=?"
AnswerArray(6)="8"
%>
'防恶意留言
Dim QuesionArray(100)
Dim AnswerArray(100)
Dim QuesionNum
QuesionNum=7 '请在这里正确设置问题的总数
Function CheckEvil(Answer)
Dim TrueAnswer
If Session("EvilID")="" Then
CheckEvil=False
Exit Function
End If
TrueAnswer=CStr(AnswerArray(Session("EvilID")))
If Answer=TrueAnswer Then
CheckEvil=true
End If
End Function
QuesionArray(0)="1+1=?"
AnswerArray(0)="2"
QuesionArray(1)="2+2=?"
AnswerArray(1)="4"
QuesionArray(2)="3+4=?"
AnswerArray(2)="7"
QuesionArray(3)="2+4=?"
AnswerArray(3)="6"
QuesionArray(4)="1+2=?"
AnswerArray(4)="3"
QuesionArray(5)="2+3=?"
AnswerArray(5)="5"
QuesionArray(6)="4+4=?"
AnswerArray(6)="8"
%>
4、找到
| 程序代码： | [ 复制代码到剪贴板 ] |
<iframe border="0" frameBorder="0" frameSpacing="0" height="21" marginHeight="0" marginWidth="0" noResize scrolling="no" width="100%" vspale="0" src="attachment.asp"></iframe></td>
</tr>
</tr>
在它下面插入
| 程序代码： | [ 复制代码到剪贴板 ] |
<tr align="center">
<td colspan="2" nowrap bgcolor="#FFFFFF">
<%
Randomize
Dim EvilID,ArrayID,QuesionArrayName
Session("EvilID")=int(Rnd*QuesionNum)
'ArrayID=Session("EvilID")
'TempLateStr=Replace(TempLateStr,"{$EvilQuesion}", QuesionArray(Session("EvilID")))
QuesionArrayName=cStr(TRIM(QuesionArray(Session("EvilID"))))
%>
<font color=red>请填入"?"号处应该填入的数字：</font><%Response.Write (QuesionArrayName) %> <input name="EvilAnswer" type="text" id="EvilAnswer" size="8" /></td>
</tr>
<td colspan="2" nowrap bgcolor="#FFFFFF">
<%
Randomize
Dim EvilID,ArrayID,QuesionArrayName
Session("EvilID")=int(Rnd*QuesionNum)
'ArrayID=Session("EvilID")
'TempLateStr=Replace(TempLateStr,"{$EvilQuesion}", QuesionArray(Session("EvilID")))
QuesionArrayName=cStr(TRIM(QuesionArray(Session("EvilID"))))
%>
<font color=red>请填入"?"号处应该填入的数字：</font><%Response.Write (QuesionArrayName) %> <input name="EvilAnswer" type="text" id="EvilAnswer" size="8" /></td>
</tr>
引用通告地址 (2357)：
http://www.7gz.cn/blog/trackback.asp?tbID=414
http://www.7gz.cn/blog/trackback.asp?tbID=414&CP=GBK
