关闭或者屏蔽引用通告功能以防垃圾引用
作者:小柳 日期:2006-11-10
删不完的垃圾引用通告,如何解决?
一、是无限期关闭,直到有更好的解决办法。
在trackback.asp里,注释掉以下代码
程序代码: [ 复制代码到剪贴板 ]
Conn.Execute("Insert INTO blog_TrackBack (blog_ID, tb_URL, tb_Title, tb_Intro, tb_Site, tb_PostTime) VALUES ("&tbID&",'"&tbURL&"','"&tbTitle&"','"&tbExcerpt&"','"&tbBlog&"',Now())")
Conn.Execute("Update blog_Content SET log_QuoteNums=log_QuoteNums+1 Where log_ID="&tbID)
Conn.Execute("Update blog_Info Set blog_tbNums=blog_tbNums+1")
Smilies(1)
Keywords(1)
getInfo(2)
PostArticle tbID
SQLQueryNums=SQLQueryNums+3
tbResponseXML 0,"Trackback成功"
二、把垃圾引用地址加入黑名单,不过麻烦一些
手动修改funtion.asp,trackback.asp和commond.asp三个文件.现把该方法转载过来,希望对大家有用处.
1、在include/funtion.asp中加入下面代码:
程序代码: [ 复制代码到剪贴板 ]
Function ChkTbUrl(TbUrlstr)
Dim r,RejTburl
RejTburl=split(RejectTbUrl,",")
ChkTbUrl = True
For r = 0 To ubound(RejTburl)
IF instr(lcase(TbUrlstr),lcase(RejTburl(r)))>0 Then
ChkTbUrl = False
Exit Function
End IF
Next
End Function
2、在trackback.asp中找到下面这段代码:
程序代码: [ 复制代码到剪贴板 ]
If Conn.Execute("SELECT count(log_ID) FROM blog_Content WHERE log_IsShow=True And log_DisComment=False AND log_ID="&tbID)(0)>0 AND Conn.Execute("SELECT count(tb_ID) FROM blog_Trackback WHERE blog_ID="&tbID&" AND tb_URL='"&tbURL&"' AND tb_Title='"&tbTitle&"' AND tb_Intro='"&tbExcerpt&"' AND tb_Site='"&tbBlog&"'")(0)<1 Then
修改为
程序代码: [ 复制代码到剪贴板 ]
If Conn.Execute("SELECT count(log_ID) FROM blog_Content WHERE log_IsShow=True And log_DisComment=False AND log_ID="&tbID)(0)>0 AND Conn.Execute("SELECT count(tb_ID) FROM blog_Trackback WHERE blog_ID="&tbID&" AND tb_URL='"&tbURL&"' AND tb_Title='"&tbTitle&"' AND tb_Intro='"&tbExcerpt&"' AND tb_Site='"&tbBlog&"'")(0)<1 AND ChkTbUrl(tbURL)=True Then
3、在commond.asp中加入以下代码:其中abc.com是要过滤掉的恶意引用通告的网址,多个网址用英文逗号隔开。
程序代码: [ 复制代码到剪贴板 ]
dim RejectTbUrl
RejectTbUrl="abc.com,abc.net"
该方法可用于L-BLOG核心的程序.其他的就不清楚了.呵呵.
三、批量删除垃圾引用通告
在数据管理中执行一句SQL来批量删除引用广告:
DELETE * FROM blog_Trackback
执行后在一般设置中点击一下“统计日志评论数”重新统计一下评论数即可。
一、是无限期关闭,直到有更好的解决办法。
在trackback.asp里,注释掉以下代码
程序代码: [ 复制代码到剪贴板 ]
Conn.Execute("Insert INTO blog_TrackBack (blog_ID, tb_URL, tb_Title, tb_Intro, tb_Site, tb_PostTime) VALUES ("&tbID&",'"&tbURL&"','"&tbTitle&"','"&tbExcerpt&"','"&tbBlog&"',Now())")
Conn.Execute("Update blog_Content SET log_QuoteNums=log_QuoteNums+1 Where log_ID="&tbID)
Conn.Execute("Update blog_Info Set blog_tbNums=blog_tbNums+1")
Smilies(1)
Keywords(1)
getInfo(2)
PostArticle tbID
SQLQueryNums=SQLQueryNums+3
tbResponseXML 0,"Trackback成功"
二、把垃圾引用地址加入黑名单,不过麻烦一些
手动修改funtion.asp,trackback.asp和commond.asp三个文件.现把该方法转载过来,希望对大家有用处.
1、在include/funtion.asp中加入下面代码:
程序代码: [ 复制代码到剪贴板 ]
Function ChkTbUrl(TbUrlstr)
Dim r,RejTburl
RejTburl=split(RejectTbUrl,",")
ChkTbUrl = True
For r = 0 To ubound(RejTburl)
IF instr(lcase(TbUrlstr),lcase(RejTburl(r)))>0 Then
ChkTbUrl = False
Exit Function
End IF
Next
End Function
2、在trackback.asp中找到下面这段代码:
程序代码: [ 复制代码到剪贴板 ]
If Conn.Execute("SELECT count(log_ID) FROM blog_Content WHERE log_IsShow=True And log_DisComment=False AND log_ID="&tbID)(0)>0 AND Conn.Execute("SELECT count(tb_ID) FROM blog_Trackback WHERE blog_ID="&tbID&" AND tb_URL='"&tbURL&"' AND tb_Title='"&tbTitle&"' AND tb_Intro='"&tbExcerpt&"' AND tb_Site='"&tbBlog&"'")(0)<1 Then
修改为
程序代码: [ 复制代码到剪贴板 ]
If Conn.Execute("SELECT count(log_ID) FROM blog_Content WHERE log_IsShow=True And log_DisComment=False AND log_ID="&tbID)(0)>0 AND Conn.Execute("SELECT count(tb_ID) FROM blog_Trackback WHERE blog_ID="&tbID&" AND tb_URL='"&tbURL&"' AND tb_Title='"&tbTitle&"' AND tb_Intro='"&tbExcerpt&"' AND tb_Site='"&tbBlog&"'")(0)<1 AND ChkTbUrl(tbURL)=True Then
3、在commond.asp中加入以下代码:其中abc.com是要过滤掉的恶意引用通告的网址,多个网址用英文逗号隔开。
程序代码: [ 复制代码到剪贴板 ]
dim RejectTbUrl
RejectTbUrl="abc.com,abc.net"
该方法可用于L-BLOG核心的程序.其他的就不清楚了.呵呵.
三、批量删除垃圾引用通告
在数据管理中执行一句SQL来批量删除引用广告:
DELETE * FROM blog_Trackback
执行后在一般设置中点击一下“统计日志评论数”重新统计一下评论数即可。
[本日志由 小柳 于 2006-11-10 03:44 PM 编辑]
文章来自: 本站原创
引用通告地址: http://www.wgdcw.com/0375/trackback.asp?tbID=71
Tags:
文章来自: 本站原创
引用通告地址: http://www.wgdcw.com/0375/trackback.asp?tbID=71
Tags:
评论: 0 | 引用: 465 | 查看次数: 3344
发表评论