注册登陆
建站服务
联系信息
 |
视动工坊：动易认证设计师 | |
|
动易模板大赛连续两次获奖 | |
|
现共完成动易模板100余个 | |
|
热诚欢迎定制改制动易模板 | |
|
Q Q： | 363881827 |
|
手机： | 13153001848 |
|
Tel： | 0531-83711777 |
|
Mail： | wsdjqwj2003@163.com |
[组图]给评论内容加上留言本的屏蔽垃圾广告功能
作者：佚名 文章来源：本站原创 点击数： 更新时间：2008-7-25 21:03:19
在动易系统中，对留言的内容设置有屏蔽垃圾广告功能。
在后台设置禁止的关键字，如果前台用户在留言的内容中含有这些关键字的一个或多个就会提示及禁止留言。
这样的功能，有时候我们需要在更多的地方使用，比如评论系统。
而目前动易在评论中未加入这样的限制功能。
由于我网站的评论功能是开放的，虽然加入了评论审核功能，但同样还是有很多的垃圾广告评论，每天都要删很多。于是想到了把留言本的屏蔽垃圾广告功能加入到评论内容里。这个做出来好久了，只是现在偶然看到有朋友需要，所以现在共享一下。
演示地址：点击这里发表演示（现只屏蔽了http://,www两个关键字。一般的广告就是为了加网址链接）
修改方法：
修改Include/PowerEasy.Comment.asp文件：
查找代码：
CommentUserContent = PE_HTMLEncode(CommentUserContent)
在下面加入：
'=================================================
'函数名：ManageRubbishContent()
'作 用：屏蔽垃圾广告子函数
'参 数：无
'=================================================
Private Function ManageRubbishContent(ByVal GuestBook_ManageRubbish, ByVal GuestContent)
Dim RubbishContent
RubbishContent = False
ManageRubbishContent = RubbishContent
Dim i, obj
If GuestBook_ManageRubbish = "" Or IsNull(GuestBook_ManageRubbish) Then
RubbishContent = False
Exit Function
End If
obj = Split(GuestBook_ManageRubbish, "$$$")
If GuestContent = "" Then Exit Function
For i = 0 To UBound(obj)
If Trim(obj(i)) <> "" And InStr(GuestContent, Trim(obj(i))) > 0 Then
RubbishContent = True
If RubbishContent Then Exit For
End If
Next
ManageRubbishContent = RubbishContent
End Function
使用说明：在
设置留言本的：“是否启用屏蔽垃圾广告功能” 和 “要屏蔽的关键字”。（见第一图）
因为我的程序作了很多修改，也许你在用此方法时会出现错误。请将详细错误信息贴出来以便能及时解决。谢谢。
动易中心录入：alang 责任编辑：alangyuafeng929
评论主题：给评论内容加上留言本的屏蔽垃圾广告功能（评论内容只代表网友观点）
版权所有：copyright 2005-2008 动易模板NO.1 核心：PowerEasy SiteWeaver™ 6.6 备案：鲁ICP备05007599号
电话：0531－83711777（晚间）手机：13153001848 QQ:363881827 群号：一群13022466（满）二群36354619
电话：0531－83711777（晚间）手机：13153001848 QQ:363881827 群号：一群13022466（满）二群36354619
