| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 663 人关注过本帖
标题:我的留言本经常被人骚扰!!该如何处理
只看楼主 加入收藏
tiaoyuan
Rank: 1
等 级:新手上路
帖 子:183
专家分:0
注 册:2006-8-30
结帖率:52.38%
收藏
 问题点数:0 回复次数:8 
我的留言本经常被人骚扰!!该如何处理

我的留言本常被人发表一些广告用语.每天都有,十分之有规律...如下列

[url=http://rmeng08.moslemblog.com/]六合彩[/url]
[url=http://rmeng08.blog.sr510.com/]六合彩中[/url]
[url=http://rmeng08.blogonfly.com/]六合彩[/url]
[url=http://rmeng08.noeblog.com/]六合彩中心[/url]
[url=http://rmeng08.partyblog.de/]六合彩[/url]
[url=http://rmeng08.multi-blogs.com/]六合彩中心网[/url]
[url=http://rmeng08.sharethepractice.org/]六合彩[/url]
[url=http://rmeng08.blogme.co.nz/]六合彩网[/url]
[url=http://beginlog.com/rmeng08/]六合彩[/url]
[url=http://rmeng08.blog-life.org/]六合彩中心[/url]
[url=http://rmeng08.zbloggy.com/]六合彩网[/url]




想问一下,对方是人工添加还是它们本身是用软件发表的...怎样防止这种事情发生..??

[此贴子已经被作者于2006-10-10 16:35:16编辑过]

搜索更多相关主题的帖子: 留言本 骚扰 
2006-10-10 16:34
islet
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:89
帖 子:6548
专家分:0
注 册:2005-1-28
收藏
得分:0 
验证码 过滤
2006-10-10 16:46
诗云
Rank: 1
等 级:新手上路
帖 子:162
专家分:0
注 册:2006-10-10
收藏
得分:0 
以下是引用islet在2006-10-10 16:46:08的发言:
验证码 过滤

说详细点好吗


隐形的人
2006-10-10 18:13
jimn2000
Rank: 2
等 级:新手上路
威 望:3
帖 子:274
专家分:0
注 册:2006-4-3
收藏
得分:0 
这个不是很简单的啊.你看看我的留言本里啊.那个人也是这么写的.
你只要在流言的保存那里面把字符替换一下不就可以了吗
呵呵
或者可以写个函数的啊
这里是我用的字符转换的函数代码


http://www.helpsos.cn/dnwzck.asp?c=48

欢迎大家访问我的网站 www. 域名代理网站 web.
2006-10-10 20:41
tiaoyuan
Rank: 1
等 级:新手上路
帖 子:183
专家分:0
注 册:2006-8-30
收藏
得分:0 
这种字符改成函数.....对别人乱发广告...好像没有太大的关系吧
2006-10-12 09:43
SinoPec
Rank: 1
等 级:新手上路
威 望:1
帖 子:63
专家分:0
注 册:2006-10-11
收藏
得分:0 
设置关键字过滤也许会好一点

2006-10-12 10:00
hangxj
Rank: 6Rank: 6
等 级:贵宾
威 望:29
帖 子:2045
专家分:0
注 册:2006-4-10
收藏
得分:0 
我的博客在以前有收录过一段人家写的代码

这是CNBRUCE的一篇贴子~!感觉不错~

BLOG一直被人在日志评论中链接广告。虽然加了验证码,使得广告机器发布广告的机会减少了;但还是有不少广告发布者手工来本BLOG发布。烦透了~!

总不想就这样让这些人强奸玷污着,加了一个判断直接过滤。大体流程是如下的:

1,本日志评论对公众是开放的,言论自由但不代表本BLOG意思,只做交流之用。

2,偶有广告,是否广告基本一看即知,最起码得含有他的网站地址连接吧。

3,好,既然你发广告,我不和你多说,先删除你的这个广告性质的评论,记下你的网址关键字。

4,下面自己写的小东西就来过滤了,不好意思了。


Function glvs(g_text,l_text)
if instr(g_text,l_text)<>0 then
response.Redirect ("http://www.cnbruce.com/test/bomb.html")
response.end
end if
End Function



其实主要就是instr()函数,它的意思是获得 l_text 在 g_text 中的位置。当然,我这里用来是检测 g_text 中是否含有 l_text(只要当不存在的时候,其位置才是0)。用在过滤中的意思就是,在接受的评论中是否含有已定义的过滤的字眼。如果含有,就表示你这个人怎么又来发广告了。好,让你直接跳转到“ http://www.cnbruce.com/test/bomb.html ”这个炸弹页面-_-!算是一个“毒丸计划”吧。

后来想想这招也太损了,干脆不跳转到炸弹页,跳转到我的其他站点吧,还能为我的那个站带来流量呢。:p

5,那么到底是哪些关键字要被过滤呢,当然是我记录下的曾在我的BLOG发布广告的一些关键字了。具体我是笨方法,一个个检测。



Function misini()
call glvs(log_r_content,"六合彩")
call glvs(log_r_content,"免费电影")
call glvs(log_r_content,"junyuan")
call glvs(log_r_content,"qn888")
call glvs(log_r_content,"kaixin163")
call glvs(log_r_content,"sodg")
call glvs(log_r_content,"happyxc")
call glvs(log_r_content,"51jiashi")
call glvs(log_r_content,"kaixin163")
call glvs(log_r_content,"lookjoke")
call glvs(log_r_content,"7s8x")
call glvs(log_r_content,"ejingda")
call glvs(log_r_content,"gay-massage")
call glvs(log_r_content,"honglian8")
call glvs(log_r_content,"wowgoldstores")
call glvs(log_r_content,"jk-999")
call glvs(log_r_content,"ccwl")
call glvs(log_r_content,"yl007")
call glvs(log_r_content,"id863")
call glvs(log_r_content,"yongrong")
call glvs(log_r_content,"fubo-edu")
call glvs(log_r_content,"printstrademark")
call glvs(log_r_content,"72e")
End Function



呵呵,这是我的BLOG已经过滤的广告关键字,都是在我BLOG发表带有连接的广告性质评论里面记录的。SO,如果你是广告发布者,当你发现你在输入了你的广告URL的时候会跳转到 http://www.dw8.cn 请不要诧异,因为我给你过滤了。

同样也请你不要生气,是被逼的-_-!(我相信,会有广告发布者看到本BLOG日志的)广告途径多的是,传统媒体才是王道,舍不得花钱在网络上乱发,中国互联网就是被你们给搞得乌烟瘴气的,不说了。。。

6,最终只要在日志评论插入记录之前调用一下该函数即可。



if log_r_content="" then
response.write("不能提交空白的评论")
response.end
else
call misini()
'............
'插入日志评论
'..............
end if




以上是我目前的方法,如果有人的BLOG也遇到我的这个情况,参考一下了。

==============================================================

匆忙之际的乱文,竟然起了抛砖引玉的功效,以下是在经典讨论的结果
woochysean的解决方案



function glvs(s)
dim bads,found,word
bads = "六合彩,免费电影,junyuan,qn888,....."
bads = split (bads,",")
found = false
for each word in bads
if instr(s,word) then
found = true
exit for
end if
next
glvs = found
end function

if log_r_content="" then
response.write("不能提交空白的评论")
response.end
else
if glvs(log_r_content) then
'发现广告
end if
'............
'插入日志评论
'..............
end if



此法一样可以用在留言簿上,自己可以看一下,改改就好了



[此贴子已经被作者于2006-10-12 10:03:32编辑过]


http://www./
2006-10-12 10:02
tiaoyuan
Rank: 1
等 级:新手上路
帖 子:183
专家分:0
注 册:2006-8-30
收藏
得分:0 

function glvs(s)
dim bads,found,word
bads = "******,免费电影,junyuan,qn888,....."
bads = split (bads,",")
found = false
for each word in bads
if instr(s,word) then
found = true
exit for
end if
next
glvs = found
end function

if log_r_content="" then
response.write("不能提交空白的评论")
response.end
else
if glvs(log_r_content) then
'发现广告
end if
'............
'插入日志评论
'..............
end if

-----------------------------------------------------

word 这个是什么来的??

log_r_content 是内容名称...........加了代码..没有任何反应...

2006-10-18 11:08
hangxj
Rank: 6Rank: 6
等 级:贵宾
威 望:29
帖 子:2045
专家分:0
注 册:2006-4-10
收藏
得分:0 
word 是用来存储你要过滤的字符用的.

log_r_content是用来接收用户提交的留言用的.

http://www./
2006-10-18 13:07
快速回复:我的留言本经常被人骚扰!!该如何处理
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017782 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved